loading-framework.txt

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Works
(in-package "CCL")

(eval-when (:compile-toplevel :load-toplevel :execute)
  (require "COCOA"))

(eval-when (:compile-toplevel :load-toplevel :execute)
  (objc:load-framework "WebKit" :webkit))


;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Doesn't Work
(in-package :interface)

(defun initialize ()
  (require "COCOA")
  (objc:load-framework "WebKit" :webkit))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Response
There is no package named "OBJC" .
   [Condition of type CCL::NO-SUCH-PACKAGE]

Restarts:
 0: [CONTINUE] Retry finding package with name "OBJC".
 1: [USE-VALUE] Find specified package instead of "OBJC" .
 2: [MAKE-NICKNAME] Make "OBJC" be a nickname for package "INTERFACE".
 3: [RETRY-LOAD] Retry loading #P"/Users/jmercouris/Projects/Next/next/lisp/cocoa.lisp"
 4: [SKIP-LOAD] Skip loading #P"/Users/jmercouris/Projects/Next/next/lisp/cocoa.lisp"
 5: [LOAD-OTHER] Load other file instead of #P"/Users/jmercouris/Projects/Next/next/lisp/cocoa.lisp"
 --more--