Changeset 6158


Ignore:
Timestamp:
Apr 7, 2007, 12:48:11 PM (12 years ago)
Author:
gb
Message:

Define OBJC:LOAD-FRAMEWORK, to simplify ... framework loading.
Don't do dbg trap on error.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/objc-gf/ccl/examples/objc-support.lisp

    r6130 r6158  
    199199  ;;; this condition.
    200200
    201   (dbg (format nil "~a" c))
     201  ;; (dbg (format nil "~a" c))
    202202  ;;(#_NSLog #@"Lisp exception: %@" :id (%make-nsstring (format nil "~a" c)))
    203203  (make-instance 'ns-lisp-exception :condition c))
     
    414414              (with-nsstr (nsnamestring cnamestring (length namestring))
    415415                (with-autorelease-pool
    416                     (let* ((bundle (#/bundleWithPath: 'ns:ns-bundle nsnamestring))
     416                    (let* ((bundle (#/bundleWithPath: ns:ns-bundle nsnamestring))
    417417                           (winning (unless (%null-ptr-p bundle)
    418418                                      t)))
     
    430430                      (return winning)))))))))))
    431431
     432(defun objc:load-framework (framework-name interfaces-name)
     433  (use-interface-dir interfaces-name)
     434  (or (load-objc-extension-framework framework-name)
     435      (error "Can't load ObjC framework ~s" framework-name))
     436  (augment-objc-interfaces interfaces-name))
     437
    432438                     
    433439(defmethod print-object ((p ns:protocol) stream)
Note: See TracChangeset for help on using the changeset viewer.