[Openmcl-cvs-notifications] r12314 - /trunk/source/objc-bridge/objc-clos.lisp

[gb at clozure.com]

Author: gb
Date: Sun Jun 28 04:57:20 2009
New Revision: 12314

Log:
Tweak the PRINT-OBJECT method on OBJC:OBJECT.

Modified:
    trunk/source/objc-bridge/objc-clos.lisp

Modified: trunk/source/objc-bridge/objc-clos.lisp
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D
--- trunk/source/objc-bridge/objc-clos.lisp (original)
+++ trunk/source/objc-bridge/objc-clos.lisp Sun Jun 28 04:57:20 2009
@@ -289,7 +289,8 @@
   (if (objc-object-p o)
     (print-unreadable-object (o stream :type t)
       (format stream
-              (if (typep o 'ns::ns-string)
+              (if (and (typep o 'ns::ns-string)
+                       (initialized-nsobject-p o))
                 "~s (#x~x)"
                 "~a (#x~x)")
               (nsobject-description o) (%ptr-to-int o)))