[slime-cvs] CVS slime
CVS User heller
heller at common-lisp.net
Wed Jan 9 14:29:58 UTC 2013
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*))))))
More information about the slime-cvs
mailing list