Further improve PRINT-OBJECT output.

darcs-hash:a665c03ddf1a03161b3aef04f3199bd82df92aea

1 files changed, 4 insertions, 1 deletions

diff --git a/objcl.lisp b/objcl.lisp
index f2af9e9..ee8446e 100644
--- a/objcl.lisp
+++ b/objcl.lisp
@@ -344,9 +344,12 @@
 
 (defmethod print-object ((object objc-id) stream)
   (print-unreadable-object (object stream)
-    (format stream "~A {~X}"
+    (format stream "~A `~A' {~X}"
             (objcl-class-name
              (objcl-invoke-class-method object "class"))
+            (objcl-invoke-class-method
+             (objcl-invoke-class-method object "description")
+             "UTF8String")
             (objcl-invoke-class-method object "hash"))))