[slime-cvs] CVS update: slime/swank.lisp

[Helmut Eller]

Update of /project/slime/cvsroot/slime
In directory common-lisp.net:/tmp/cvs-serv28749

Modified Files:
	swank.lisp 
Log Message:
(frame-locals-for-emacs): Bind *print-readably* to nil.
Date: Fri Mar  5 17:51:13 2004
Author: heller

Index: slime/swank.lisp
diff -u slime/swank.lisp:1.136 slime/swank.lisp:1.137
--- slime/swank.lisp:1.136	Fri Mar  5 09:26:14 2004
+++ slime/swank.lisp	Fri Mar  5 17:51:12 2004
@@ -860,15 +860,14 @@
   (to-string (eval-in-frame (from-string string) index)))
 
 (defun frame-locals-for-emacs (frame-index)
-  (mapcar (lambda (frame-locals)
-            (loop
-               for (key value) on frame-locals by #'cddr
-               collect key
-               if (member key (list :name :value))
-                 collect (to-string value)
-               else
-                 collect value))
-          (frame-locals frame-index)))
+  (let ((*print-readably* nil)
+        (*print-pretty* t)
+        (*print-circle* t))
+    (mapcar (lambda (frame-locals)
+              (destructuring-bind (&key name id value) frame-locals
+                (list :name (princ-to-string name) :id id
+                      :value (to-string value))))
+            (frame-locals frame-index))))
 
 
 ;;;; Evaluation