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

[Luke Gorrie]

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

Modified Files:
	swank-backend.lisp 
Log Message:
(unbound-slot-filler): New structure for representing an unbound slot
in the inspector functions.

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

Index: slime/swank-backend.lisp
diff -u slime/swank-backend.lisp:1.55 slime/swank-backend.lisp:1.56
--- slime/swank-backend.lisp:1.55	Sun Jun 20 23:14:58 2004
+++ slime/swank-backend.lisp	Mon Jun 21 23:24:17 2004
@@ -25,7 +25,7 @@
            #:position-pos
            #:print-output-to-string
            #:quit-lisp
-           ))
+           #:unbound-slot-filler))
 
 (in-package :swank-backend)
 
@@ -509,6 +509,13 @@
 
 
 ;;;; Inspector
+
+(defstruct (unbound-slot-filler
+             (:print-object 
+              (lambda (obj stream)
+                (print-unreadable-object (obj stream :type t)))))
+  "The definition of an object which serves as a placeholder in
+an unbound slot for inspection purposes.")
 
 (definterface inspected-parts (object)
   "Return a short description and a list of (LABEL . VALUE) pairs."