From 3ffee49d000d27f9af5e74fef540ab345ead4332 Mon Sep 17 00:00:00 2001
From: Matthias Benkard <code@mail.matthias.benkard.de>
Date: Tue, 5 Feb 2008 23:05:35 +0100
Subject: Make PRINT-OBJECT behave a bit nicer for instances of type ID.

darcs-hash:a46e3bf12db7d3f59655da9e37d16a64c0577e00
---
 Lisp/utilities.lisp | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'Lisp/utilities.lisp')

diff --git a/Lisp/utilities.lisp b/Lisp/utilities.lisp
index 5310f91..8b0ac5c 100644
--- a/Lisp/utilities.lisp
+++ b/Lisp/utilities.lisp
@@ -241,8 +241,8 @@ invocations will return numbers.)
     (if (cffi:pointer-eq pointer (pointer-to +nil+))
         (format stream "#.~S" '+nil+)
         (print-unreadable-object (object stream)
-          (format stream "~A `~A' {~X}"
-                  (objc-class-name (primitive-invoke object "class" 'id))
+          (format stream "~S `~A' {~X}"
+                  (type-of object)
                   (primitive-invoke (primitive-invoke object "description" 'id)
                                     "UTF8String" :string)
                   (cffi:pointer-address pointer))))))
-- 
cgit v1.2.3