INVOKE-WITH-CONVERSION: Support arrays, structs, and unions, and convert Lisp objects into Objective-C instances automatically.

darcs-hash:decc92c91c315c1e347b9f5327bfb6e21ccca9a8

1 files changed, 9 insertions, 7 deletions

diff --git a/Lisp/utilities.lisp b/Lisp/utilities.lisp
index 710ac94..a81b61c 100644
--- a/Lisp/utilities.lisp
+++ b/Lisp/utilities.lisp
@@ -94,13 +94,15 @@
 
 ;;; (@* "Object Representation")
 (defmethod print-object ((object id) stream)
-  (print-unreadable-object (object stream)
-    (with-slots (pointer) object
-      (format stream "~A `~A' {~X}"
-              (objcl-class-name (primitive-invoke object "class" 'id))
-              (primitive-invoke (primitive-invoke object "description" 'id)
-                                "UTF8String" :string)
-              (cffi:pointer-address pointer)))))
+  (with-slots (pointer) object
+    (if (cffi:pointer-eq pointer (pointer-to +nil+))
+        (format stream "#.~S" '+nil+)
+        (print-unreadable-object (object stream)
+          (format stream "~A `~A' {~X}"
+                  (objcl-class-name (primitive-invoke object "class" 'id))
+                  (primitive-invoke (primitive-invoke object "description" 'id)
+                                    "UTF8String" :string)
+                  (cffi:pointer-address pointer))))))
 
 
 (defmethod print-object ((class objc-class) stream)