diff options
| -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)))))) |