Changeset 8035

Timestamp:

Jan 10, 2008, 12:18:47 AM (17 years ago)

Author:

Gary Byers

Message:

Break-loop commands for :apply-in-frame, :return-from-frame.

File:

• branches/working-0711/ccl/level-1/l1-readloop-lds.lisp (modified) (1 diff)

branches/working-0711/ccl/level-1/l1-readloop-lds.lisp

@@ -141 +141 @@
                        :count 1
                        :detailed-p t))
+
+(define-toplevel-command :break return-from-frame (i &rest values) "Return VALUES from the I'th stack frame"
+  (let* ((frame-sp (nth-raw-frame  i *break-frame* nil)))
+    (if frame-sp
+      (apply #'return-from-frame frame-sp values))))
+
+(define-toplevel-command :break apply-in-frame (i function &rest args) "Applies FUNCTION to ARGS in the execution context of the Ith stack frame"
+  (let* ((frame-sp (nth-raw-frame  i *break-frame* nil)))
+    (if frame-sp
+      (apply-in-frame frame-sp function args))))
+                         
+                         
 
 (define-toplevel-command :break raw (n) "Show raw contents of backtrace frame <n>"