Changeset 9760

Timestamp:

Jun 16, 2008, 9:57:37 AM (13 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:

• release/1.2/source/objc-bridge/objc-support.lisp (modified) (1 diff)

release/1.2/source/objc-bridge/objc-support.lisp

@@ -433 +433 @@
         (with-nsstr (nsnamestring cnamestring (length namestring))
           (with-autorelease-pool
-              (let* ((bundle (send (@class "NSBundle")
-                                   :bundle-with-path nsnamestring)))
+              (let* ((bundle (objc-message-send (@class "NSBundle")
+                                                "bundleWithPath:"
+                                                :id nsnamestring :id)))
                 (unless (%null-ptr-p bundle)
-                  (coerce-from-bool
-                   (objc-message-send bundle "load" :<BOOL>))))))))))
+                  (objc-message-send bundle "load" :<BOOL>)))))))))