[slime-cvs] CVS update: slime/slime.el

[Alan Ruttenberg]

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

Modified Files:
	slime.el 
Log Message:
fix bug in sldb-princ-locals I introduced when adding fonts to sldb.

Date: Sun Dec 21 04:21:28 2003
Author: aruttenberg

Index: slime/slime.el
diff -u slime/slime.el:1.156 slime/slime.el:1.157
--- slime/slime.el:1.156	Fri Dec 19 01:05:16 2003
+++ slime/slime.el	Sun Dec 21 04:21:27 2003
@@ -3913,7 +3913,9 @@
 (defun sldb-princ-locals (frame prefix)
   (dolist (l (sldb-frame-locals frame))
     (insert prefix)
-    (insert (in-sldb-face local-name (setq it (plist-get l :symbol))))
+    (let ((symbol (plist-get l :symbol)))
+      (when (symbolp symbol) (setq symbol (symbol-name symbol)))
+      (insert (in-sldb-face local-name symbol)))
     (let ((id (plist-get l :id)))
       (unless (zerop id) (insert (in-sldb-face local-name "#") (in-sldb-face local-name id))))
     (insert " = ")