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

Diff of /slime/swank-sbcl.lisp

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

revision 1.72 by heller, Thu Mar 4 22:15:40 2004 UTC revision 1.73 by mbaringer, Fri Mar 5 14:26:14 2004 UTC
# Line 585  stack." Line 585  stack."
585      (declare (type (or null simple-vector) debug-variables))      (declare (type (or null simple-vector) debug-variables))
586      (loop for v across debug-variables      (loop for v across debug-variables
587            collect (list            collect (list
588                     :name (to-string (sb-di:debug-var-symbol v))                     :name (sb-di:debug-var-symbol v)
589                     :id (sb-di:debug-var-id v)                     :id (sb-di:debug-var-id v)
590                     :value-string                     :value (if (eq (sb-di:debug-var-validity v location)
591                     (if (eq (sb-di:debug-var-validity v location)                                    :valid)
592                             :valid)                                (sb-di:debug-var-value v frame)
593                         (to-string (sb-di:debug-var-value v frame))                                "<not-available>")))))
                        "<not-available>")))))  
594    
595  (defimplementation frame-catch-tags (index)  (defimplementation frame-catch-tags (index)
596    (loop for (tag . code-location) in (sb-di:frame-catches (nth-frame index))    (loop for (tag . code-location) in (sb-di:frame-catches (nth-frame index))

Legend:
Removed from v.1.72  
changed lines
  Added in v.1.73

  ViewVC Help
Powered by ViewVC 1.1.5