summaryrefslogtreecommitdiff
path: root/Lisp
diff options
context:
space:
mode:
authorMatthias Benkard <code@mail.matthias.benkard.de>2008-02-05 23:05:35 +0100
committerMatthias Benkard <code@mail.matthias.benkard.de>2008-02-05 23:05:35 +0100
commit3ffee49d000d27f9af5e74fef540ab345ead4332 (patch)
tree73a4644677678a2eab68bb544682a795c95cf24f /Lisp
parent2f1df9d277d2c5e38cf162dadf170074c0d20526 (diff)
Make PRINT-OBJECT behave a bit nicer for instances of type ID.
darcs-hash:a46e3bf12db7d3f59655da9e37d16a64c0577e00
Diffstat (limited to 'Lisp')
-rw-r--r--Lisp/utilities.lisp4
1 files changed, 2 insertions, 2 deletions
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))))))