Changeset 8379


Ignore:
Timestamp:
Jan 31, 2008, 4:22:26 AM (12 years ago)
Author:
rme
Message:

Signal an error from ALLOCATE-INSTANCE when an Objective-C init
message returns a null pointer.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/objc-bridge/objc-clos.lisp

    r8201 r8379  
    730730                                                       initargs))
    731731            (send-objc-init-message (allocate-objc-object class) ks vs))))
    732     (unless (%null-ptr-p instance)
     732    (if (%null-ptr-p instance)
     733      (error "Got null pointer when trying to init instance of Objective-C class ~s with initargs ~s"
     734             class (remove-slot-initargs class initargs))
    733735      (or (gethash instance *objc-object-slot-vectors*)
    734736          (let* ((slot-vector (create-foreign-instance-slot-vector class)))
Note: See TracChangeset for help on using the changeset viewer.