chiark / gitweb /
Bug fix
authorespen <espen>
Sun, 27 Feb 2005 23:33:34 +0000 (23:33 +0000)
committerespen <espen>
Sun, 27 Feb 2005 23:33:34 +0000 (23:33 +0000)
examples/ginspect.lisp

index f16abd1..9aa69b9 100644 (file)
@@ -103,7 +103,7 @@ (defmethod decompose-describe-object ((object standard-object))
     collect (let* ((slot-name (pcl:slot-definition-name slotd))
                   (slot-value (if (slot-boundp object slot-name)
                                   (slot-value object slot-name)
     collect (let* ((slot-name (pcl:slot-definition-name slotd))
                   (slot-value (if (slot-boundp object slot-name)
                                   (slot-value object slot-name)
-                                *inspect-unbound-object-marker*)))
+                                *ginspect-unbound-object-marker*)))
              (cons (string slot-name) slot-value)))))
 
 
              (cons (string slot-name) slot-value)))))