Changeset 6248

Timestamp:

Apr 9, 2007, 9:08:12 PM (13 years ago)

Author:

gb

Message:

ALLOCATE-INSTANCE of OBJC:OBJC:CLASS: if the result of sending the
init message is a null pointer, return a null pointer.

File:

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

trunk/ccl/examples/objc-clos.lisp

@@ -753 +753 @@
             (setf (slot-vector.instance slot-vector) raw-ptr)
             (setf (gethash raw-ptr *objc-object-slot-vectors*) slot-vector)
-            (register-canonical-objc-instance instance raw-ptr))))
-      instance)))
+            (register-canonical-objc-instance instance raw-ptr)))))
+    instance))
 
 (defmethod terminate ((instance objc:objc-object))