cl-notebook

SBCL 2.0.5 / ASDF 3.3.1

cl-notebook

WARNING: System definition file #P"/home/quicklisp/quicklisp-controller/dist/build-cache/cl-fad/6a672a245e7ad55311ceaa8722aae0f1f0b2d5fd/cl-fad-20200617-git/cl-fad.asd" contains definition for system "cl-fad-test". Please only define "cl-fad" and secondary systems with a name starting with "cl-fad/" (e.g. "cl-fad/test") in that file.
WARNING: System definition file #P"/home/quicklisp/quicklisp-controller/dist/build-cache/cl-who/5ef6d9b6609320a8f11655194b9139f5e0a1555a/cl-who-20200617-git/cl-who.asd" contains definition for system "cl-who-test". Please only define "cl-who" and secondary systems with a name starting with "cl-who/" (e.g. "cl-who/test") in that file.
WARNING: System definition file #P"/home/quicklisp/quicklisp-controller/dist/build-cache/cl-ppcre/d6593d8f842bcf6af810ff93c6c02b757bd49ecf/cl-ppcre-20200617-git/cl-ppcre.asd" contains definition for system "cl-ppcre-test". Please only define "cl-ppcre" and secondary systems with a name starting with "cl-ppcre/" (e.g. "cl-ppcre/test") in that file.
WARNING: System definition file #P"/home/quicklisp/quicklisp-controller/dist/build-cache/flexi-streams/f3246e8db85c807c6011fb28de887286ed68b28a/flexi-streams-20200617-git/flexi-streams.asd" contains definition for system "flexi-streams-test". Please only define "flexi-streams" and secondary systems with a name starting with "flexi-streams/" (e.g. "flexi-streams/test") in that file.
WARNING: System definition file #P"/home/quicklisp/quicklisp-controller/dist/build-cache/cl-json/a506ef6a9ce15a1b58b4d7fbeb9fd774e24008e2/cl-json-20200617-git/cl-json.asd" contains definition for system "cl-json.test". Please only define "cl-json" and secondary systems with a name starting with "cl-json/" (e.g. "cl-json/test") in that file.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/house/17bc8a62f6cca820ed1b89ffbb2249b46b2c4a57/house-20200617-git/define-handler.lisp
; in: DEFMACRO DEFINE-JSON-HANDLER
;     (DEFMACRO HOUSE:DEFINE-JSON-HANDLER
;               ((HOUSE::NAME &KEY (METHOD :ANY)) (&REST HOUSE::ARGS)
;                &BODY HOUSE::BODY)
;       `(HOUSE:DEFINE-HANDLER (,HOUSE::NAME :CONTENT-TYPE "application/json")
;            ,HOUSE::ARGS
;          (JSON:ENCODE-JSON-TO-STRING (PROGN ,@HOUSE::BODY))))
; --> SB-INT:NAMED-DS-BIND SB-INT:BINDING* 
; ==>
;   (LET* ((#:G0
;           (SB-C::CHECK-DS-LIST/&REST (CDR #:EXPR) 2 2
;                                      '(# # # &BODY HOUSE::BODY)))
;          (#:G1
;           (SB-C::CHECK-DS-LIST/&KEY (POP #:G0) 1 1 '(# HOUSE::NAME &KEY #)
;                                     #(:METHOD)))
;          (HOUSE::NAME (POP #:G1))
;          (#:G2 (SB-C::DS-GETF #:G1 ':METHOD))
;          (METHOD
;           (IF (EQL #:G2 0)
;               :ANY
;               (CAR #)))
;          (#:G3 (POP #:G0))
;          (HOUSE::ARGS #:G3)
;          (HOUSE::BODY #:G0))
;     (BLOCK HOUSE:DEFINE-JSON-HANDLER
;       `(HOUSE:DEFINE-HANDLER (,HOUSE::NAME :CONTENT-TYPE "application/json")
;            ,HOUSE::ARGS
;          (JSON:ENCODE-JSON-TO-STRING (PROGN ,@HOUSE::BODY)))))
; 
; caught STYLE-WARNING:
;   The variable METHOD is defined but never used.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/house/17bc8a62f6cca820ed1b89ffbb2249b46b2c4a57/house-20200617-git/define-handler.lisp
; in: DEFMACRO DEFINE-JSON-HANDLER
;     (DEFMACRO HOUSE:DEFINE-JSON-HANDLER
;               ((HOUSE::NAME &KEY (METHOD :ANY)) (&REST HOUSE::ARGS)
;                &BODY HOUSE::BODY)
;       `(HOUSE:DEFINE-HANDLER (,HOUSE::NAME :CONTENT-TYPE "application/json")
;            ,HOUSE::ARGS
;          (JSON:ENCODE-JSON-TO-STRING (PROGN ,@HOUSE::BODY))))
; --> PROGN EVAL-WHEN SB-C::%DEFMACRO SB-C::%DEFMACRO SB-INT:NAMED-LAMBDA 
; --> FUNCTION SB-INT:NAMED-DS-BIND SB-INT:BINDING* 
; ==>
;   (LET* ((#:G0
;           (SB-C::CHECK-DS-LIST/&REST (CDR #:EXPR) 2 2
;                                      '(# # # &BODY HOUSE::BODY)))
;          (#:G1
;           (SB-C::CHECK-DS-LIST/&KEY (POP #:G0) 1 1 '(# HOUSE::NAME &KEY #)
;                                     #(:METHOD)))
;          (HOUSE::NAME (POP #:G1))
;          (#:G2 (SB-C::DS-GETF #:G1 ':METHOD))
;          (METHOD
;           (IF (EQL #:G2 0)
;               :ANY
;               (CAR #)))
;          (#:G3 (POP #:G0))
;          (HOUSE::ARGS #:G3)
;          (HOUSE::BODY #:G0))
;     (BLOCK HOUSE:DEFINE-JSON-HANDLER
;       `(HOUSE:DEFINE-HANDLER (,HOUSE::NAME :CONTENT-TYPE "application/json")
;            ,HOUSE::ARGS
;          (JSON:ENCODE-JSON-TO-STRING (PROGN ,@HOUSE::BODY)))))
; 
; caught STYLE-WARNING:
;   The variable METHOD is defined but never used.
WARNING: Lisp compilation had style-warnings while compiling #<CL-SOURCE-FILE "house" "define-handler">

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-notebook/ddee9b7876e1ce489b09165910c76abe2301cc7f/cl-notebook-20200617-git/src/ui/http-front-end/core.lisp
; in:
;      HOUSE:DEFINE-HANDLER (CL-NOTEBOOK::JS/CORE.JS :CONTENT-TYPE "application/javascript")
;     (PARENSCRIPT:PS
;       (DEFUN CL-NOTEBOOK::BY-CELL-ID
;              (CL-NOTEBOOK::CELL-ID &REST CL-NOTEBOOK::CHILDREN)
;         (CL-NOTEBOOK::BY-SELECTOR
;          (+ "#cell-" CL-NOTEBOOK::CELL-ID
;             (IF #
;                 " "
;                 "")
;             (PS-JS-SYMBOLS:JOIN CL-NOTEBOOK::CHILDREN " "))))
;       (DEFUN CL-NOTEBOOK::ELEM->CELL-ID (CL-NOTEBOOK::ELEM)
;         (CL-NOTEBOOK::PARSE-INT
;          (PARENSCRIPT:CHAIN CL-NOTEBOOK::ELEM (CL-NOTEBOOK::GET-ATTRIBUTE "id")
;                             (CL-NOTEBOOK::MATCH #) 1)))
;       (DEFUN CL-NOTEBOOK::ELEM-TO-CELL (CL-NOTEBOOK::ELEM)
;         (AREF CL-NOTEBOOK::*NOTEBOOK* :OBJECTS
;               (CL-NOTEBOOK::ELEM->CELL-ID CL-NOTEBOOK::ELEM)))
;       (DEFUN CL-NOTEBOOK::CLEAR-SELECTION ()
;         (LET ((CL-NOTEBOOK::SEL #))
;           (IF (PARENSCRIPT:@ CL-NOTEBOOK::SEL CL-NOTEBOOK::EMPTY)
;               (PARENSCRIPT:CHAIN CL-NOTEBOOK::SEL #)
;               (PARENSCRIPT:CHAIN CL-NOTEBOOK::SEL #))))
;       (DEFUN CL-NOTEBOOK::SELECT-CONTENTS (CL-NOTEBOOK::EV CL-NOTEBOOK::ELEM)
;         (UNLESS (PARENSCRIPT:@ CL-NOTEBOOK::EV CL-NOTEBOOK::SHIFT-KEY)
;           (CL-NOTEBOOK::CLEAR-SELECTION))
;         (LET ((CL-NOTEBOOK::R #))
;           (PARENSCRIPT:CHAIN CL-NOTEBOOK::R
;                              (CL-NOTEBOOK::SELECT-NODE-CONTENTS
;                               CL-NOTEBOOK::ELEM))
;           (PARENSCRIPT:CHAIN CL-NOTEBOOK::WINDOW (CL-NOTEBOOK::GET-SELECTION)
;                              (CL-NOTEBOOK::ADD-RANGE CL-NOTEBOOK::R))))
;       (DEFUN CL-NOTEBOOK::IN-PRESENT? ()
;         (LET ((CL-NOTEBOOK::SLIDER #))
;           (= (PARENSCRIPT:@ CL-NOTEBOOK::SLIDER CL-NOTEBOOK::VALUE)
;              (PARENSCRIPT:CHAIN CL-NOTEBOOK::SLIDER #))))
;       (DEFUN CL-NOTEBOOK::POST/FORK
;              (CL-NOTEBOOK::URI CL-NOTEBOOK::ARGS CL-NOTEBOOK::ON-SUCCESS
;               CL-NOTEBOOK::ON-FAIL)
;         (IF (CL-NOTEBOOK::IN-PRESENT?)
;             (CL-NOTEBOOK::POST/JSON CL-NOTEBOOK::URI CL-NOTEBOOK::ARGS
;              CL-NOTEBOOK::ON-SUCCESS CL-NOTEBOOK::ON-FAIL)
;             (CL-NOTEBOOK::FORK-BOOK (LAMBDA # # # # # #))))
;       (DEFUN CL-NOTEBOOK::RELOAD-ADDON-RESOURCES!
;              (CL-NOTEBOOK::RESOURCE-TYPE CL-NOTEBOOK::RESOURCE-NAME)
;         (CL-NOTEBOOK::CONSOLE.LOG "RELOADING" CL-NOTEBOOK::RESOURCE-TYPE
;          CL-NOTEBOOK::RESOURCE-NAME "(TODO - be surgical about this)")
;         (CL-NOTEBOOK::DOM-SET
;          (CL-NOTEBOOK::BY-SELECTOR "#cl-notebook-front-end-addons")
;          (PARENSCRIPT:WHO-PS-HTML (:LINK :REL "stylesheet" :HREF #))))
;       (DEFUN CL-NOTEBOOK::HASH-UPDATED ()
;         (LET ((CL-NOTEBOOK::BOOK-NAME #))
;           (WHEN CL-NOTEBOOK::BOOK-NAME
;             (CL-NOTEBOOK::NOTEBOOK/CURRENT CL-NOTEBOOK::BOOK-NAME))
;           (CL-NOTEBOOK::DOM-SET (CL-NOTEBOOK::BY-SELECTOR "#notebook-selector")
;            "")))
;       (DEFUN CL-NOTEBOOK::ESC-PRESSED ()
;         (CL-NOTEBOOK::CLEAR-SELECTION)
;         (CL-NOTEBOOK::HIDE-TITLE-INPUT)
;         (CL-NOTEBOOK::HIDE-MACRO-EXPANSION!)
;         (CL-NOTEBOOK::HIDE-OPEN-BOOK-MENU!)
;         (MAP
;          (LAMBDA (CL-NOTEBOOK::CELL)
;            (WITH-SLOTS #
;                CL-NOTEBOOK::CELL
;              #))
;          (CL-NOTEBOOK::NOTEBOOK-CELLS CL-NOTEBOOK::*NOTEBOOK*)))
;       (DEFUN CL-NOTEBOOK::DISPLAY-BOOK (CL-NOTEBOOK::BOOK-NAME)
;         (WHEN CL-NOTEBOOK::BOOK-NAME
;           (CL-NOTEBOOK::SET-PAGE-HASH
;            (PARENSCRIPT:CREATE :BOOK CL-NOTEBOOK::BOOK-NAME))
;           (CL-NOTEBOOK::HASH-UPDATED)))
;       ...)
; 
; caught STYLE-WARNING:
;   Parenscript symbol DOCUMENT.TITLE contains one or more dot operators.
;   This compound naming convention is deprecated and will be removed!
;   Use GETPROP, @, or CHAIN instead.
; 
; caught STYLE-WARNING:
;   Parenscript symbol CONSOLE.LOG contains one or more dot operators.
;   This compound naming convention is deprecated and will be removed!
;   Use GETPROP, @, or CHAIN instead.
; 
; caught STYLE-WARNING:
;   Parenscript symbol CONSOLE.LOG contains one or more dot operators.
;   This compound naming convention is deprecated and will be removed!
;   Use GETPROP, @, or CHAIN instead.
; 
; caught STYLE-WARNING:
;   Parenscript symbol CONSOLE.LOG contains one or more dot operators.
;   This compound naming convention is deprecated and will be removed!
;   Use GETPROP, @, or CHAIN instead.
; 
; caught STYLE-WARNING:
;   Parenscript symbol WINDOW.EVAL contains one or more dot operators.
;   This compound naming convention is deprecated and will be removed!
;   Use GETPROP, @, or CHAIN instead.
; 
; caught STYLE-WARNING:
;   Parenscript symbol ERR.MESSAGE contains one or more dot operators.
;   This compound naming convention is deprecated and will be removed!
;   Use GETPROP, @, or CHAIN instead.
; 
; caught STYLE-WARNING:
;   Parenscript symbol CONSOLE.LOG contains one or more dot operators.
;   This compound naming convention is deprecated and will be removed!
;   Use GETPROP, @, or CHAIN instead.
; 
; caught STYLE-WARNING:
;   Parenscript symbol CONSOLE.LOG contains one or more dot operators.
;   This compound naming convention is deprecated and will be removed!
;   Use GETPROP, @, or CHAIN instead.
; 
; caught STYLE-WARNING:
;   Parenscript symbol CONSOLE.LOG contains one or more dot operators.
;   This compound naming convention is deprecated and will be removed!
;   Use GETPROP, @, or CHAIN instead.
; 
; caught STYLE-WARNING:
;   Parenscript symbol DOCUMENT.TITLE contains one or more dot operators.
;   This compound naming convention is deprecated and will be removed!
;   Use GETPROP, @, or CHAIN instead.
; 
; caught STYLE-WARNING:
;   Parenscript symbol CONSOLE.LOG contains one or more dot operators.
;   This compound naming convention is deprecated and will be removed!
;   Use GETPROP, @, or CHAIN instead.
; 
; caught STYLE-WARNING:
;   Parenscript symbol CONSOLE.LOG contains one or more dot operators.
;   This compound naming convention is deprecated and will be removed!
;   Use GETPROP, @, or CHAIN instead.
WARNING: Lisp compilation had style-warnings while compiling #<CL-SOURCE-FILE "cl-notebook" "src" "ui" "http-front-end" "core">

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-notebook/ddee9b7876e1ce489b09165910c76abe2301cc7f/cl-notebook-20200617-git/src/ui/http-front-end/base.lisp
; in: DEFPARAMETER CL-NOTEBOOK::*BASE-JS*
;     (DEFPARAMETER CL-NOTEBOOK::*BASE-JS*
;       (PARENSCRIPT:PS
;         (DEFUN CL-NOTEBOOK::NOW! ()
;           (PARENSCRIPT:CHAIN CL-NOTEBOOK::-DATE (CL-NOTEBOOK::NOW)))
;         (DEFUN IDENTITY (CL-NOTEBOOK::THING) CL-NOTEBOOK::THING)
;         (DEFUN CONSTANTLY (CL-NOTEBOOK::THING) (LAMBDA () CL-NOTEBOOK::THING))
;         (DEFUN REST (ARRAY) (PARENSCRIPT:CHAIN ARRAY (PS-JS-SYMBOLS:SLICE 1)))
;         (DEFUN MAP (CL-NOTEBOOK::FN CL-NOTEBOOK::THING)
;           (IF (CL-NOTEBOOK::OBJECT? CL-NOTEBOOK::THING)
;               (LET #
;                 #
;                 CL-NOTEBOOK::RES)
;               (LOOP PARENSCRIPT:FOR CL-NOTEBOOK::ELEM PARENSCRIPT:IN CL-NOTEBOOK::THING
;                     CL-NOTEBOOK::COLLECT #)))
;         (DEFUN COPY-LIST (LIST) (MAP IDENTITY LIST))
;         (DEFUN SORT
;                (LIST CL-NOTEBOOK::COMPARISON &KEY (CL-NOTEBOOK::KEY IDENTITY))
;           (PARENSCRIPT:CHAIN (COPY-LIST LIST) (SORT #)))
;         (DEFUN REVERSE (LIST) (PARENSCRIPT:CHAIN (COPY-LIST LIST) (REVERSE)))
;         (DEFUN CL-NOTEBOOK::FOLD
;                (CL-NOTEBOOK::FN CL-NOTEBOOK::MEMO CL-NOTEBOOK::THING)
;           (LET (#)
;             (IF #
;                 #
;                 #)
;             CL-NOTEBOOK::M))
;         (DEFUN CL-NOTEBOOK::FILTER (CL-NOTEBOOK::FN CL-NOTEBOOK::THING)
;           (LOOP PARENSCRIPT:FOR CL-NOTEBOOK::ELEM PARENSCRIPT:IN CL-NOTEBOOK::THING
;                 WHEN (CL-NOTEBOOK::FN CL-NOTEBOOK::ELEM)
;                 CL-NOTEBOOK::COLLECT CL-NOTEBOOK::ELEM))
;         (DEFUN CL-NOTEBOOK::EXTEND
;                (CL-NOTEBOOK::OBJ &REST CL-NOTEBOOK::OTHER-OBJS)
;           (FLET (#)
;             (LET #
;               #
;               #
;               CL-NOTEBOOK::RES)))
;         ...))
; --> PROGN 
; ==>
;   (SB-IMPL::%DEFPARAMETER 'CL-NOTEBOOK::*BASE-JS*
;                           (PARENSCRIPT:PS
;                             (DEFUN CL-NOTEBOOK::NOW! ()
;                               (PARENSCRIPT:CHAIN CL-NOTEBOOK::-DATE
;                                                  (CL-NOTEBOOK::NOW)))
;                             (DEFUN IDENTITY (CL-NOTEBOOK::THING)
;                               CL-NOTEBOOK::THING)
;                             (DEFUN CONSTANTLY (CL-NOTEBOOK::THING)
;                               (LAMBDA () CL-NOTEBOOK::THING))
;                             (DEFUN REST (ARRAY)
;                               (PARENSCRIPT:CHAIN ARRAY (PS-JS-SYMBOLS:SLICE 1)))
;                             (DEFUN MAP (CL-NOTEBOOK::FN CL-NOTEBOOK::THING)
;                               (IF (CL-NOTEBOOK::OBJECT? CL-NOTEBOOK::THING)
;                                   (LET #
;                                     #
;                                     CL-NOTEBOOK::RES)
;                                   (LOOP PARENSCRIPT:FOR CL-NOTEBOOK::ELEM PARENSCRIPT:IN CL-NOTEBOOK::THING
;                                         CL-NOTEBOOK::COLLECT #)))
;                             (DEFUN COPY-LIST (LIST) (MAP IDENTITY LIST))
;                             (DEFUN SORT
;                                    (LIST CL-NOTEBOOK::COMPARISON
;                                     &KEY (CL-NOTEBOOK::KEY IDENTITY))
;                               (PARENSCRIPT:CHAIN (COPY-LIST LIST) (SORT #)))
;                             (DEFUN REVERSE (LIST)
;                               (PARENSCRIPT:CHAIN (COPY-LIST LIST) (REVERSE)))
;                             (DEFUN CL-NOTEBOOK::FOLD
;                                    (CL-NOTEBOOK::FN CL-NOTEBOOK::MEMO
;                                     CL-NOTEBOOK::THING)
;                               (LET (#)
;                                 (IF #
;                                     #
;                                     #)
;                                 CL-NOTEBOOK::M))
;                             (DEFUN CL-NOTEBOOK::FILTER
;                                    (CL-NOTEBOOK::FN CL-NOTEBOOK::THING)
;                               (LOOP PARENSCRIPT:FOR CL-NOTEBOOK::ELEM PARENSCRIPT:IN CL-NOTEBOOK::THING
;                                     WHEN (CL-NOTEBOOK::FN CL-NOTEBOOK::ELEM)
;                                     CL-NOTEBOOK::COLLECT CL-NOTEBOOK::ELEM))
;                             (DEFUN CL-NOTEBOOK::EXTEND
;                                    (CL-NOTEBOOK::OBJ
;                                     &REST CL-NOTEBOOK::OTHER-OBJS)
;                               (FLET (#)
;                                 (LET #
;                                   #
;                                   #
;                                   CL-NOTEBOOK::RES)))
;                             ...)
;                           (SB-C:SOURCE-LOCATION))
; 
; caught STYLE-WARNING:
;   Parenscript symbol CONSOLE.LOG contains one or more dot operators.
;   This compound naming convention is deprecated and will be removed!
;   Use GETPROP, @, or CHAIN instead.
; 
; caught STYLE-WARNING:
;   Parenscript symbol CONSOLE.LOG contains one or more dot operators.
;   This compound naming convention is deprecated and will be removed!
;   Use GETPROP, @, or CHAIN instead.
; 
; caught STYLE-WARNING:
;   Parenscript symbol CONSOLE.LOG contains one or more dot operators.
;   This compound naming convention is deprecated and will be removed!
;   Use GETPROP, @, or CHAIN instead.
; 
; caught STYLE-WARNING:
;   Parenscript symbol CONSOLE.LOG contains one or more dot operators.
;   This compound naming convention is deprecated and will be removed!
;   Use GETPROP, @, or CHAIN instead.
; 
; caught STYLE-WARNING:
;   Parenscript symbol CONSOLE.LOG contains one or more dot operators.
;   This compound naming convention is deprecated and will be removed!
;   Use GETPROP, @, or CHAIN instead.
; 
; caught STYLE-WARNING:
;   Parenscript symbol CONSOLE.LOG contains one or more dot operators.
;   This compound naming convention is deprecated and will be removed!
;   Use GETPROP, @, or CHAIN instead.
WARNING: Lisp compilation had style-warnings while compiling #<CL-SOURCE-FILE "cl-notebook" "src" "ui" "http-front-end" "base">

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-notebook/ddee9b7876e1ce489b09165910c76abe2301cc7f/cl-notebook-20200617-git/src/ui/http-front-end/api.lisp
; in:
;      HOUSE:DEFINE-HANDLER (CL-NOTEBOOK::JS/API.JS :CONTENT-TYPE "application/javascript")
;     (PARENSCRIPT:PS
;       (DEFUN CL-NOTEBOOK::KILL-THREAD ()
;         (CL-NOTEBOOK::POST/JSON "/cl-notebook/system/kill-thread"
;          (PARENSCRIPT:CREATE)))
;       (DEFUN CL-NOTEBOOK::ARG-HINT
;              (SYMBOL CL-NOTEBOOK::X CL-NOTEBOOK::Y &KEY CL-NOTEBOOK::CURRENT-ARG)
;         (CL-NOTEBOOK::POST/JSON "/cl-notebook/system/arg-hint"
;          (PARENSCRIPT:CREATE :NAME SYMBOL :PACKAGE :CL-NOTEBOOK)
;          (LAMBDA (CL-NOTEBOOK::RES) (UNLESS # #))))
;       (DEFUN CL-NOTEBOOK::REWIND-BOOK (CL-NOTEBOOK::INDEX)
;         (CL-NOTEBOOK::POST/JSON "/cl-notebook/notebook/rewind"
;          (PARENSCRIPT:CREATE :BOOK
;           (CL-NOTEBOOK::NOTEBOOK-ID CL-NOTEBOOK::*NOTEBOOK*) :INDEX
;           CL-NOTEBOOK::INDEX)
;          #'CL-NOTEBOOK::NOTEBOOK!))
;       (DEFVAR CL-NOTEBOOK::DEBOUNCED-REWIND
;         (CL-NOTEBOOK::DEBOUNCE #'CL-NOTEBOOK::REWIND-BOOK 10))
;       (DEFUN CL-NOTEBOOK::FORK-BOOK (CL-NOTEBOOK::CALLBACK)
;         (CL-NOTEBOOK::POST/JSON "/cl-notebook/notebook/fork-at"
;          (PARENSCRIPT:CREATE :BOOK
;           (CL-NOTEBOOK::NOTEBOOK-ID CL-NOTEBOOK::*NOTEBOOK*) :INDEX
;           (PARENSCRIPT:@ # CL-NOTEBOOK::VALUE))
;          CL-NOTEBOOK::CALLBACK))
;       (DEFUN CL-NOTEBOOK::EXPORT-BOOK (FORMAT)
;         (WHEN FORMAT
;           (CL-NOTEBOOK::POST/JSON "/cl-notebook/notebook/export"
;            (PARENSCRIPT:CREATE :BOOK # :FORMAT FORMAT) (LAMBDA # # #))
;           (SETF # "")))
;       (DEFUN CL-NOTEBOOK::NOTEBOOK/CURRENT (CL-NOTEBOOK::NAME)
;         (CL-NOTEBOOK::POST/JSON "/cl-notebook/notebook/current"
;          (PARENSCRIPT:CREATE :BOOK CL-NOTEBOOK::NAME) #'CL-NOTEBOOK::NOTEBOOK!
;          (LAMBDA (CL-NOTEBOOK::RES) (CL-NOTEBOOK::DOM-SET # #))))
;       (DEFUN CL-NOTEBOOK::NEW-BOOK (CL-NOTEBOOK::PATH)
;         (CL-NOTEBOOK::POST/JSON "/cl-notebook/notebook/new"
;          (PARENSCRIPT:CREATE :PATH CL-NOTEBOOK::PATH) #'CL-NOTEBOOK::NOTEBOOK!))
;       (DEFUN CL-NOTEBOOK::LOAD-BOOK (CL-NOTEBOOK::PATH)
;         (CL-NOTEBOOK::POST/JSON "/cl-notebook/notebook/load"
;          (PARENSCRIPT:CREATE :PATH CL-NOTEBOOK::PATH) #'CL-NOTEBOOK::NOTEBOOK!))
;       (DEFUN CL-NOTEBOOK::RENAME-BOOK (CL-NOTEBOOK::NEW-NAME)
;         (CL-NOTEBOOK::POST/FORK "/cl-notebook/notebook/rename"
;          (PARENSCRIPT:CREATE :BOOK
;           (CL-NOTEBOOK::NOTEBOOK-ID CL-NOTEBOOK::*NOTEBOOK*) :NEW-NAME
;           CL-NOTEBOOK::NEW-NAME)))
;       (DEFUN CL-NOTEBOOK::REPACKAGE-BOOK (CL-NOTEBOOK::NEW-PACKAGE)
;         (CL-NOTEBOOK::POST/FORK "/cl-notebook/notebook/repackage"
;          (PARENSCRIPT:CREATE :BOOK
;           (CL-NOTEBOOK::NOTEBOOK-ID CL-NOTEBOOK::*NOTEBOOK*) :NEW-PACKAGE
;           CL-NOTEBOOK::NEW-PACKAGE)))
;       ...)
; 
; caught STYLE-WARNING:
;   Parenscript symbol CONSOLE.LOG contains one or more dot operators.
;   This compound naming convention is deprecated and will be removed!
;   Use GETPROP, @, or CHAIN instead.
WARNING: Lisp compilation had style-warnings while compiling #<CL-SOURCE-FILE "cl-notebook" "src" "ui" "http-front-end" "api">

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-notebook/ddee9b7876e1ce489b09165910c76abe2301cc7f/cl-notebook-20200617-git/src/ui/http-front-end/pareditesque.lisp
; in:
;      HOUSE:DEFINE-HANDLER (CL-NOTEBOOK::JS/PAREDITESQUE.JS :CONTENT-TYPE "application/javascript")
;     (PARENSCRIPT:PS
;       (DEFUN CL-NOTEBOOK::MATCHING-BRACE (CL-NOTEBOOK::BRACE)
;         (AREF
;          (PARENSCRIPT:CREATE "(" ")" ")" "(" "[" "]" "]" "[" "{" "}" "}" ...)
;          CL-NOTEBOOK::BRACE))
;       (DEFUN CL-NOTEBOOK::AT-BEGINNING?
;              (CL-NOTEBOOK::MIRROR &KEY (CL-NOTEBOOK::LS (CL-NOTEBOOK::LINES #)))
;         (WITH-SLOTS (CL-NOTEBOOK::LINE CL-NOTEBOOK::CH)
;             (CL-NOTEBOOK::GET-CUR :RIGHT CL-NOTEBOOK::MIRROR)
;           (AND (>= 0 CL-NOTEBOOK::LINE) (>= 0 CL-NOTEBOOK::CH))))
;       (DEFUN CL-NOTEBOOK::AT-END?
;              (CL-NOTEBOOK::MIRROR &KEY (CL-NOTEBOOK::LS (CL-NOTEBOOK::LINES #)))
;         (WITH-SLOTS (CL-NOTEBOOK::LINE CL-NOTEBOOK::CH)
;             (CL-NOTEBOOK::GET-CUR :RIGHT CL-NOTEBOOK::MIRROR)
;           (AND (>= CL-NOTEBOOK::LINE #) (>= CL-NOTEBOOK::CH #))))
;       (DEFUN CL-NOTEBOOK::AT-EMPTY-LINE?
;              (CL-NOTEBOOK::MIRROR &KEY (CL-NOTEBOOK::LS (CL-NOTEBOOK::LINES #)))
;         (WITH-SLOTS (CL-NOTEBOOK::LINE CL-NOTEBOOK::CH)
;             (CL-NOTEBOOK::GET-CUR :RIGHT CL-NOTEBOOK::MIRROR)
;           (= 0 (LENGTH #))))
;       (DEFUN CL-NOTEBOOK::CUR-COMPARE (CL-NOTEBOOK::A CL-NOTEBOOK::B)
;         (COND ((AND # #) :EQ)
;               ((= # #)
;                (IF #
;                    :GT
;                    :LT))
;               ((> # #) :GT) (T :LT)))
;       (DEFUN CL-NOTEBOOK::MIRROR-CONTENTS (CL-NOTEBOOK::MIRROR)
;         (PARENSCRIPT:CHAIN CL-NOTEBOOK::MIRROR (CL-NOTEBOOK::GET-VALUE)))
;       (DEFUN CL-NOTEBOOK::GET-CUR
;              (CL-NOTEBOOK::DIRECTION CL-NOTEBOOK::MIRROR
;               &OPTIONAL (CL-NOTEBOOK::COMPONENT :HEAD))
;         (WITH-SLOTS (CL-NOTEBOOK::LINE CL-NOTEBOOK::CH)
;             (PARENSCRIPT:CHAIN CL-NOTEBOOK::MIRROR
;                                (CL-NOTEBOOK::GET-CURSOR CL-NOTEBOOK::COMPONENT))
;           (PARENSCRIPT:CREATE :LINE CL-NOTEBOOK::LINE :CH
;            (IF #
;                #
;                CL-NOTEBOOK::CH))))
;       (DEFUN CL-NOTEBOOK::TOKEN-TYPE-AT-CURSOR
;              (CL-NOTEBOOK::DIRECTION CL-NOTEBOOK::MIRROR)
;         (WITH-SLOTS (CL-NOTEBOOK::LINE CL-NOTEBOOK::CH)
;             (CL-NOTEBOOK::GET-CUR CL-NOTEBOOK::DIRECTION CL-NOTEBOOK::MIRROR)
;           (PARENSCRIPT:CHAIN CL-NOTEBOOK::MIRROR
;                              (CL-NOTEBOOK::GET-TOKEN-TYPE-AT #))))
;       (DEFUN CL-NOTEBOOK::TOKEN-TYPE-AT-CURSOR?
;              (CL-NOTEBOOK::DIRECTION CL-NOTEBOOK::MIRROR TYPE)
;         (= TYPE
;            (CL-NOTEBOOK::TOKEN-TYPE-AT-CURSOR CL-NOTEBOOK::DIRECTION
;             CL-NOTEBOOK::MIRROR)))
;       (DEFUN CL-NOTEBOOK::STRING-AT-CURSOR?
;              (CL-NOTEBOOK::DIRECTION CL-NOTEBOOK::MIRROR)
;         (CL-NOTEBOOK::TOKEN-TYPE-AT-CURSOR? CL-NOTEBOOK::DIRECTION
;          CL-NOTEBOOK::MIRROR :STRING))
;       (DEFUN CL-NOTEBOOK::BRACKET-AT-CURSOR?
;              (CL-NOTEBOOK::DIRECTION CL-NOTEBOOK::MIRROR)
;         (CL-NOTEBOOK::TOKEN-TYPE-AT-CURSOR? CL-NOTEBOOK::DIRECTION
;          CL-NOTEBOOK::MIRROR :BRACKET))
;       ...)
; 
; caught STYLE-WARNING:
;   Parenscript symbol CONSOLE.LOG contains one or more dot operators.
;   This compound naming convention is deprecated and will be removed!
;   Use GETPROP, @, or CHAIN instead.
; 
; caught STYLE-WARNING:
;   Parenscript symbol CONSOLE.LOG contains one or more dot operators.
;   This compound naming convention is deprecated and will be removed!
;   Use GETPROP, @, or CHAIN instead.
; 
; caught STYLE-WARNING:
;   Parenscript symbol CONSOLE.LOG contains one or more dot operators.
;   This compound naming convention is deprecated and will be removed!
;   Use GETPROP, @, or CHAIN instead.
WARNING: Lisp compilation had style-warnings while compiling #<CL-SOURCE-FILE "cl-notebook" "src" "ui" "http-front-end" "pareditesque">
; 
; caught ERROR:
;   READ error during COMPILE-FILE: Symbol "INSTALL-QUICKLISP" not found in the QLOT package. Line: 55, Column: 58, File-Position: 2686 Stream: #<SB-INT:FORM-TRACKING-STREAM for "file /home/quicklisp/quicklisp-controller/dist/build-cache/cl-notebook/ddee9b7876e1ce489b09165910c76abe2301cc7f/cl-notebook-20200617-git/src/main.lisp" {100B894973}>
Unhandled UIOP/LISP-BUILD:COMPILE-FILE-ERROR in thread #<SB-THREAD:THREAD "main thread" RUNNING {1000A18083}>: COMPILE-FILE-ERROR while compiling #<CL-SOURCE-FILE "cl-notebook" "src" "main">

Backtrace for: #<SB-THREAD:THREAD "main thread" RUNNING {1000A18083}>
0: (SB-DEBUG::DEBUGGER-DISABLED-HOOK #<UIOP/LISP-BUILD:COMPILE-FILE-ERROR {100BBAF2F3}> #<unused argument> :QUIT T)
1: (SB-DEBUG::RUN-HOOK *INVOKE-DEBUGGER-HOOK* #<UIOP/LISP-BUILD:COMPILE-FILE-ERROR {100BBAF2F3}>)
2: (INVOKE-DEBUGGER #<UIOP/LISP-BUILD:COMPILE-FILE-ERROR {100BBAF2F3}>)
3: (ERROR UIOP/LISP-BUILD:COMPILE-FILE-ERROR :CONTEXT-FORMAT "~/asdf-action::format-action/" :CONTEXT-ARGUMENTS ((#<ASDF/LISP-ACTION:COMPILE-OP > . #<ASDF/LISP-ACTION:CL-SOURCE-FILE "cl-notebook" "src" "main">)))
4: (UIOP/LISP-BUILD:CHECK-LISP-COMPILE-RESULTS NIL T T "~/asdf-action::format-action/" ((#<ASDF/LISP-ACTION:COMPILE-OP > . #<ASDF/LISP-ACTION:CL-SOURCE-FILE "cl-notebook" "src" "main">)))
5: ((SB-PCL::EMF ASDF/ACTION:PERFORM) #<unused argument> #<unused argument> #<ASDF/LISP-ACTION:COMPILE-OP > #<ASDF/LISP-ACTION:CL-SOURCE-FILE "cl-notebook" "src" "main">)
6: ((LAMBDA NIL :IN ASDF/ACTION:CALL-WHILE-VISITING-ACTION))
7: ((:METHOD ASDF/ACTION:PERFORM-WITH-RESTARTS :AROUND (T T)) #<ASDF/LISP-ACTION:COMPILE-OP > #<ASDF/LISP-ACTION:CL-SOURCE-FILE "cl-notebook" "src" "main">) [fast-method]
8: ((:METHOD ASDF/PLAN:PERFORM-PLAN (T)) #<ASDF/PLAN:SEQUENTIAL-PLAN {100555F023}>) [fast-method]
9: ((FLET SB-C::WITH-IT :IN SB-C::%WITH-COMPILATION-UNIT))
10: ((:METHOD ASDF/PLAN:PERFORM-PLAN :AROUND (T)) #<ASDF/PLAN:SEQUENTIAL-PLAN {100555F023}>) [fast-method]
11: ((:METHOD ASDF/OPERATE:OPERATE (ASDF/OPERATION:OPERATION ASDF/COMPONENT:COMPONENT)) #<ASDF/LISP-ACTION:LOAD-OP > #<ASDF/SYSTEM:SYSTEM "cl-notebook"> :PLAN-CLASS NIL :PLAN-OPTIONS NIL) [fast-method]
12: ((SB-PCL::EMF ASDF/OPERATE:OPERATE) #<unused argument> #<unused argument> #<ASDF/LISP-ACTION:LOAD-OP > #<ASDF/SYSTEM:SYSTEM "cl-notebook">)
13: ((LAMBDA NIL :IN ASDF/OPERATE:OPERATE))
14: ((:METHOD ASDF/OPERATE:OPERATE :AROUND (T T)) #<ASDF/LISP-ACTION:LOAD-OP > #<ASDF/SYSTEM:SYSTEM "cl-notebook">) [fast-method]
15: ((SB-PCL::EMF ASDF/OPERATE:OPERATE) #<unused argument> #<unused argument> ASDF/LISP-ACTION:LOAD-OP "cl-notebook")
16: ((LAMBDA NIL :IN ASDF/OPERATE:OPERATE))
17: ((:METHOD ASDF/OPERATE:OPERATE :AROUND (T T)) ASDF/LISP-ACTION:LOAD-OP "cl-notebook") [fast-method]
18: (ASDF/SESSION:CALL-WITH-ASDF-SESSION #<CLOSURE (LAMBDA NIL :IN ASDF/OPERATE:OPERATE) {100555AC5B}> :OVERRIDE T :KEY NIL :OVERRIDE-CACHE T :OVERRIDE-FORCING NIL)
19: ((LAMBDA NIL :IN ASDF/OPERATE:OPERATE))
20: (ASDF/SESSION:CALL-WITH-ASDF-SESSION #<CLOSURE (LAMBDA NIL :IN ASDF/OPERATE:OPERATE) {1005517B9B}> :OVERRIDE NIL :KEY NIL :OVERRIDE-CACHE NIL :OVERRIDE-FORCING NIL)
21: ((:METHOD ASDF/OPERATE:OPERATE :AROUND (T T)) ASDF/LISP-ACTION:LOAD-OP "cl-notebook") [fast-method]
22: (DEPCHECK::COMPUTE-DEPENDENCIES "cl-notebook" "cl-notebook")
23: (DEPCHECK::MAGIC "cl-notebook" "cl-notebook" "/home/quicklisp/quicklisp-controller/tmp/anonymous/anonymous-AUBc5ZCe/depcheck-win.txt")
24: (DEPCHECK::MAIN ("depcheck" "/home/quicklisp/quicklisp-controller/dist/system-file-index" "cl-notebook" "cl-notebook" "/home/quicklisp/quicklisp-controller/tmp/anonymous/anonymous-AUBc5ZCe/depcheck-win.txt" "/home/quicklisp/quicklisp-controller/tmp/anonymous/anonymous-AUBc5ZCe/depcheck-fail.txt"))
25: ((LAMBDA NIL :IN "/home/quicklisp/quicklisp/local-projects/quicklisp-controller/dumper-2SKVI5f7.lisp"))
26: ((FLET SB-UNIX::BODY :IN SAVE-LISP-AND-DIE))
27: ((FLET "WITHOUT-INTERRUPTS-BODY-14" :IN SAVE-LISP-AND-DIE))
28: ((LABELS SB-IMPL::RESTART-LISP :IN SAVE-LISP-AND-DIE))

unhandled condition in --disable-debugger mode, quitting
; 
; compilation unit aborted
;   caught 2 fatal ERROR conditions
;   caught 1 ERROR condition
;   caught 24 STYLE-WARNING conditions