jmercouris

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; 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))

jmercouris

(eval-when (:compile-toplevel :load-toplevel :execute)
  (require "COCOA"))
  
(eval-when (:compile-toplevel :load-toplevel :execute)
  (require :demo-packages)
  (require :window-utils)
  (require :window-controller)
  (require :text-views)
  (require :constraint-layout))

jmercouris

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Code
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(eval-when (:compile-toplevel :load-toplevel :execute)
  (require "COCOA"))
  
(eval-when (:compile-toplevel :load-toplevel :execute)
  (require :demo-packages)
  (require :window-utils)

jmercouris

(eval-when (:compile-toplevel :load-toplevel :execute)
  (require "COCOA"))
  
(eval-when (:compile-toplevel :load-toplevel :execute)
  (require :demo-packages)
  (require :window-utils)
  (require :window-controller)
  (require :text-views)
  (require :constraint-layout))

jmercouris

(eval-when (:compile-toplevel :load-toplevel :execute)
  (require "COCOA"))
  
(eval-when (:compile-toplevel :load-toplevel :execute)
  (require :demo-packages)
  (require :window-utils)
  (require :window-controller)
  (require :text-views)
  (require :constraint-layout))

jmercouris

(ql:quickload :mgl)
To load "mgl":
  Load 11 ASDF systems:
    alexandria anaphora babel bordeaux-threads cffi
    cffi-grovel cl-ppcre let-plus split-sequence swank
    trivial-features
  Install 31 Quicklisp releases:
    3bmd array-operations cl-annot cl-cuda cl-fad
    cl-num-utils cl-pattern cl-reexport cl-slice cl-syntax
    closer-mop colorize esrap external-program

jmercouris

CL-USER> (defparameter split-view (make-instance 'ns:ns-split-view))

SPLIT-VIEW
CL-USER> (defparameter view (make-instance 'ns:ns-view))
VIEW
CL-USER> (objc:send split-view :add-arranged-sub-view view)
; Warning: OBJC:SEND, as used in (OBJC:SEND SPLIT-VIEW :ADD-ARRANGED-SUB-VIEW VIEW), is deprecated.  Use #/ syntax instead.
; While executing: CCL::WARN-ABOUT-DEPRECATED-OBJC-BRIDGE-CONSTRUCT, in process repl-thread(13).
Invoking restart: Kill this thread

jmercouris

CL-USER> (objc:load-framework "AppKit" :appkit)
; Warning: Interface file #P"/usr/local/src/ccl/darwin-x86-headers64/appkit/objc-classes.cdb" does not exist, and the containing directory does not exist.
;          This may mean that that the "ccl:" logical-pathname host has not been properly initialized. 
; While executing: CCL::CDB-OPEN, in process new-repl-thread(32).
; Warning: Interface file #P"/usr/local/src/ccl/darwin-x86-headers64/appkit/objc-methods.cdb" does not exist, and the containing directory does not exist.
;          This may mean that that the "ccl:" logical-pathname host has not been properly initialized. 
; While executing: CCL::CDB-OPEN, in process new-repl-thread(32).

jmercouris

-*- mode: compilation; default-directory: "~/Projects/Next/next/" -*-
Compilation started at Wed Nov  1 15:42:35

ccl --no-init --load make.lisp
> Error: There is no package named "QL" .
> While executing: CCL::%PARSE-TOKEN, in process listener(1).
> Type :GO to continue, :POP to abort, :R for a list of available restarts.
> If continued: Retry finding package with name "QL".
> Type :? for other options.
1 > 

jmercouris

Last login: Wed Nov  1 16:49:09 on ttys000
> /Users/jmercouris/Projects/Next/next/build/nEXT.app/Contents/MacOS/nEXT ; exit;
> Error: There is no applicable method for the generic function:
>          #<STANDARD-GENERIC-FUNCTION CCL::UI-OBJECT-DO-OPERATION #x3020000B12AF>
>        when called with arguments:
>          (#<A Dead Mac Pointer> :NOTE-CURRENT-PACKAGE #<Package "COMMON-LISP-USER">)
> While executing: #<CCL::STANDARD-KERNEL-METHOD NO-APPLICABLE-METHOD (T)>, in process listener(1).
> Error: There is no applicable method for the generic function:
>          #<STANDARD-GENERIC-FUNCTION CCL::UI-OBJECT-DO-OPERATION #x3020000B12AF>
>        when called with arguments: