From: espen <espen>
Date: Sun, 27 Feb 2005 23:33:34 +0000 (+0000)
Subject: Bug fix
X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~mdw/git/clg/commitdiff_plain/b506b3db34d2b253d0d6b175aac8b5613f76a360

Bug fix
---

diff --git a/examples/ginspect.lisp b/examples/ginspect.lisp
index f16abd1..9aa69b9 100644
--- a/examples/ginspect.lisp
+++ b/examples/ginspect.lisp
@@ -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)
-				 *inspect-unbound-object-marker*)))
+				 *ginspect-unbound-object-marker*)))
 	      (cons (string slot-name) slot-value)))))