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:

jmercouris

-*- mode: grep; default-directory: "/usr/local/src/ccl/" -*-
Grep started at Wed Nov  1 17:18:49

find . -type d \( -path \*/SCCS -o -path \*/RCS -o -path \*/CVS -o -path \*/MCVS -o -path \*/.src -o -path \*/.svn -o -path \*/.git -o -path \*/.hg -o -path \*/.bzr -o -path \*/_MTN -o -path \*/_darcs -o -path \*/\{arch\} \) -prune -o \! -type d \( -name .\#\* -o -name \*.o -o -name \*\~ -o -name \*.bin -o -name \*.lbin -o -name \*.so -o -name \*.a -o -name \*.ln -o -name \*.blg -o -name \*.bbl -o -name \*.elc -o -name \*.lof -o -name \*.glo -o -name \*.idx -o -name \*.lot -o -name \*.fmt -o -name \*.tfm -o -name \*.class -o -name \*.fas -o -name \*.lib -o -name \*.mem -o -name \*.x86f -o -name \*.sparcf -o -name \*.dfsl -o -name \*.pfsl -o -name \*.d64fsl -o -name \*.p64fsl -o -name \*.lx64fsl -o -name \*.lx32fsl -o -name \*.dx64fsl -o -name \*.dx32fsl -o -name \*.fx64fsl -o -name \*.fx32fsl -o -name \*.sx64fsl -o -name \*.sx32fsl -o -name \*.wx64fsl -o -name \*.wx32fsl -o -name \*.fasl -o -name \*.ufsl -o -name