From d785d3cd4cbca64fcd840e078540c7c2203445b9 Mon Sep 17 00:00:00 2001
From: Matthias Benkard <code@mail.matthias.benkard.de>
Date: Fri, 3 Aug 2007 22:01:32 +0200
Subject: Further improve PRINT-OBJECT output.

darcs-hash:a665c03ddf1a03161b3aef04f3199bd82df92aea
---
 objcl.lisp | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

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