Changeset 9761


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

Propagate r9760 to trunk.

File:
1 edited

Legend:

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

    r9141 r9761  
    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.