From e006ad3191ca52a8d24058ef4ab152e7b2f63e05 Mon Sep 17 00:00:00 2001 Message-Id: From: Mark Wooding Date: Thu, 2 Feb 2006 22:48:53 +0000 Subject: [PATCH] Fixed a couple of CMUCL specific bugs Organization: Straylight/Edgeware From: espen --- examples/ginspect.lisp | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/examples/ginspect.lisp b/examples/ginspect.lisp index 3ff76e4..3180984 100644 --- a/examples/ginspect.lisp +++ b/examples/ginspect.lisp @@ -20,7 +20,7 @@ ;; TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE ;; SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. -;; $Id: ginspect.lisp,v 1.5 2005-04-23 16:48:49 espen Exp $ +;; $Id: ginspect.lisp,v 1.6 2006-02-02 22:48:53 espen Exp $ (in-package :gtk) @@ -81,7 +81,7 @@ (defmethod decompose-describe-object ((object t)) (if (equal parts (list object)) (values description nil nil) (values description named-p parts))) - (sb-impl::inspected-parts object)) + #+sbcl(sb-impl::inspected-parts object)) (defmethod decompose-describe-object ((object (eql t))) (values (call-next-method) nil nil)) @@ -109,7 +109,7 @@ (defmethod decompose-describe-object ((object symbol)) (values (call-next-method) t (cons "Name" (symbol-name object)) - (cons "Package" (symbol-package objecy)) + (cons "Package" (symbol-package object)) (cons "Value" (if (boundp object) (symbol-value object) *ginspect-unbound-object-marker*)) -- [mdw]