Changeset 11597
- Timestamp:
- Jan 7, 2009, 10:55:15 AM (11 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/source/objc-bridge/objc-clos.lisp
r10457 r11597 720 720 (defmethod make-instance ((class objc:objc-class-object) &rest initargs) 721 721 (let ((instance (apply #'allocate-instance class initargs))) 722 (apply #'initialize-instance instance initargs))) 722 (if (%null-ptr-p instance) 723 instance 724 (apply #'initialize-instance instance initargs)))) 723 725 724 726 … … 753 755 initargs)) 754 756 (send-objc-init-message (allocate-objc-object class) ks vs)))) 755 (if (%null-ptr-p instance) 756 (error "Got null pointer when trying to init instance of Objective-C class ~s with initargs ~s" 757 class (remove-slot-initargs class initargs)) 757 (unless (%null-ptr-p instance) 758 758 (or (gethash instance *objc-object-slot-vectors*) 759 759 (let* ((slot-vector (create-foreign-instance-slot-vector class)))
Note: See TracChangeset
for help on using the changeset viewer.