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

Diff of /slime/swank-allegro.lisp

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

revision 1.18 by heller, Thu Mar 4 22:15:40 2004 UTC revision 1.19 by mbaringer, Fri Mar 5 14:26:14 2004 UTC
# Line 156  Line 156 
156  (defimplementation frame-locals (index)  (defimplementation frame-locals (index)
157    (let ((frame (nth-frame index)))    (let ((frame (nth-frame index)))
158      (loop for i from 0 below (debugger:frame-number-vars frame)      (loop for i from 0 below (debugger:frame-number-vars frame)
159            collect (list :name (to-string (debugger:frame-var-name frame i))            collect (list :name (debugger:frame-var-name frame i)
160                          :id 0                          :id 0
161                          :value-string                          :value (debugger:frame-var-value frame i)))))
                         (to-string (debugger:frame-var-value frame i))))))  
162    
163  (defimplementation frame-catch-tags (index)  (defimplementation frame-catch-tags (index)
164    (declare (ignore index))    (declare (ignore index))

Legend:
Removed from v.1.18  
changed lines
  Added in v.1.19

  ViewVC Help
Powered by ViewVC 1.1.5