Changeset 9760 for release


Ignore:
Timestamp:
Jun 16, 2008, 9:57:37 AM (11 years ago)
Author:
gb
Message:

Lose an extraneous COERCE-FROM-BOOL call in %RELOAD-OBJC-FRAMEWORK;
use OBJC-MESSAGE-SEND (not SEND) to send bundleWithPath: during
initialization.

File:
1 edited

Legend:

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

    r9200 r9760  
    433433        (with-nsstr (nsnamestring cnamestring (length namestring))
    434434          (with-autorelease-pool
    435               (let* ((bundle (send (@class "NSBundle")
    436                                    :bundle-with-path nsnamestring)))
     435              (let* ((bundle (objc-message-send (@class "NSBundle")
     436                                                "bundleWithPath:"
     437                                                :id nsnamestring :id)))
    437438                (unless (%null-ptr-p bundle)
    438                   (coerce-from-bool
    439                    (objc-message-send bundle "load" :<BOOL>))))))))))
     439                  (objc-message-send bundle "load" :<BOOL>)))))))))
    440440
    441441
Note: See TracChangeset for help on using the changeset viewer.