diff options
| author | Matthias Benkard <code@mail.matthias.benkard.de> | 2008-02-05 23:05:35 +0100 |
|---|---|---|
| committer | Matthias Benkard <code@mail.matthias.benkard.de> | 2008-02-05 23:05:35 +0100 |
| commit | 3ffee49d000d27f9af5e74fef540ab345ead4332 (patch) | |
| tree | 73a4644677678a2eab68bb544682a795c95cf24f | |
| parent | 2f1df9d277d2c5e38cf162dadf170074c0d20526 (diff) | |
Make PRINT-OBJECT behave a bit nicer for instances of type ID.
darcs-hash:a46e3bf12db7d3f59655da9e37d16a64c0577e00
| -rw-r--r-- | Lisp/utilities.lisp | 4 |
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)))))) |