Changeset 457

Timestamp:

Feb 1, 2004, 11:41:08 AM (21 years ago)

Author:

beer

Message:

PRINT-OBJECT shouldn't die when given an OBJC-OBJECT whose ObjC part has "gone away"

File:

• trunk/ccl/examples/objc-clos.lisp (modified) (1 diff)

trunk/ccl/examples/objc-clos.lisp

@@ -216 +216 @@
 
 (defmethod print-object ((o objc:objc-object) stream)
-  (print-unreadable-object (o stream :type t)
-    (format stream
-            (if (typep o 'ns::ns-string)
-              "~s (#x~x)"
-              "~a (#x~x)")
-            (nsobject-description o) (%ptr-to-int o))))
+  (if (objc-object-p o)
+      (print-unreadable-object (o stream :type t)
+        (format stream
+                (if (typep o 'ns::ns-string)
+                    "~s (#x~x)"
+                  "~a (#x~x)")
+                (nsobject-description o) (%ptr-to-int o)))
+    (format stream "#<Bogus ObjC Object #x~X>" (%ptr-to-int o))))