summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorMatthias Benkard <code@mail.matthias.benkard.de>2007-08-03 21:50:04 +0200
committerMatthias Benkard <code@mail.matthias.benkard.de>2007-08-03 21:50:04 +0200
commitdbc13eadd5c4885e8d2fa13858c748f09273ce41 (patch)
tree1702bda280d37e106d2bfab040521ac24315cd7d
parenta3d0b13efd8f90d9c417b927f29e36aa251227df (diff)
Improve PRINT-OBJECT for Objective C instances.
darcs-hash:3e5eafa108d70344caf891757f23d27a7e9ab909
-rw-r--r--objcl.lisp5
1 files changed, 3 insertions, 2 deletions
diff --git a/objcl.lisp b/objcl.lisp
index 52e73e7..f2af9e9 100644
--- a/objcl.lisp
+++ b/objcl.lisp
@@ -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)