This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; | |
;; 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)) |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
(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)) |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; | |
;; Code | |
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; | |
(eval-when (:compile-toplevel :load-toplevel :execute) | |
(require "COCOA")) | |
(eval-when (:compile-toplevel :load-toplevel :execute) | |
(require :demo-packages) | |
(require :window-utils) |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
(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)) |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
(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)) |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
(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 |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
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 |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
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). |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
-*- 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 > |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
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: |
OlderNewer