[slime-cvs] CVS update: slime/swank.lisp slime/swank-allegro.lisp

[Luke Gorrie]

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

Modified Files:
	swank.lisp swank-allegro.lisp 
Log Message:
Use `unbound-slot-filler' for unbound inspector slots.

Date: Mon Jun 21 23:24:48 2004
Author: lgorrie

Index: slime/swank.lisp
diff -u slime/swank.lisp:1.200 slime/swank.lisp:1.201
--- slime/swank.lisp:1.200	Mon Jun 21 22:52:47 2004
+++ slime/swank.lisp	Mon Jun 21 23:24:48 2004
@@ -2208,6 +2208,9 @@
                       o)
              pairs))))
 
+(defmethod inspected-parts ((o unbound-slot-filler))
+  (values "This slot is unbound" nil))
+
 (defslimefun inspect-in-frame (string index)
   (with-buffer-syntax ()
     (reset-inspector)


Index: slime/swank-allegro.lisp
diff -u slime/swank-allegro.lisp:1.37 slime/swank-allegro.lisp:1.38
--- slime/swank-allegro.lisp:1.37	Fri Jun 18 12:27:37 2004
+++ slime/swank-allegro.lisp	Mon Jun 21 23:24:48 2004
@@ -280,7 +280,9 @@
             (mapcar (lambda (slot)
                       (let ((name (clos:slot-definition-name slot)))
                         (cons (princ-to-string name)
-                              (slot-value o name))))
+                              (if (slot-boundp o name)
+                                  (slot-value o name)
+                                  (make-unbound-slot-filler)))))
                     slots))))
 
 ;;;; Multithreading