From dbc13eadd5c4885e8d2fa13858c748f09273ce41 Mon Sep 17 00:00:00 2001
From: Matthias Benkard <code@mail.matthias.benkard.de>
Date: Fri, 3 Aug 2007 21:50:04 +0200
Subject: Improve PRINT-OBJECT for Objective C instances.

darcs-hash:3e5eafa108d70344caf891757f23d27a7e9ab909
---
 objcl.lisp | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

(limited to 'objcl.lisp')

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)
-- 
cgit v1.2.3