Changeset 8035


Ignore:
Timestamp:
Jan 10, 2008, 8:18:47 AM (12 years ago)
Author:
gb
Message:

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

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/working-0711/ccl/level-1/l1-readloop-lds.lisp

    r7788 r8035  
    141141                       :count 1
    142142                       :detailed-p t))
     143
     144(define-toplevel-command :break return-from-frame (i &rest values) "Return VALUES from the I'th stack frame"
     145  (let* ((frame-sp (nth-raw-frame  i *break-frame* nil)))
     146    (if frame-sp
     147      (apply #'return-from-frame frame-sp values))))
     148
     149(define-toplevel-command :break apply-in-frame (i function &rest args) "Applies FUNCTION to ARGS in the execution context of the Ith stack frame"
     150  (let* ((frame-sp (nth-raw-frame  i *break-frame* nil)))
     151    (if frame-sp
     152      (apply-in-frame frame-sp function args))))
     153                         
     154                         
    143155
    144156(define-toplevel-command :break raw (n) "Show raw contents of backtrace frame <n>"
Note: See TracChangeset for help on using the changeset viewer.