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

Diff of /slime/swank.lisp

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

revision 1.801 by sboukarev, Thu Dec 27 20:22:35 2012 UTC revision 1.802 by heller, Wed Jan 9 14:29:57 2013 UTC
# Line 2328  TAGS has is a list of strings." Line 2328  TAGS has is a list of strings."
2328    (with-bindings *backtrace-printer-bindings*    (with-bindings *backtrace-printer-bindings*
2329      (loop for var in (frame-locals index) collect      (loop for var in (frame-locals index) collect
2330            (destructuring-bind (&key name id value) var            (destructuring-bind (&key name id value) var
2331              (list :name (prin1-to-string name)              (list :name (let ((*package* (or (frame-package index) *package*)))
2332                              (prin1-to-string name))
2333                    :id id                    :id id
2334                    :value (to-line value *print-right-margin*))))))                    :value (to-line value *print-right-margin*))))))
2335    

Legend:
Removed from v.1.801  
changed lines
  Added in v.1.802

  ViewVC Help
Powered by ViewVC 1.1.5