Index: /trunk/ccl/level-1/l1-readloop-lds.lisp
===================================================================
--- /trunk/ccl/level-1/l1-readloop-lds.lisp	(revision 479)
+++ /trunk/ccl/level-1/l1-readloop-lds.lisp	(revision 480)
@@ -42,11 +42,10 @@
 
 (define-toplevel-command 
-    :global y (p) "Yield control of terminal-input to process whose name or ID is <p>"
-    (let* ((proc (find-process p)))
-	(if (null proc)
-	  (format t "~&;; not found - ~s" p)
-	  (if (not (member proc *terminal-input-requests*))
-	    (format t "~&;; process not requesting control of terminal input")
-	    (%%yield-terminal-to proc)))))
+    :global y (&optional p) "Yield control of terminal-input to process
+whose name or ID matches <p>, or to any process if <p> is null"
+    (if p
+      (let* ((proc (find-process p)))
+	(%%yield-terminal-to proc)	;may be nil
+	(%%yield-terminal-to nil))))
 
 (define-toplevel-command
@@ -69,6 +68,12 @@
 	       (if (and suspend-count (not (eql 0 suspend-count)))
 		 (format t " (Suspended)")))
-	     (if (member proc *terminal-input-requests*)
-	       (format t " (Requesting terminal input)"))
+	     (let* ((terminal-input-shared-resource
+		     (if (typep *terminal-io* 'two-way-stream)
+		       (input-stream-shared-resource
+			(two-way-stream-input-stream *terminal-io*)))))
+	       (if (and terminal-input-shared-resource
+			(%shared-resource-requestor-p
+			 terminal-input-shared-resource proc))
+		 (format t " (Requesting terminal input)")))
 	     (fresh-line)))
       (if p
@@ -87,4 +92,11 @@
     (dotimes (i (length r) (terpri))
       (format t "~&~d. ~a" i (svref r i)))))
+
+;;; From Marco Baringer 2003/03/18
+(define-toplevel-command :break set (n frame value) "Set <n>th item of frame <frame> to <value>"
+  (let* ((frame-sp (nth-raw-frame frame *break-frame* (%current-tcr))))
+    (if frame-sp
+        (toplevel-print (list (set-nth-value-in-frame frame-sp n (%current-tcr) value)))
+        (format *debug-io* "No frame with number ~D~%" frame))))
 
 (define-toplevel-command :global ? () "help"