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

Diff of /slime/swank.lisp

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

revision 1.136 by mbaringer, Fri Mar 5 14:26:14 2004 UTC revision 1.137 by heller, Fri Mar 5 22:51:12 2004 UTC
# Line 860  has changed, ignore the request." Line 860  has changed, ignore the request."
860    (to-string (eval-in-frame (from-string string) index)))    (to-string (eval-in-frame (from-string string) index)))
861    
862  (defun frame-locals-for-emacs (frame-index)  (defun frame-locals-for-emacs (frame-index)
863    (mapcar (lambda (frame-locals)    (let ((*print-readably* nil)
864              (loop          (*print-pretty* t)
865                 for (key value) on frame-locals by #'cddr          (*print-circle* t))
866                 collect key      (mapcar (lambda (frame-locals)
867                 if (member key (list :name :value))                (destructuring-bind (&key name id value) frame-locals
868                   collect (to-string value)                  (list :name (princ-to-string name) :id id
869                 else                        :value (to-string value))))
870                   collect value))              (frame-locals frame-index))))
           (frame-locals frame-index)))  
871    
872    
873  ;;;; Evaluation  ;;;; Evaluation

Legend:
Removed from v.1.136  
changed lines
  Added in v.1.137

  ViewVC Help
Powered by ViewVC 1.1.5