Changeset 822

Timestamp:

Jun 5, 2004, 10:56:34 PM (20 years ago)

Author:

Gary Byers

Message:

Don't pass (%CURRENT-TCR) to stack-walking functions in break loop commands.

File:

• trunk/ccl/level-1/l1-readloop-lds.lisp (modified) (2 diffs)

trunk/ccl/level-1/l1-readloop-lds.lisp

@@ -97 +97 @@
 ;;; 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))))
+  (let* ((frame-sp (nth-raw-frame frame *break-frame* nil)))
     (if frame-sp
-        (toplevel-print (list (set-nth-value-in-frame frame-sp n (%current-tcr) value)))
+        (toplevel-print (list (set-nth-value-in-frame frame-sp n nil value)))
         (format *debug-io* "No frame with number ~D~%" frame))))
 
@@ -126 +126 @@
 
 (define-toplevel-command :break v (n frame-number) "Return value <n> in frame <frame-number>"
-  (let* ((frame-sp (nth-raw-frame frame-number *break-frame* (%current-tcr))))
+  (let* ((frame-sp (nth-raw-frame frame-number *break-frame* nil)))
     (if frame-sp
-      (toplevel-print (list (nth-value-in-frame frame-sp n (%current-tcr)))))))
+      (toplevel-print (list (nth-value-in-frame frame-sp n nil))))))
 
 (defun %use-toplevel-commands (group-name)