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

Diff of /slime/swank-ecl.lisp

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

revision 1.80 by heller, Mon Jan 7 10:12:09 2013 UTC revision 1.81 by heller, Thu Jan 10 11:46:42 2013 UTC
# Line 499  Line 499 
499    (third (elt *backtrace* frame-number)))    (third (elt *backtrace* frame-number)))
500    
501  (defimplementation frame-locals (frame-number)  (defimplementation frame-locals (frame-number)
502    (loop for (name . value) in (nth-value 2 (frame-decode-env    (loop for (name . value) in (nth-value 2 (frame-decode-env
503                                              (elt *backtrace* frame-number)))                                              (elt *backtrace* frame-number)))
504          with i = 0          collect (list :name name :id 0 :value value)))
         collect (list :name name :id (prog1 i (incf i)) :value value)))  
505    
506  (defimplementation frame-var-value (frame-number var-id)  (defimplementation frame-var-value (frame-number var-number)
507    (elt (nth-value 2 (frame-decode-env (elt *backtrace* frame-number)))    (destructuring-bind (name . value)
508         var-id))        (elt
509           (nth-value 2 (frame-decode-env (elt *backtrace* frame-number)))
510           var-number)
511        (declare (ignore name))
512        value))
513    
514  (defimplementation disassemble-frame (frame-number)  (defimplementation disassemble-frame (frame-number)
515    (let ((fun (frame-function (elt *backtrace* frame-number))))    (let ((fun (frame-function (elt *backtrace* frame-number))))

Legend:
Removed from v.1.80  
changed lines
  Added in v.1.81

  ViewVC Help
Powered by ViewVC 1.1.5