[slime-cvs] CVS slime

[CVS User heller]

Update of /project/slime/cvsroot/slime
In directory cl-net:/tmp/cvs-serv8260

Modified Files:
	ChangeLog swank.lisp 
Log Message:
Don't try to bind keywords in inspector-eval.

* swank.lisp (inspector-eval): For now, don't bind symbols which
are constantp.  Maybe something better can be found later.

--- /project/slime/cvsroot/slime/ChangeLog	2010/03/03 11:56:44	1.2008
+++ /project/slime/cvsroot/slime/ChangeLog	2010/03/03 11:56:52	1.2009
@@ -183,6 +183,13 @@
 
 2010-03-03  Helmut Eller  <heller at common-lisp.net>
 
+	Don't try to bind keywords in inspector-eval.
+
+	* swank.lisp (inspector-eval): For now, don't bind symbols which
+	are constantp.  Maybe something better can be found later.
+
+2010-03-03  Helmut Eller  <heller at common-lisp.net>
+
 	Use @ instead of # to mark object in the inspect history.
 
 	* swank.lisp (print-part-to-string): Use @.
--- /project/slime/cvsroot/slime/swank.lisp	2010/03/03 11:56:44	1.693
+++ /project/slime/cvsroot/slime/swank.lisp	2010/03/03 11:56:52	1.694
@@ -3323,7 +3323,8 @@
                  (read-from-string string)))
          (ignorable (remove-if #'boundp (mapcar #'car context))))
     (to-string (eval `(let ((* ',obj) (- ',form)
-                            . ,(loop for (var . val) in context collect
+                            . ,(loop for (var . val) in context 
+                                     unless (constantp var) collect 
                                      `(,var ',val)))
                         (declare (ignorable . ,ignorable))
                         ,form)))))