diff options
-rw-r--r-- | objcl.lisp | 5 |
1 files changed, 3 insertions, 2 deletions
@@ -344,9 +344,10 @@ (defmethod print-object ((object objc-id) stream) (print-unreadable-object (object stream) - (format stream "~A OBJC-ID" + (format stream "~A {~X}" (objcl-class-name - (objcl-invoke-instance-method object "class"))))) + (objcl-invoke-class-method object "class")) + (objcl-invoke-class-method object "hash")))) (defmethod print-object ((object objc-class) stream) |