[slime-cvs] CVS slime

[CVS User heller]

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

Modified Files:
	ChangeLog swank.lisp 
Log Message:
* swank.lisp (frame-locals-for-emacs): Print variable names in frame-package.

--- /project/slime/cvsroot/slime/ChangeLog	2013/01/09 14:29:27	1.2384
+++ /project/slime/cvsroot/slime/ChangeLog	2013/01/09 14:29:50	1.2385
@@ -1,5 +1,10 @@
 2013-01-09  Helmut Eller  <heller at common-lisp.net>
 
+	* swank.lisp (frame-locals-for-emacs): Print variable names in
+	frame-package.
+
+2013-01-09  Helmut Eller  <heller at common-lisp.net>
+
 	* swank-sbcl.lisp (frame-debug-vars): Only include :valid locals.
 	(*keep-non-valid-locals*): New.
 	(frame-package): New.
--- /project/slime/cvsroot/slime/swank.lisp	2012/12/27 20:22:35	1.801
+++ /project/slime/cvsroot/slime/swank.lisp	2013/01/09 14:29:57	1.802
@@ -2328,7 +2328,8 @@
   (with-bindings *backtrace-printer-bindings*
     (loop for var in (frame-locals index) collect
           (destructuring-bind (&key name id value) var
-            (list :name (prin1-to-string name)
+            (list :name (let ((*package* (or (frame-package index) *package*)))
+                          (prin1-to-string name))
                   :id id
                   :value (to-line value *print-right-margin*))))))