[slime-cvs] CVS slime

[alendvai]

Update of /project/slime/cvsroot/slime
In directory clnet:/tmp/cvs-serv6708

Modified Files:
	swank.lisp 
Log Message:
FIX: bind *sldb-printer-bindings* also in frame-locals-for-emacs


--- /project/slime/cvsroot/slime/swank.lisp	2007/01/03 11:18:44	1.448
+++ /project/slime/cvsroot/slime/swank.lisp	2007/01/04 16:25:53	1.449
@@ -2957,11 +2957,12 @@
 (defslimefun frame-locals-for-emacs (index)
   "Return a property list ((&key NAME ID VALUE) ...) describing
 the local variables in the frame INDEX."
-  (mapcar (lambda (frame-locals)
-            (destructuring-bind (&key name id value) frame-locals
-              (list :name (prin1-to-string name) :id id
-                    :value (to-string value))))
-          (frame-locals index)))
+  (with-bindings *sldb-printer-bindings*
+    (mapcar (lambda (frame-locals)
+              (destructuring-bind (&key name id value) frame-locals
+                (list :name (prin1-to-string name) :id id
+                      :value (to-string value))))
+            (frame-locals index))))
 
 (defslimefun frame-catch-tags-for-emacs (frame-index)
   (mapcar #'to-string (frame-catch-tags frame-index)))