Changeset 15563


Ignore:
Timestamp:
Jan 6, 2013, 12:32:40 AM (6 years ago)
Author:
rme
Message:

Hacky workaround in process-init-message so that it won't choke on
class names in the interface database that aren't available in the
run-time environment.

File:
1 edited

Legend:

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

    r15544 r15563  
    139139                       (not (or (memq :class flags)
    140140                                (memq :protocol flags)))))
    141             (let* ((class (canonicalize-registered-class
    142                            (find-objc-class (objc-method-info-class-name method)))))
    143               (pushnew keyinfo (gethash class *class-init-keywords*)
    144                        :test #'equal))))))))
     141            (with-cstrs ((s (objc-method-info-class-name method)))
     142              (unless (%null-ptr-p (#_objc_lookUpClass s))
     143                (let* ((class (canonicalize-registered-class
     144                               (find-objc-class (objc-method-info-class-name method)))))
     145                  (pushnew keyinfo (gethash class *class-init-keywords*)
     146                           :test #'equal))))))))))
    145147
    146148(register-objc-init-messages)
Note: See TracChangeset for help on using the changeset viewer.