Changeset 6248


Ignore:
Timestamp:
Apr 9, 2007, 9:08:12 PM (12 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:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/ccl/examples/objc-clos.lisp

    r6226 r6248  
    753753            (setf (slot-vector.instance slot-vector) raw-ptr)
    754754            (setf (gethash raw-ptr *objc-object-slot-vectors*) slot-vector)
    755             (register-canonical-objc-instance instance raw-ptr))))
    756       instance)))
     755            (register-canonical-objc-instance instance raw-ptr)))))
     756    instance))
    757757
    758758(defmethod terminate ((instance objc:objc-object))
Note: See TracChangeset for help on using the changeset viewer.