Changeset 9760
- Timestamp:
- Jun 16, 2008, 9:57:37 AM (13 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
release/1.2/source/objc-bridge/objc-support.lisp
r9200 r9760 433 433 (with-nsstr (nsnamestring cnamestring (length namestring)) 434 434 (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))) 437 438 (unless (%null-ptr-p bundle) 438 (coerce-from-bool 439 (objc-message-send bundle "load" :<BOOL>)))))))))) 439 (objc-message-send bundle "load" :<BOOL>))))))))) 440 440 441 441
Note: See TracChangeset
for help on using the changeset viewer.