/[slime]/slime/swank-cmucl.lisp
ViewVC logotype

Diff of /slime/swank-cmucl.lisp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.206 by heller, Sun Jan 4 20:53:30 2009 UTC revision 1.207 by heller, Thu Jan 8 06:45:29 2009 UTC
# Line 1553  A utility for debugging DEBUG-FUNCTION-A Line 1553  A utility for debugging DEBUG-FUNCTION-A
1553    (let* ((frame (nth-frame index))    (let* ((frame (nth-frame index))
1554           (loc (di:frame-code-location frame))           (loc (di:frame-code-location frame))
1555           (vars (frame-debug-vars frame)))           (vars (frame-debug-vars frame)))
1556      (loop for v across vars collect      (loop for v across vars
1557            (list :name (di:debug-variable-symbol v)            when (eq (di:debug-variable-validity v loc) :valid)
1558                  :id (di:debug-variable-id v)            collect (list :name (di:debug-variable-symbol v)
1559                  :value (debug-var-value v frame loc)))))                          :id (di:debug-variable-id v)
1560                            :value (di:debug-variable-valid-value v frame)))))
1561    
1562  (defimplementation frame-var-value (frame var)  (defimplementation frame-var-value (frame var)
1563    (let* ((frame (nth-frame frame))    (let* ((frame (nth-frame frame))

Legend:
Removed from v.1.206  
changed lines
  Added in v.1.207

  ViewVC Help
Powered by ViewVC 1.1.5