dyna

SBCL 2.1.7.62-417920f09 / ASDF 3.3.5

dyna

WARNING: System definition file #P"/home/quicklisp/quicklisp-controller/dist/build-cache/flexi-streams/2f04ab423f3e13bad09bf311dd863838fec643be/flexi-streams-20211003-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: redefining IRONCLAD:BLOCK-LENGTH in DEFGENERIC
Unhandled SB-EXT:PACKAGE-LOCKED-ERROR in thread #<SB-THREAD:THREAD "main thread" RUNNING {1001BF0103}>: Lock on package SXQL.OPERATOR violated when importing symbol LIST=-OP while in package DYNA.SXQL.
See also:
  The SBCL Manual, Node "Package Locks"

Backtrace for: #<SB-THREAD:THREAD "main thread" RUNNING {1001BF0103}>
0: (SB-DEBUG::DEBUGGER-DISABLED-HOOK #<SB-EXT:PACKAGE-LOCKED-ERROR "importing symbol~P ~{~A~^, ~}" {1013064543}> #<unused argument> :QUIT T)
1: (SB-DEBUG::RUN-HOOK SB-EXT:*INVOKE-DEBUGGER-HOOK* #<SB-EXT:PACKAGE-LOCKED-ERROR "importing symbol~P ~{~A~^, ~}" {1013064543}>)
2: (INVOKE-DEBUGGER #<SB-EXT:PACKAGE-LOCKED-ERROR "importing symbol~P ~{~A~^, ~}" {1013064543}>)
3: (CERROR "Ignore the package lock." SB-EXT:PACKAGE-LOCKED-ERROR :PACKAGE #<PACKAGE "SXQL.OPERATOR"> :FORMAT-CONTROL "importing symbol~P ~{~A~^, ~}" :FORMAT-ARGUMENTS (1 (LIST=-OP)) :REFERENCES ((:SBCL :NODE "Package Locks")))
4: (SB-EXT:PACKAGE-LOCK-VIOLATION #<PACKAGE "SXQL.OPERATOR"> :SYMBOL NIL :FORMAT-CONTROL "importing symbol~P ~{~A~^, ~}" :FORMAT-ARGUMENTS (1 (LIST=-OP)))
5: (SB-IMPL::ASSERT-PACKAGE-UNLOCKED #<PACKAGE "SXQL.OPERATOR"> "importing symbol~P ~{~A~^, ~}" 1 (LIST=-OP))
6: ((FLET SB-THREAD::WITH-RECURSIVE-LOCK-THUNK :IN IMPORT))
7: ((FLET "WITHOUT-INTERRUPTS-BODY-11" :IN SB-THREAD::CALL-WITH-RECURSIVE-LOCK))
8: (SB-THREAD::CALL-WITH-RECURSIVE-LOCK #<FUNCTION (FLET SB-THREAD::WITH-RECURSIVE-LOCK-THUNK :IN IMPORT) {7F775F38E86B}> #<SB-THREAD:MUTEX "Package Graph Lock" owner: #<SB-THREAD:THREAD "main thread" RUNNING {1001BF0103}>> T NIL)
9: (IMPORT LIST=-OP #<PACKAGE "SXQL.OPERATOR">)
10: (SB-FASL::LOAD-FASL-GROUP #S(SB-FASL::FASL-INPUT :STREAM #<SB-SYS:FD-STREAM for #<(SIMPLE-BASE-STRING 204) file /home/quicklisp/.cache/common-lisp/sbcl-2.1.7.62-417920f09-linux-x64/home/quicklisp/quicklisp-controller/dist/build-cache/dyna/f9981ccccdbf77753179dab0e77150c57d9a817b/dyna-20211003-git/src/sxql.... {101304D44F}> {101304D573}> :TABLE #(377 SET *PACKAGE* "CL-USER" #<PACKAGE "SB-IMPL"> SB-IMPL::%DEFPACKAGE "DYNA.SXQL" "CL" "DYNA.ERROR" "DYNA.UTIL" "DYNA.COLUMN" "DYNA.TABLE" ...) :STACK #(0 IMPORT LIST=-OP #<PACKAGE "SXQL.OPERATOR"> SXQL.OPERATOR EQUALP 18121 SB-KERNEL:TWO-ARG-STRING-EQUAL 11337 "LIST=-OP-EQUALP" (SB-KERNEL::A SB-KERNEL::B) NIL ...) :NAME-BUFFER #("MAKE-LIST=-OP" "LIST=RG-STRING-EQUALOCKS") :DEPRECATED-STUFF NIL :SKIP-UNTIL NIL) NIL)
11: (SB-FASL::LOAD-AS-FASL #<SB-SYS:FD-STREAM for #<(SIMPLE-BASE-STRING 204) file /home/quicklisp/.cache/common-lisp/sbcl-2.1.7.62-417920f09-linux-x64/home/quicklisp/quicklisp-controller/dist/build-cache/dyna/f9981ccccdbf77753179dab0e77150c57d9a817b/dyna-20211003-git/src/sxql.... {101304D44F}> {101304D573}> NIL NIL)
12: ((LABELS SB-FASL::LOAD-STREAM-1 :IN LOAD) #<SB-SYS:FD-STREAM for #<(SIMPLE-BASE-STRING 204) file /home/quicklisp/.cache/common-lisp/sbcl-2.1.7.62-417920f09-linux-x64/home/quicklisp/quicklisp-controller/dist/build-cache/dyna/f9981ccccdbf77753179dab0e77150c57d9a817b/dyna-20211003-git/src/sxql.... {101304D44F}> {101304D573}> T)
13: (SB-FASL::CALL-WITH-LOAD-BINDINGS #<FUNCTION (LABELS SB-FASL::LOAD-STREAM-1 :IN LOAD) {7F775F38EB8B}> #<SB-SYS:FD-STREAM for #<(SIMPLE-BASE-STRING 204) file /home/quicklisp/.cache/common-lisp/sbcl-2.1.7.62-417920f09-linux-x64/home/quicklisp/quicklisp-controller/dist/build-cache/dyna/f9981ccccdbf77753179dab0e77150c57d9a817b/dyna-20211003-git/src/sxql.... {101304D44F}> {101304D573}> T #<SB-SYS:FD-STREAM for #<(SIMPLE-BASE-STRING 204) file /home/quicklisp/.cache/common-lisp/sbcl-2.1.7.62-417920f09-linux-x64/home/quicklisp/quicklisp-controller/dist/build-cache/dyna/f9981ccccdbf77753179dab0e77150c57d9a817b/dyna-20211003-git/src/sxql.... {101304D44F}> {101304D573}>)
14: (LOAD #P"/home/quicklisp/.cache/common-lisp/sbcl-2.1.7.62-417920f09-linux-x64/home/quicklisp/quicklisp-controller/dist/build-cache/dyna/f9981ccccdbf77753179dab0e77150c57d9a817b/dyna-20211003-git/src/sxql.fasl" :VERBOSE NIL :PRINT NIL :IF-DOES-NOT-EXIST T :EXTERNAL-FORMAT :DEFAULT)
15: (UIOP/UTILITY:CALL-WITH-MUFFLED-CONDITIONS #<FUNCTION (LAMBDA NIL :IN UIOP/LISP-BUILD:LOAD*) {101304CA9B}> ("Overwriting already existing readtable ~S." #(#:FINALIZERS-OFF-WARNING :ASDF-FINALIZERS)))
16: ((SB-PCL::EMF ASDF/ACTION:PERFORM) #<unused argument> #<unused argument> #<ASDF/LISP-ACTION:LOAD-OP > #<ASDF/LISP-ACTION:CL-SOURCE-FILE "dyna" "src" "sxql">)
17: ((LAMBDA NIL :IN ASDF/ACTION:CALL-WHILE-VISITING-ACTION))
18: ((:METHOD ASDF/ACTION:PERFORM-WITH-RESTARTS (ASDF/LISP-ACTION:LOAD-OP ASDF/LISP-ACTION:CL-SOURCE-FILE)) #<ASDF/LISP-ACTION:LOAD-OP > #<ASDF/LISP-ACTION:CL-SOURCE-FILE "dyna" "src" "sxql">) [fast-method]
19: ((:METHOD ASDF/ACTION:PERFORM-WITH-RESTARTS :AROUND (T T)) #<ASDF/LISP-ACTION:LOAD-OP > #<ASDF/LISP-ACTION:CL-SOURCE-FILE "dyna" "src" "sxql">) [fast-method]
20: ((:METHOD ASDF/PLAN:PERFORM-PLAN (T)) #<ASDF/PLAN:SEQUENTIAL-PLAN {1005993463}>) [fast-method]
21: ((FLET SB-C::WITH-IT :IN SB-C::%WITH-COMPILATION-UNIT))
22: ((:METHOD ASDF/PLAN:PERFORM-PLAN :AROUND (T)) #<ASDF/PLAN:SEQUENTIAL-PLAN {1005993463}>) [fast-method]
23: ((:METHOD ASDF/OPERATE:OPERATE (ASDF/OPERATION:OPERATION ASDF/COMPONENT:COMPONENT)) #<ASDF/LISP-ACTION:LOAD-OP > #<ASDF/SYSTEM:SYSTEM "dyna"> :PLAN-CLASS NIL :PLAN-OPTIONS NIL) [fast-method]
24: ((SB-PCL::EMF ASDF/OPERATE:OPERATE) #<unused argument> #<unused argument> #<ASDF/LISP-ACTION:LOAD-OP > #<ASDF/SYSTEM:SYSTEM "dyna">)
25: ((LAMBDA NIL :IN ASDF/OPERATE:OPERATE))
26: ((:METHOD ASDF/OPERATE:OPERATE :AROUND (T T)) #<ASDF/LISP-ACTION:LOAD-OP > #<ASDF/SYSTEM:SYSTEM "dyna">) [fast-method]
27: ((SB-PCL::EMF ASDF/OPERATE:OPERATE) #<unused argument> #<unused argument> ASDF/LISP-ACTION:LOAD-OP "dyna")
28: ((LAMBDA NIL :IN ASDF/OPERATE:OPERATE))
29: ((:METHOD ASDF/OPERATE:OPERATE :AROUND (T T)) ASDF/LISP-ACTION:LOAD-OP "dyna") [fast-method]
30: (ASDF/SESSION:CALL-WITH-ASDF-SESSION #<FUNCTION (LAMBDA NIL :IN ASDF/OPERATE:OPERATE) {100598CF8B}> :OVERRIDE T :KEY NIL :OVERRIDE-CACHE T :OVERRIDE-FORCING NIL)
31: ((LAMBDA NIL :IN ASDF/OPERATE:OPERATE))
32: (ASDF/SESSION:CALL-WITH-ASDF-SESSION #<FUNCTION (LAMBDA NIL :IN ASDF/OPERATE:OPERATE) {100594F65B}> :OVERRIDE NIL :KEY NIL :OVERRIDE-CACHE NIL :OVERRIDE-FORCING NIL)
33: ((:METHOD ASDF/OPERATE:OPERATE :AROUND (T T)) ASDF/LISP-ACTION:LOAD-OP "dyna") [fast-method]
34: (DEPCHECK::COMPUTE-DEPENDENCIES "dyna" "dyna")
35: (DEPCHECK::MAGIC "dyna" "dyna" "/home/quicklisp/quicklisp-controller/tmp/anonymous/anonymous-pX776zkr/depcheck-win.txt")
36: (DEPCHECK::MAIN ("depcheck" "/home/quicklisp/quicklisp-controller/dist/system-file-index" "dyna" "dyna" "/home/quicklisp/quicklisp-controller/tmp/anonymous/anonymous-pX776zkr/depcheck-win.txt" "/home/quicklisp/quicklisp-controller/tmp/anonymous/anonymous-pX776zkr/depcheck-fail.txt"))
37: ((LAMBDA NIL :IN "/home/quicklisp/quicklisp/local-projects/quicklisp-controller/dumper-2SKVI5f7.lisp"))
38: ((FLET SB-UNIX::BODY :IN SB-IMPL::START-LISP))
39: ((FLET "WITHOUT-INTERRUPTS-BODY-1" :IN SB-IMPL::START-LISP))
40: (SB-IMPL::START-LISP)

unhandled condition in --disable-debugger mode, quitting
; 
; compilation unit aborted
;   caught 1 fatal ERROR condition

dyna-test

WARNING: System definition file #P"/home/quicklisp/quicklisp-controller/dist/build-cache/flexi-streams/2f04ab423f3e13bad09bf311dd863838fec643be/flexi-streams-20211003-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-colors/08d7a2af682802fce159e47ff3511112f24e892a/cl-colors-20211003-git/cl-colors.asd" contains definition for system "cl-colors-tests". Please only define "cl-colors" and secondary systems with a name starting with "cl-colors/" (e.g. "cl-colors/test") in that file.
WARNING: redefining IRONCLAD:BLOCK-LENGTH in DEFGENERIC

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/jsown/2517e044a05b10514cd820cc76c15232273ee46d/jsown-20211003-git/reader.lisp
; in: DEFUN BUILD-BUFFER
;     (COERCE STRING 'SIMPLE-STRING)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR LIST (AND (NOT (SIMPLE-ARRAY CHARACTER (*))) (NOT SIMPLE-BASE-STRING) VECTOR) SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR.
; 
; note: unable to optimize due to type uncertainty: The second argument is a (OR LIST (AND (NOT SIMPLE-BASE-STRING) (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) SB-KERNEL:EXTENDED-SEQUENCE), not a (SIMPLE-ARRAY * (*)).

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/jsown/2517e044a05b10514cd820cc76c15232273ee46d/jsown-20211003-git/reader.lisp
; in: DEFUN NEXT-CHAR/
;     (DEFUN JSOWN::NEXT-CHAR/ (JSOWN::BUFFER)
;       (DECLARE (TYPE JSOWN::BUFFER JSOWN::BUFFER))
;       "Sets the pointer to the next char in the buffer, ignores escaped characters (they start with a \\) through"
;       (JSOWN::NEXT-CHAR JSOWN::BUFFER)
;       (LOOP JSOWN::UNTIL (CHAR/= (JSOWN::CURRENT-CHAR JSOWN::BUFFER) #\\)
;             IF (PROGN
;                 (JSOWN::NEXT-CHAR JSOWN::BUFFER)
;                 (CHAR= (JSOWN::CURRENT-CHAR JSOWN::BUFFER) #\u))
;             DO (LET ((JSOWN::CODE-VALUE #))
;                  (DECLARE (TYPE # JSOWN::CODE-VALUE))
;                  (IF (JSOWN::HIGH-SURROGATE-P JSOWN::CODE-VALUE)
;                      (INCF # 11)
;                      (INCF # 5))) JSOWN::ELSE
;             DO (INCF (JSOWN::BUFFER-INDEX JSOWN::BUFFER))))
; --> PROGN 
; ==>
;   (SB-IMPL::%DEFUN 'JSOWN::NEXT-CHAR/
;                    (SB-INT:NAMED-LAMBDA JSOWN::NEXT-CHAR/
;                        (JSOWN::BUFFER)
;                      (DECLARE (SB-C::TOP-LEVEL-FORM))
;                      "Sets the pointer to the next char in the buffer, ignores escaped characters (they start with a \\) through"
;                      (DECLARE (TYPE JSOWN::BUFFER JSOWN::BUFFER))
;                      (BLOCK JSOWN::NEXT-CHAR/
;                        (JSOWN::NEXT-CHAR JSOWN::BUFFER)
;                        (LOOP JSOWN::UNTIL (CHAR/= # #\\)
;                              IF (PROGN # #)
;                              DO (LET #
;                                   #
;                                   #) JSOWN::ELSE
;                              DO (INCF #))))
;                    '(LAMBDA (JSOWN::BUFFER)
;                       (DECLARE (TYPE JSOWN::BUFFER JSOWN::BUFFER))
;                       (BLOCK JSOWN::NEXT-CHAR/
;                         (JSOWN::NEXT-CHAR JSOWN::BUFFER)
;                         (LOOP JSOWN::UNTIL (CHAR/= # #\\)
;                               IF (PROGN # #)
;                               DO (LET #
;                                    #
;                                    #) JSOWN::ELSE
;                               DO (INCF #)))))
; 
; caught STYLE-WARNING:
;   Call to JSOWN::CURRENT-CHAR could not be inlined because no definition for it was seen prior to its first use.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/jsown/2517e044a05b10514cd820cc76c15232273ee46d/jsown-20211003-git/reader.lisp
; in: DEFUN SKIP-TO
;     (DEFUN JSOWN::SKIP-TO (JSOWN::BUFFER JSOWN::LAST-CHAR)
;       "Skips characters until <char> has been found.  <char> is the last char which is skipped
;    see: skip-until"
;       (DECLARE (TYPE JSOWN::BUFFER JSOWN::BUFFER)
;                (TYPE CHARACTER JSOWN::LAST-CHAR))
;       (JSOWN::SKIP-UNTIL JSOWN::BUFFER JSOWN::LAST-CHAR)
;       (JSOWN::NEXT-CHAR JSOWN::BUFFER))
; --> PROGN 
; ==>
;   (SB-IMPL::%DEFUN 'JSOWN::SKIP-TO
;                    (SB-INT:NAMED-LAMBDA JSOWN::SKIP-TO
;                        (JSOWN::BUFFER JSOWN::LAST-CHAR)
;                      (DECLARE (SB-C::TOP-LEVEL-FORM))
;                      "Skips characters until <char> has been found.  <char> is the last char which is skipped
;  see: skip-until"
;                      (DECLARE (TYPE JSOWN::BUFFER JSOWN::BUFFER)
;                               (TYPE CHARACTER JSOWN::LAST-CHAR))
;                      (BLOCK JSOWN::SKIP-TO
;                        (JSOWN::SKIP-UNTIL JSOWN::BUFFER JSOWN::LAST-CHAR)
;                        (JSOWN::NEXT-CHAR JSOWN::BUFFER)))
;                    '(LAMBDA (JSOWN::BUFFER JSOWN::LAST-CHAR)
;                       (DECLARE (TYPE JSOWN::BUFFER JSOWN::BUFFER)
;                                (TYPE CHARACTER JSOWN::LAST-CHAR))
;                       (BLOCK JSOWN::SKIP-TO
;                         (JSOWN::SKIP-UNTIL JSOWN::BUFFER JSOWN::LAST-CHAR)
;                         (JSOWN::NEXT-CHAR JSOWN::BUFFER))))
; 
; caught STYLE-WARNING:
;   Call to JSOWN::SKIP-UNTIL could not be inlined because no definition for it was seen prior to its first use.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/jsown/2517e044a05b10514cd820cc76c15232273ee46d/jsown-20211003-git/reader.lisp
; in: DEFUN SKIP-TO/
;     (DEFUN JSOWN::SKIP-TO/ (JSOWN::BUFFER JSOWN::LAST-CHAR)
;       "What skip-to does, but with the ignoring of \\"
;       (DECLARE (TYPE JSOWN::BUFFER JSOWN::BUFFER)
;                (TYPE CHARACTER JSOWN::LAST-CHAR))
;       (JSOWN::SKIP-UNTIL/ JSOWN::BUFFER JSOWN::LAST-CHAR)
;       (JSOWN::NEXT-CHAR/ JSOWN::BUFFER))
; --> PROGN 
; ==>
;   (SB-IMPL::%DEFUN 'JSOWN::SKIP-TO/
;                    (SB-INT:NAMED-LAMBDA JSOWN::SKIP-TO/
;                        (JSOWN::BUFFER JSOWN::LAST-CHAR)
;                      (DECLARE (SB-C::TOP-LEVEL-FORM))
;                      "What skip-to does, but with the ignoring of \\"
;                      (DECLARE (TYPE JSOWN::BUFFER JSOWN::BUFFER)
;                               (TYPE CHARACTER JSOWN::LAST-CHAR))
;                      (BLOCK JSOWN::SKIP-TO/
;                        (JSOWN::SKIP-UNTIL/ JSOWN::BUFFER JSOWN::LAST-CHAR)
;                        (JSOWN::NEXT-CHAR/ JSOWN::BUFFER)))
;                    '(LAMBDA (JSOWN::BUFFER JSOWN::LAST-CHAR)
;                       (DECLARE (TYPE JSOWN::BUFFER JSOWN::BUFFER)
;                                (TYPE CHARACTER JSOWN::LAST-CHAR))
;                       (BLOCK JSOWN::SKIP-TO/
;                         (JSOWN::SKIP-UNTIL/ JSOWN::BUFFER JSOWN::LAST-CHAR)
;                         (JSOWN::NEXT-CHAR/ JSOWN::BUFFER))))
; 
; caught STYLE-WARNING:
;   Call to JSOWN::SKIP-UNTIL/ could not be inlined because no definition for it was seen prior to its first use.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/jsown/2517e044a05b10514cd820cc76c15232273ee46d/jsown-20211003-git/reader.lisp
; in: DEFUN UNESCAPE-STRING/COUNT
;     (LOOP JSOWN::FOR JSOWN::BUFFER-INDEX JSOWN::FROM (JSOWN::BUFFER-MARK
;                                                       JSOWN::BUFFER) JSOWN::BELOW (JSOWN::BUFFER-INDEX
;                                                                                    JSOWN::BUFFER)
;           JSOWN::FOR JSOWN::C = (ELT (JSOWN::BUFFER-STRING JSOWN::BUFFER)
;                                      JSOWN::BUFFER-INDEX)
;           DO ...)
; --> BLOCK LET LET TAGBODY WHEN IF 
; ==>
;   (>= JSOWN::BUFFER-INDEX #:LOOP-LIMIT-0)
; 
; note: forced to do GENERIC-< (cost 10)
;       unable to do inline fixnum comparison (cost 4) because:
;       The first argument is a (INTEGER -4611686018427387904), not a FIXNUM.

; --> BLOCK LET LET TAGBODY SB-LOOP::LOOP-DESETQ SETQ THE 
; ==>
;   (1+ JSOWN::BUFFER-INDEX)
; 
; note: forced to do GENERIC-+ (cost 10)
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The first argument is a (INTEGER -4611686018427387904), not a FIXNUM.
;       The result is a (VALUES (INTEGER -4611686018427387903) &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a (INTEGER -4611686018427387904), not a FIXNUM.
;       The result is a (VALUES (INTEGER -4611686018427387903) &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       etc.

;     (INCF JSOWN::BUFFER-INDEX 10)
; ==>
;   (SETQ JSOWN::BUFFER-INDEX (+ 10 JSOWN::BUFFER-INDEX))
; 
; note: doing unsigned word to integer coercion (cost 20) to BUFFER-INDEX

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/jsown/2517e044a05b10514cd820cc76c15232273ee46d/jsown-20211003-git/reader.lisp
; in: DEFUN SUBSEQ-UNTIL/UNESCAPE
;     (JSOWN::UNESCAPE-STRING/COUNT JSOWN::BUFFER JSOWN::UNESCAPE-COUNT)
; --> BLOCK LET LET LOOP BLOCK LET LET TAGBODY WHEN IF 
; ==>
;   (>= JSOWN::BUFFER-INDEX #:LOOP-LIMIT-4)
; 
; note: forced to do GENERIC-< (cost 10)
;       unable to do inline fixnum comparison (cost 4) because:
;       The first argument is a (INTEGER -4611686018427387904), not a FIXNUM.

; --> BLOCK LET LET LOOP BLOCK LET LET TAGBODY SB-LOOP::LOOP-DESETQ SETQ THE 
; ==>
;   (1+ JSOWN::BUFFER-INDEX)
; 
; note: forced to do GENERIC-+ (cost 10)
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The first argument is a (INTEGER -4611686018427387904), not a FIXNUM.
;       The result is a (VALUES (INTEGER -4611686018427387903) &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a (INTEGER -4611686018427387904), not a FIXNUM.
;       The result is a (VALUES (INTEGER -4611686018427387903) &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       etc.

; --> BLOCK LET LET LOOP BLOCK LET LET TAGBODY IF PROGN SETF SB-KERNEL:%SETELT 
; --> CASE LET COND IF IF IF IF IF IF PROGN LET IF LET PROG1 LET PROGN INCF 
; ==>
;   (SETQ JSOWN::BUFFER-INDEX (+ 10 JSOWN::BUFFER-INDEX))
; 
; note: doing unsigned word to integer coercion (cost 20) to BUFFER-INDEX

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/jsown/2517e044a05b10514cd820cc76c15232273ee46d/jsown-20211003-git/reader.lisp
; in: DEFUN PARSE-STRING
;     (JSOWN::SUBSEQ-UNTIL/ JSOWN::BUFFER #\")
; ==>
;   JSOWN::BUFFER
; 
; note: deleting unreachable code

;     (JSOWN::SUBSEQ-UNTIL/UNESCAPE JSOWN::BUFFER #\")
; --> BLOCK LET IF JSOWN::UNESCAPE-STRING/COUNT BLOCK LET LET LOOP BLOCK LET 
; --> LET TAGBODY WHEN IF 
; ==>
;   (>= JSOWN::BUFFER-INDEX #:LOOP-LIMIT-4)
; 
; note: forced to do GENERIC-< (cost 10)
;       unable to do inline fixnum comparison (cost 4) because:
;       The first argument is a (INTEGER -4611686018427387904), not a FIXNUM.

; --> BLOCK LET IF JSOWN::UNESCAPE-STRING/COUNT BLOCK LET LET LOOP BLOCK LET 
; --> LET TAGBODY SB-LOOP::LOOP-DESETQ SETQ THE 
; ==>
;   (1+ JSOWN::BUFFER-INDEX)
; 
; note: forced to do GENERIC-+ (cost 10)
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The first argument is a (INTEGER -4611686018427387904), not a FIXNUM.
;       The result is a (VALUES (INTEGER -4611686018427387903) &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a (INTEGER -4611686018427387904), not a FIXNUM.
;       The result is a (VALUES (INTEGER -4611686018427387903) &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       etc.

; --> BLOCK LET IF JSOWN::UNESCAPE-STRING/COUNT BLOCK LET LET LOOP BLOCK LET 
; --> LET TAGBODY IF PROGN SETF SB-KERNEL:%SETELT CASE LET COND IF IF IF IF IF 
; --> IF PROGN LET IF LET PROG1 LET PROGN INCF 
; ==>
;   (SETQ JSOWN::BUFFER-INDEX (+ 10 JSOWN::BUFFER-INDEX))
; 
; note: doing unsigned word to integer coercion (cost 20) to BUFFER-INDEX

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/jsown/2517e044a05b10514cd820cc76c15232273ee46d/jsown-20211003-git/reader.lisp
; in: DEFMACRO SET-READ-NUMBER-PART
;     'FIXNUM
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/jsown/2517e044a05b10514cd820cc76c15232273ee46d/jsown-20211003-git/reader.lisp
; in: DEFMACRO READ-NUMBER*
;     'FIXNUM
; 
; note: deleting unreachable code

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/jsown/2517e044a05b10514cd820cc76c15232273ee46d/jsown-20211003-git/reader.lisp
; in: DEFUN READ-NUMBER
;     (JSOWN::READ-NUMBER*
;       JSOWN::BUFFER)
; --> PROGN LET COND IF JSOWN::SET-READ-NUMBER-PART LET JSOWN::READ-NUMBER* 
; --> PROGN LET COND IF JSOWN::SET-READ-NUMBER-PART LET JSOWN::READ-NUMBER* 
; --> PROGN LET COND THE JSOWN::SET-READ-NUMBER-PART LET 
; ==>
;   (* JSOWN::NEGATE-NUMBER
;      (+ JSOWN::WHOLE-NUMBER (/ FLOAT (EXPT 10 FLOAT-DIGITS)))
;      (EXPT 10 (* JSOWN::NEGATE-EXP EXP)))
; 
; note: unable to optimize due to type uncertainty: The second argument is a FIXNUM, not a UNSIGNED-BYTE.
; 
; note: unable to convert x/2^k to shift due to type uncertainty: The second argument is a (RATIONAL 0), not a INTEGER.
; 
; note: unable to convert x*2^k to shift due to type uncertainty: The second argument is a RATIONAL, not a INTEGER.
; 
; note: unable to optimize due to type uncertainty: The second argument is a (INTEGER -4611686018427387904 4611686018427387904), not a UNSIGNED-BYTE.
; 
; note: unable to convert x*2^k to shift due to type uncertainty: The first argument is a RATIONAL, not a INTEGER.The second argument is a (RATIONAL 0), not a INTEGER.

; --> PROGN LET COND IF JSOWN::SET-READ-NUMBER-PART LET JSOWN::READ-NUMBER* 
; --> PROGN LET COND IF THE JSOWN::SET-READ-NUMBER-PART LET * + / 
; ==>
;   (EXPT 10 FLOAT-DIGITS)
; 
; note: unable to optimize due to type uncertainty: The second argument is a FIXNUM, not a UNSIGNED-BYTE.

; --> PROGN LET COND IF JSOWN::SET-READ-NUMBER-PART LET JSOWN::READ-NUMBER* 
; --> PROGN LET COND IF THE JSOWN::SET-READ-NUMBER-PART LET * + 
; ==>
;   (/ FLOAT (EXPT 10 FLOAT-DIGITS))
; 
; note: unable to convert x/2^k to shift due to type uncertainty: The second argument is a (RATIONAL 0), not a INTEGER.

; --> PROGN LET COND IF JSOWN::SET-READ-NUMBER-PART LET JSOWN::READ-NUMBER* 
; --> PROGN LET COND IF THE JSOWN::SET-READ-NUMBER-PART LET 
; ==>
;   (* JSOWN::NEGATE-NUMBER
;      (+ JSOWN::WHOLE-NUMBER (/ FLOAT (EXPT 10 FLOAT-DIGITS))))
; 
; note: unable to convert x*2^k to shift due to type uncertainty: The second argument is a RATIONAL, not a INTEGER.

; --> PROGN LET COND IF IF JSOWN::SET-READ-NUMBER-PART LET JSOWN::READ-NUMBER* 
; --> PROGN LET COND IF JSOWN::SET-READ-NUMBER-PART LET JSOWN::READ-NUMBER* 
; --> PROGN LET COND THE JSOWN::SET-READ-NUMBER-PART LET 
; ==>
;   (* JSOWN::NEGATE-NUMBER
;      (+ JSOWN::WHOLE-NUMBER (/ FLOAT (EXPT 10 FLOAT-DIGITS)))
;      (EXPT 10 (* JSOWN::NEGATE-EXP EXP)))
; 
; note: unable to optimize due to type uncertainty: The second argument is a FIXNUM, not a UNSIGNED-BYTE.
; 
; note: unable to convert x/2^k to shift due to type uncertainty: The second argument is a (RATIONAL 0), not a INTEGER.
; 
; note: unable to convert x*2^k to shift due to type uncertainty: The second argument is a RATIONAL, not a INTEGER.
; 
; note: unable to optimize due to type uncertainty: The second argument is a (INTEGER -4611686018427387904 4611686018427387904), not a UNSIGNED-BYTE.
; 
; note: unable to convert x*2^k to shift due to type uncertainty: The first argument is a RATIONAL, not a INTEGER.The second argument is a (RATIONAL 0), not a INTEGER.

; --> PROGN LET COND IF IF JSOWN::SET-READ-NUMBER-PART LET JSOWN::READ-NUMBER* 
; --> PROGN LET COND IF THE JSOWN::SET-READ-NUMBER-PART LET 
; ==>
;   (* JSOWN::NEGATE-NUMBER JSOWN::WHOLE-NUMBER
;      (EXPT 10 (* JSOWN::NEGATE-EXP EXP)))
; 
; note: unable to optimize due to type uncertainty: The second argument is a (INTEGER -4611686018427387904 4611686018427387904), not a UNSIGNED-BYTE.
; 
; note: unable to convert x*2^k to shift due to type uncertainty: The second argument is a (RATIONAL 0), not a INTEGER.

; --> PROGN LET COND IF JSOWN::SET-READ-NUMBER-PART LET JSOWN::READ-NUMBER* 
; --> PROGN LET COND IF JSOWN::SET-READ-NUMBER-PART LET JSOWN::READ-NUMBER* 
; --> PROGN LET COND THE JSOWN::SET-READ-NUMBER-PART LET 
; ==>
;   (* JSOWN::NEGATE-NUMBER
;      (+ JSOWN::WHOLE-NUMBER (/ FLOAT (EXPT 10 FLOAT-DIGITS)))
;      (EXPT 10 (* JSOWN::NEGATE-EXP EXP)))
; 
; note: forced to do GENERIC-+ (cost 10)
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a INTEGER, not a FIXNUM.
;       The second argument is a RATIONAL, not a FIXNUM.
;       The result is a (VALUES RATIONAL &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       unable to do inline (signed-byte 64) arithmetic (cost 4) because:
;       The first argument is a INTEGER, not a (SIGNED-BYTE 64).
;       The second argument is a RATIONAL, not a (SIGNED-BYTE 64).
;       The result is a (VALUES RATIONAL &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &REST T).
;       etc.
; 
; note: forced to do GENERIC-* (cost 30)
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The second argument is a RATIONAL, not a FIXNUM.
;       The result is a (VALUES RATIONAL &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       unable to do inline (signed-byte 64) arithmetic (cost 4) because:
;       The second argument is a RATIONAL, not a (SIGNED-BYTE 64).
;       The result is a (VALUES RATIONAL &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &REST T).
;       etc.
; 
; note: forced to do GENERIC-* (cost 30)
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a RATIONAL, not a FIXNUM.
;       The second argument is a (RATIONAL 0), not a FIXNUM.
;       The result is a (VALUES RATIONAL &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       unable to do inline (signed-byte 64) arithmetic (cost 4) because:
;       The first argument is a RATIONAL, not a (SIGNED-BYTE 64).
;       The second argument is a (RATIONAL 0), not a (SIGNED-BYTE 64).
;       The result is a (VALUES RATIONAL &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &REST T).
;       etc.

; --> PROGN LET COND IF JSOWN::SET-READ-NUMBER-PART LET JSOWN::READ-NUMBER* 
; --> PROGN LET COND IF THE JSOWN::SET-READ-NUMBER-PART LET * 
; ==>
;   (+ JSOWN::WHOLE-NUMBER (/ FLOAT (EXPT 10 FLOAT-DIGITS)))
; 
; note: forced to do GENERIC-+ (cost 10)
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a INTEGER, not a FIXNUM.
;       The second argument is a RATIONAL, not a FIXNUM.
;       The result is a (VALUES RATIONAL &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       unable to do inline (signed-byte 64) arithmetic (cost 4) because:
;       The first argument is a INTEGER, not a (SIGNED-BYTE 64).
;       The second argument is a RATIONAL, not a (SIGNED-BYTE 64).
;       The result is a (VALUES RATIONAL &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &REST T).
;       etc.

; --> PROGN LET COND IF JSOWN::SET-READ-NUMBER-PART LET JSOWN::READ-NUMBER* 
; --> PROGN LET COND IF THE JSOWN::SET-READ-NUMBER-PART LET 
; ==>
;   (* JSOWN::NEGATE-NUMBER
;      (+ JSOWN::WHOLE-NUMBER (/ FLOAT (EXPT 10 FLOAT-DIGITS))))
; 
; note: forced to do GENERIC-* (cost 30)
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The second argument is a RATIONAL, not a FIXNUM.
;       The result is a (VALUES RATIONAL &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       unable to do inline (signed-byte 64) arithmetic (cost 4) because:
;       The second argument is a RATIONAL, not a (SIGNED-BYTE 64).
;       The result is a (VALUES RATIONAL &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &REST T).
;       etc.

; --> PROGN LET COND IF IF JSOWN::SET-READ-NUMBER-PART LET JSOWN::READ-NUMBER* 
; --> PROGN LET COND IF JSOWN::SET-READ-NUMBER-PART LET JSOWN::READ-NUMBER* 
; --> PROGN LET COND THE JSOWN::SET-READ-NUMBER-PART LET 
; ==>
;   (* JSOWN::NEGATE-NUMBER
;      (+ JSOWN::WHOLE-NUMBER (/ FLOAT (EXPT 10 FLOAT-DIGITS)))
;      (EXPT 10 (* JSOWN::NEGATE-EXP EXP)))
; 
; note: forced to do GENERIC-+ (cost 10)
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a INTEGER, not a FIXNUM.
;       The second argument is a RATIONAL, not a FIXNUM.
;       The result is a (VALUES RATIONAL &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       unable to do inline (signed-byte 64) arithmetic (cost 4) because:
;       The first argument is a INTEGER, not a (SIGNED-BYTE 64).
;       The second argument is a RATIONAL, not a (SIGNED-BYTE 64).
;       The result is a (VALUES RATIONAL &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &REST T).
;       etc.
; 
; note: forced to do GENERIC-* (cost 30)
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The second argument is a RATIONAL, not a FIXNUM.
;       The result is a (VALUES RATIONAL &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       unable to do inline (signed-byte 64) arithmetic (cost 4) because:
;       The second argument is a RATIONAL, not a (SIGNED-BYTE 64).
;       The result is a (VALUES RATIONAL &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &REST T).
;       etc.
; 
; note: forced to do GENERIC-* (cost 30)
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a RATIONAL, not a FIXNUM.
;       The second argument is a (RATIONAL 0), not a FIXNUM.
;       The result is a (VALUES RATIONAL &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       unable to do inline (signed-byte 64) arithmetic (cost 4) because:
;       The first argument is a RATIONAL, not a (SIGNED-BYTE 64).
;       The second argument is a (RATIONAL 0), not a (SIGNED-BYTE 64).
;       The result is a (VALUES RATIONAL &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &REST T).
;       etc.

; --> PROGN LET COND IF IF JSOWN::SET-READ-NUMBER-PART LET JSOWN::READ-NUMBER* 
; --> PROGN LET COND IF THE JSOWN::SET-READ-NUMBER-PART LET 
; ==>
;   (* JSOWN::NEGATE-NUMBER JSOWN::WHOLE-NUMBER
;      (EXPT 10 (* JSOWN::NEGATE-EXP EXP)))
; 
; note: forced to do GENERIC-* (cost 30)
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The second argument is a INTEGER, not a FIXNUM.
;       The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       unable to do inline (signed-byte 64) arithmetic (cost 4) because:
;       The second argument is a INTEGER, not a (SIGNED-BYTE 64).
;       The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &REST T).
;       etc.
; 
; note: forced to do GENERIC-* (cost 30)
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a INTEGER, not a FIXNUM.
;       The second argument is a (RATIONAL 0), not a FIXNUM.
;       The result is a (VALUES RATIONAL &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       unable to do inline (signed-byte 64) arithmetic (cost 4) because:
;       The first argument is a INTEGER, not a (SIGNED-BYTE 64).
;       The second argument is a (RATIONAL 0), not a (SIGNED-BYTE 64).
;       The result is a (VALUES RATIONAL &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &REST T).
;       etc.

; --> PROGN LET COND IF IF THE JSOWN::SET-READ-NUMBER-PART LET 
; ==>
;   (* JSOWN::NEGATE-NUMBER JSOWN::WHOLE-NUMBER)
; 
; note: forced to do GENERIC-* (cost 30)
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The second argument is a INTEGER, not a FIXNUM.
;       The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       unable to do inline (signed-byte 64) arithmetic (cost 4) because:
;       The second argument is a INTEGER, not a (SIGNED-BYTE 64).
;       The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &REST T).
;       etc.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/jsown/2517e044a05b10514cd820cc76c15232273ee46d/jsown-20211003-git/reader.lisp
; in: DEFUN TEST-READER-SPEED
;     (* JSOWN::ITERATIONS INTERNAL-TIME-UNITS-PER-SECOND)
; 
; note: unable to open-code float conversion in mixed numeric operation due to type uncertainty: The first argument is a REAL, not a FLOAT.
; 
; note: unable to convert x*2^k to shift due to type uncertainty: The first argument is a REAL, not a INTEGER.
; 
; note: unable to associate */(* /) of constants due to type uncertainty: The first argument is a REAL, not a RATIONAL.

;     (/ (* JSOWN::ITERATIONS INTERNAL-TIME-UNITS-PER-SECOND)
;        (- (GET-INTERNAL-RUN-TIME) JSOWN::CUR-TIME))
; 
; note: unable to open-code float conversion in mixed numeric operation due to type uncertainty: The first argument is a REAL, not a FLOAT.
; 
; note: unable to convert x/2^k to shift due to type uncertainty: The first argument is a REAL, not a INTEGER.

;     (LOOP JSOWN::FOR JSOWN::X JSOWN::FROM 0 JSOWN::BELOW JSOWN::ITERATIONS
;           DO (JSOWN:PARSE
;               "{\"foo\":\"bar\",\"baz\":1000,\"bang\":100.10,\"bingo\":[\"aa\",10,1.1],\"bonzo\":{\"foo\":\"bar\",\"baz\":1000,\"bang\":100.10}}"))
; --> BLOCK LET TAGBODY WHEN IF 
; ==>
;   (>= JSOWN::X #:LOOP-LIMIT-0)
; 
; note: unable to open code because: The operands might not be the same type.
; 
; note: forced to do GENERIC-> (cost 10)
;       unable to do inline fixnum comparison (cost 4) because:
;       The first argument is a UNSIGNED-BYTE, not a FIXNUM.
;       The second argument is a REAL, not a FIXNUM.

; --> BLOCK LET TAGBODY SB-LOOP::LOOP-DESETQ SETQ THE 
; ==>
;   (1+ JSOWN::X)
; 
; note: forced to do GENERIC-+ (cost 10)
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The first argument is a UNSIGNED-BYTE, not a FIXNUM.
;       The result is a (VALUES (INTEGER 1) &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a UNSIGNED-BYTE, not a FIXNUM.
;       The result is a (VALUES (INTEGER 1) &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       etc.

;     (* JSOWN::ITERATIONS INTERNAL-TIME-UNITS-PER-SECOND)
; 
; note: forced to do GENERIC-* (cost 30)
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The first argument is a REAL, not a FIXNUM.
;       The result is a (VALUES REAL &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a REAL, not a FIXNUM.
;       The result is a (VALUES REAL &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       etc.
WARNING: Lisp compilation had style-warnings while compiling #<CL-SOURCE-FILE "jsown" "reader">

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/jsown/2517e044a05b10514cd820cc76c15232273ee46d/jsown-20211003-git/writer.lisp
; in: DEFMETHOD TO-JSON (STRING)
;     (LOOP JSOWN::FOR CHAR JSOWN::ACROSS STRING
;           DO (CASE CHAR
;                (#\Newline (JSOWN::WRITE-CHARACTERS "\\n"))
;                (#\Return (JSOWN::WRITE-CHARACTERS "\\r"))
;                (#\Tab (JSOWN::WRITE-CHARACTERS "\\t"))
;                (#\" (JSOWN::WRITE-CHARACTERS "\\\""))
;                (#\\ (JSOWN::WRITE-CHARACTERS "\\\\"))
;                (T (COND (# #) (# #) (T #)))))
; --> BLOCK LET LET TAGBODY SB-LOOP::LOOP-DESETQ SETQ THE 
; ==>
;   (AREF #:LOOP-ACROSS-VECTOR-12 #:LOOP-ACROSS-INDEX-13)
; 
; note: unable to optimize due to type uncertainty: The first argument is a STRING, not a SIMPLE-STRING.
; 
; note: unable to avoid runtime dispatch on array element type due to type uncertainty: The first argument is a STRING, not a SIMPLE-ARRAY.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/jsown/2517e044a05b10514cd820cc76c15232273ee46d/jsown-20211003-git/writer.lisp
; in: DEFMETHOD TO-JSON (ARRAY)
;     (LOOP JSOWN::FOR JSOWN::I JSOWN::FROM 0 JSOWN::BELOW (ELT
;                                                           (ARRAY-DIMENSIONS
;                                                            ARRAY)
;                                                           (LENGTH JSOWN::DIMS))
;           JSOWN::COLLECT (APPLY #'JSOWN::ARRAY-TO-LIST ARRAY
;                                 `(,@JSOWN::DIMS ,JSOWN::I)))
; --> BLOCK LET SB-LOOP::WITH-LOOP-LIST-COLLECTION-HEAD LET* TAGBODY WHEN IF 
; ==>
;   (>= JSOWN::I #:LOOP-LIMIT-8)
; 
; note: unable to open code because: The operands might not be the same type.
; 
; note: forced to do GENERIC-> (cost 10)
;       unable to do inline fixnum comparison (cost 4) because:
;       The first argument is a UNSIGNED-BYTE, not a FIXNUM.
;       The second argument is a REAL, not a FIXNUM.

; --> BLOCK LET SB-LOOP::WITH-LOOP-LIST-COLLECTION-HEAD LET* TAGBODY 
; --> SB-LOOP::LOOP-DESETQ SETQ THE 
; ==>
;   (1+ JSOWN::I)
; 
; note: forced to do GENERIC-+ (cost 10)
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The first argument is a UNSIGNED-BYTE, not a FIXNUM.
;       The result is a (VALUES (INTEGER 1) &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a UNSIGNED-BYTE, not a FIXNUM.
;       The result is a (VALUES (INTEGER 1) &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       etc.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/jsown/2517e044a05b10514cd820cc76c15232273ee46d/jsown-20211003-git/writer.lisp
; in: DEFUN WRITE-OBJECT-TO-STREAM
;     (DEFUN JSOWN::WRITE-OBJECT-TO-STREAM (JSOWN::OBJECT JSOWN::OUTPUT)
;       (DECLARE (TYPE STREAM JSOWN::OUTPUT))
;       (TYPECASE JSOWN::OBJECT
;         (RATIO
;          (JSOWN::WRITE-NUMBER* (COERCE JSOWN::OBJECT 'FLOAT) JSOWN::OUTPUT))
;         (NUMBER (JSOWN::WRITE-NUMBER* JSOWN::OBJECT JSOWN::OUTPUT))
;         (STRING (JSOWN::WRITE-STRING* JSOWN::OBJECT JSOWN::OUTPUT))
;         (NULL (FORMAT JSOWN::OUTPUT "[]"))
;         (T (COND (# #) (# #) (# #) (T #)))))
; --> PROGN 
; ==>
;   (SB-IMPL::%DEFUN 'JSOWN::WRITE-OBJECT-TO-STREAM
;                    (SB-INT:NAMED-LAMBDA JSOWN::WRITE-OBJECT-TO-STREAM
;                        (JSOWN::OBJECT JSOWN::OUTPUT)
;                      (DECLARE (SB-C::TOP-LEVEL-FORM))
;                      (DECLARE (TYPE STREAM JSOWN::OUTPUT))
;                      (BLOCK JSOWN::WRITE-OBJECT-TO-STREAM
;                        (TYPECASE JSOWN::OBJECT
;                          (RATIO #)
;                          (NUMBER #)
;                          (STRING #)
;                          (NULL #)
;                          (T #)))))
; 
; caught STYLE-WARNING:
;   Call to JSOWN::WRITE-STRING* could not be inlined because its source code was not saved. A global INLINE or SB-EXT:MAYBE-INLINE proclamation must be in effect to save function definitions for inlining.
; 
; caught STYLE-WARNING:
;   Call to JSOWN::WRITE-NUMBER* could not be inlined because its source code was not saved. A global INLINE or SB-EXT:MAYBE-INLINE proclamation must be in effect to save function definitions for inlining.
WARNING: Lisp compilation had style-warnings while compiling #<CL-SOURCE-FILE "jsown" "writer">

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/sxql/1dd59585fc517b06bbc27501ca8359f8a3ef94a5/sxql-20211003-git/src/sql-type.lisp
; in: DEFUN SQL-EXPRESSION-P
;     (TYPEP SXQL.SQL-TYPE::OBJECT 'SXQL.SQL-TYPE::SQL-EXPRESSION)
; 
; note: can't open-code test of unknown type SQL-CLAUSE

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/sxql/1dd59585fc517b06bbc27501ca8359f8a3ef94a5/sxql-20211003-git/src/sql-type.lisp
; in: DEFUN SQL-STATEMENT-LIST-P
;     'SXQL.SQL-TYPE::SQL-ALL-TYPE
; 
; note: can't open-code test of unknown type SQL-ALL-TYPE

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/sxql/1dd59585fc517b06bbc27501ca8359f8a3ef94a5/sxql-20211003-git/src/operator.lisp
; in: DEFSTRUCT ON-OP
;     (DEFSTRUCT
;         (SXQL.OPERATOR::ON-OP
;          (:INCLUDE SXQL.SQL-TYPE:SQL-OP (SXQL.SQL-TYPE:NAME "ON"))
;          (:CONSTRUCTOR SXQL.OPERATOR::MAKE-ON-OP (SXQL.SQL-TYPE:VAR)))
;       (SXQL.SQL-TYPE:VAR NIL :TYPE SXQL.OPERATOR::=-OP))
; --> PROGN SB-C:XDEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN 
; --> SB-INT:NAMED-LAMBDA FUNCTION BLOCK LET 
; ==>
;   (SB-KERNEL:THE*
;    (SXQL.OPERATOR::=-OP :CONTEXT
;     (:STRUCT SXQL.OPERATOR::ON-OP . SXQL.SQL-TYPE:VAR))
;    SB-KERNEL::VALUE)
; 
; note: can't open-code test of unknown type =-OP

; --> PROGN SB-C:XDEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN 
; --> SB-INT:NAMED-LAMBDA FUNCTION BLOCK 
; --> SB-KERNEL::%MAKE-STRUCTURE-INSTANCE-MACRO TRULY-THE 
; --> SB-KERNEL:%MAKE-STRUCTURE-INSTANCE 
; ==>
;   (THE SXQL.OPERATOR::=-OP SXQL.SQL-TYPE:VAR)
; 
; note: can't open-code test of unknown type =-OP

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/sxql/1dd59585fc517b06bbc27501ca8359f8a3ef94a5/sxql-20211003-git/src/clause.lisp
; in: DEFSTRUCT COLUMN-MODIFIER-CLAUSE
;     (DEFSTRUCT
;         (SXQL.CLAUSE::COLUMN-MODIFIER-CLAUSE
;          (:INCLUDE SXQL.SQL-TYPE:EXPRESSION-CLAUSE) (:CONSTRUCTOR NIL))
;       (SXQL.CLAUSE::COLUMN-DEFINITION NIL :TYPE
;        SXQL.CLAUSE::COLUMN-DEFINITION-CLAUSE)
;       (SXQL.CLAUSE::AFTER NIL :TYPE (OR SXQL.SQL-TYPE:SQL-SYMBOL NULL))
;       (FIRST NIL :TYPE BOOLEAN))
; --> PROGN SB-C:XDEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN 
; --> SB-INT:NAMED-LAMBDA FUNCTION BLOCK LET 
; ==>
;   (SB-KERNEL:THE*
;    (SXQL.CLAUSE::COLUMN-DEFINITION-CLAUSE :CONTEXT
;     (:STRUCT SXQL.CLAUSE::COLUMN-MODIFIER-CLAUSE
;      . SXQL.CLAUSE::COLUMN-DEFINITION))
;    SB-KERNEL::VALUE)
; 
; note: can't open-code test of unknown type COLUMN-DEFINITION-CLAUSE

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/sxql/1dd59585fc517b06bbc27501ca8359f8a3ef94a5/sxql-20211003-git/src/clause.lisp
; in: DEFSTRUCT ADD-COLUMN-CLAUSE
;     (DEFSTRUCT
;         (SXQL.CLAUSE::ADD-COLUMN-CLAUSE
;          (:INCLUDE SXQL.CLAUSE::COLUMN-MODIFIER-CLAUSE
;           (SXQL.SQL-TYPE:NAME "ADD COLUMN"))
;          (:CONSTRUCTOR SXQL.CLAUSE::MAKE-ADD-COLUMN-CLAUSE
;           (SXQL.CLAUSE::COLUMN-DEFINITION &KEY SXQL.CLAUSE::AFTER FIRST &AUX
;            (SXQL.SQL-TYPE:EXPRESSION #)))))
; --> PROGN SB-C:XDEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN 
; --> SB-INT:NAMED-LAMBDA FUNCTION BLOCK LET 
; ==>
;   (SB-KERNEL:THE*
;    (SXQL.CLAUSE::COLUMN-DEFINITION-CLAUSE :CONTEXT
;     (:STRUCT SXQL.CLAUSE::ADD-COLUMN-CLAUSE . SXQL.CLAUSE::COLUMN-DEFINITION))
;    SB-KERNEL::VALUE)
; 
; note: can't open-code test of unknown type COLUMN-DEFINITION-CLAUSE

; --> PROGN SB-C:XDEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN 
; --> SB-INT:NAMED-LAMBDA FUNCTION BLOCK 
; --> SB-KERNEL::%MAKE-STRUCTURE-INSTANCE-MACRO TRULY-THE 
; --> SB-KERNEL:%MAKE-STRUCTURE-INSTANCE 
; ==>
;   (THE SXQL.CLAUSE::COLUMN-DEFINITION-CLAUSE SXQL.CLAUSE::COLUMN-DEFINITION)
; 
; note: can't open-code test of unknown type COLUMN-DEFINITION-CLAUSE

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/sxql/1dd59585fc517b06bbc27501ca8359f8a3ef94a5/sxql-20211003-git/src/clause.lisp
; in: DEFSTRUCT MODIFY-COLUMN-CLAUSE
;     (DEFSTRUCT
;         (SXQL.CLAUSE::MODIFY-COLUMN-CLAUSE
;          (:INCLUDE SXQL.CLAUSE::COLUMN-MODIFIER-CLAUSE
;           (SXQL.SQL-TYPE:NAME "MODIFY COLUMN"))
;          (:CONSTRUCTOR SXQL.CLAUSE::MAKE-MODIFY-COLUMN-CLAUSE
;           (SXQL.CLAUSE::COLUMN-DEFINITION &KEY SXQL.CLAUSE::AFTER FIRST &AUX
;            (SXQL.SQL-TYPE:EXPRESSION #)))))
; --> PROGN SB-C:XDEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN 
; --> SB-INT:NAMED-LAMBDA FUNCTION BLOCK LET 
; ==>
;   (SB-KERNEL:THE*
;    (SXQL.CLAUSE::COLUMN-DEFINITION-CLAUSE :CONTEXT
;     (:STRUCT SXQL.CLAUSE::MODIFY-COLUMN-CLAUSE
;      . SXQL.CLAUSE::COLUMN-DEFINITION))
;    SB-KERNEL::VALUE)
; 
; note: can't open-code test of unknown type COLUMN-DEFINITION-CLAUSE

; --> PROGN SB-C:XDEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN 
; --> SB-INT:NAMED-LAMBDA FUNCTION BLOCK 
; --> SB-KERNEL::%MAKE-STRUCTURE-INSTANCE-MACRO TRULY-THE 
; --> SB-KERNEL:%MAKE-STRUCTURE-INSTANCE 
; ==>
;   (THE SXQL.CLAUSE::COLUMN-DEFINITION-CLAUSE SXQL.CLAUSE::COLUMN-DEFINITION)
; 
; note: can't open-code test of unknown type COLUMN-DEFINITION-CLAUSE

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/sxql/1dd59585fc517b06bbc27501ca8359f8a3ef94a5/sxql-20211003-git/src/clause.lisp
; in: DEFSTRUCT CHANGE-COLUMN-CLAUSE
;     (DEFSTRUCT
;         (SXQL.CLAUSE::CHANGE-COLUMN-CLAUSE
;          (:INCLUDE SXQL.CLAUSE::COLUMN-MODIFIER-CLAUSE
;           (SXQL.SQL-TYPE:NAME "CHANGE COLUMN"))
;          (:CONSTRUCTOR SXQL.CLAUSE::MAKE-CHANGE-COLUMN-CLAUSE
;           (SXQL.CLAUSE::OLD-COLUMN-NAME SXQL.CLAUSE::COLUMN-DEFINITION &KEY
;            SXQL.CLAUSE::AFTER FIRST &AUX (SXQL.SQL-TYPE:EXPRESSION #)))))
; --> PROGN SB-C:XDEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN 
; --> SB-INT:NAMED-LAMBDA FUNCTION BLOCK LET 
; ==>
;   (SB-KERNEL:THE*
;    (SXQL.CLAUSE::COLUMN-DEFINITION-CLAUSE :CONTEXT
;     (:STRUCT SXQL.CLAUSE::CHANGE-COLUMN-CLAUSE
;      . SXQL.CLAUSE::COLUMN-DEFINITION))
;    SB-KERNEL::VALUE)
; 
; note: can't open-code test of unknown type COLUMN-DEFINITION-CLAUSE

; --> PROGN SB-C:XDEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN 
; --> SB-INT:NAMED-LAMBDA FUNCTION BLOCK 
; --> SB-KERNEL::%MAKE-STRUCTURE-INSTANCE-MACRO TRULY-THE 
; --> SB-KERNEL:%MAKE-STRUCTURE-INSTANCE 
; ==>
;   (THE SXQL.CLAUSE::COLUMN-DEFINITION-CLAUSE SXQL.CLAUSE::COLUMN-DEFINITION)
; 
; note: can't open-code test of unknown type COLUMN-DEFINITION-CLAUSE

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/sxql/1dd59585fc517b06bbc27501ca8359f8a3ef94a5/sxql-20211003-git/src/statement.lisp
; in: DEFSTRUCT SELECT-STATEMENT
;     (ITERATE:ITER
;       (ITERATE:FOR (TYPE SXQL.STATEMENT::CLAUSE) SXQL.STATEMENT::ON
;        SXQL.STATEMENT::CLAUSES SXQL.STATEMENT::BY #'CDDR)
;       (ITERATE:COLLECT (TYPE-OF (CAR SXQL.STATEMENT::CLAUSE))))
; ==>
;   (LET* ((#:LIST15 NIL)
;          (TYPE NIL)
;          (SXQL.STATEMENT::CLAUSE NIL)
;          (#:RESULT14 NIL)
;          (#:END-POINTER16 NIL)
;          (#:TEMP17 NIL))
;     (BLOCK NIL
;       (BLOCK #:ITERATE156
;         (TAGBODY
;           (PROGN #)
;          SXQL.STATEMENT::LOOP-TOP-NIL
;           (PROGN # # # #)
;           (PROGN)
;           (GO SXQL.STATEMENT::LOOP-TOP-NIL)
;          SXQL.STATEMENT::LOOP-END-NIL
;           (PROGN))
;         #:RESULT14)))
; 
; caught STYLE-WARNING:
;   The variable TYPE is assigned but never read.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/sxql/1dd59585fc517b06bbc27501ca8359f8a3ef94a5/sxql-20211003-git/src/statement.lisp
; in: DEFUN COMPUTE-SELECT-STATEMENT-CHILDREN
;     (ITERATE:ITER
;       (ITERATE:FOR (TYPE . SXQL.STATEMENT::SCORE) ITERATE:IN
;        (SORT
;         (ITERATE:ITER
;           (ITERATE:FOR TYPE ITERATE:IN '#)
;           (ITERATE:COLLECT #))
;         #'< :KEY #'CDR))
;       (ITERATE:APPENDING
;        (LET ((SXQL.STATEMENT::CLAUSES #))
;          (IF (AND # SXQL.STATEMENT::CLAUSES)
;              (LIST #)
;              SXQL.STATEMENT::CLAUSES))))
; ==>
;   (LET* ((#:LIST19 NIL)
;          (TYPE NIL)
;          (SXQL.STATEMENT::SCORE NIL)
;          (#:RESULT18 NIL)
;          (#:END-POINTER20 NIL)
;          (#:TEMP21 NIL))
;     (BLOCK NIL
;       (BLOCK #:ITERATE0
;         (TAGBODY
;           (PROGN #)
;          SXQL.STATEMENT::LOOP-TOP-NIL
;           (PROGN # # # #)
;           (PROGN)
;           (GO SXQL.STATEMENT::LOOP-TOP-NIL)
;          SXQL.STATEMENT::LOOP-END-NIL
;           (PROGN))
;         #:RESULT18)))
; 
; caught STYLE-WARNING:
;   The variable SCORE is assigned but never read.
WARNING: Lisp compilation had style-warnings while compiling #<CL-SOURCE-FILE "sxql" "src" "statement">
Unhandled SB-EXT:PACKAGE-LOCKED-ERROR in thread #<SB-THREAD:THREAD "main thread" RUNNING {1001BF0103}>: Lock on package SXQL.OPERATOR violated when importing symbol LIST=-OP while in package DYNA.SXQL.
See also:
  The SBCL Manual, Node "Package Locks"

Backtrace for: #<SB-THREAD:THREAD "main thread" RUNNING {1001BF0103}>
0: (SB-DEBUG::DEBUGGER-DISABLED-HOOK #<SB-EXT:PACKAGE-LOCKED-ERROR "importing symbol~P ~{~A~^, ~}" {103777EB33}> #<unused argument> :QUIT T)
1: (SB-DEBUG::RUN-HOOK SB-EXT:*INVOKE-DEBUGGER-HOOK* #<SB-EXT:PACKAGE-LOCKED-ERROR "importing symbol~P ~{~A~^, ~}" {103777EB33}>)
2: (INVOKE-DEBUGGER #<SB-EXT:PACKAGE-LOCKED-ERROR "importing symbol~P ~{~A~^, ~}" {103777EB33}>)
3: (CERROR "Ignore the package lock." SB-EXT:PACKAGE-LOCKED-ERROR :PACKAGE #<PACKAGE "SXQL.OPERATOR"> :FORMAT-CONTROL "importing symbol~P ~{~A~^, ~}" :FORMAT-ARGUMENTS (1 (LIST=-OP)) :REFERENCES ((:SBCL :NODE "Package Locks")))
4: (SB-EXT:PACKAGE-LOCK-VIOLATION #<PACKAGE "SXQL.OPERATOR"> :SYMBOL NIL :FORMAT-CONTROL "importing symbol~P ~{~A~^, ~}" :FORMAT-ARGUMENTS (1 (LIST=-OP)))
5: (SB-IMPL::ASSERT-PACKAGE-UNLOCKED #<PACKAGE "SXQL.OPERATOR"> "importing symbol~P ~{~A~^, ~}" 1 (LIST=-OP))
6: ((FLET SB-THREAD::WITH-RECURSIVE-LOCK-THUNK :IN IMPORT))
7: ((FLET "WITHOUT-INTERRUPTS-BODY-11" :IN SB-THREAD::CALL-WITH-RECURSIVE-LOCK))
8: (SB-THREAD::CALL-WITH-RECURSIVE-LOCK #<FUNCTION (FLET SB-THREAD::WITH-RECURSIVE-LOCK-THUNK :IN IMPORT) {7FE81C14E86B}> #<SB-THREAD:MUTEX "Package Graph Lock" owner: #<SB-THREAD:THREAD "main thread" RUNNING {1001BF0103}>> T NIL)
9: (IMPORT LIST=-OP #<PACKAGE "SXQL.OPERATOR">)
10: (SB-FASL::LOAD-FASL-GROUP #S(SB-FASL::FASL-INPUT :STREAM #<SB-SYS:FD-STREAM for #<(SIMPLE-BASE-STRING 204) file /home/quicklisp/.cache/common-lisp/sbcl-2.1.7.62-417920f09-linux-x64/home/quicklisp/quicklisp-controller/dist/build-cache/dyna/f9981ccccdbf77753179dab0e77150c57d9a817b/dyna-20211003-git/src/sxql.... {103776D04F}> {103776D173}> :TABLE #(377 SET *PACKAGE* "CL-USER" #<PACKAGE "SB-IMPL"> SB-IMPL::%DEFPACKAGE "DYNA.SXQL" "CL" "DYNA.ERROR" "DYNA.UTIL" "DYNA.COLUMN" "DYNA.TABLE" ...) :STACK #(0 IMPORT LIST=-OP #<PACKAGE "SXQL.OPERATOR"> SXQL.OPERATOR EQUALP 18121 SB-KERNEL:TWO-ARG-STRING-EQUAL 11337 "LIST=-OP-EQUALP" (SB-KERNEL::A SB-KERNEL::B) NIL ...) :NAME-BUFFER #("MAKE-LIST=-OP" "LIST=RG-STRING-EQUALOCKS") :DEPRECATED-STUFF NIL :SKIP-UNTIL NIL) NIL)
11: (SB-FASL::LOAD-AS-FASL #<SB-SYS:FD-STREAM for #<(SIMPLE-BASE-STRING 204) file /home/quicklisp/.cache/common-lisp/sbcl-2.1.7.62-417920f09-linux-x64/home/quicklisp/quicklisp-controller/dist/build-cache/dyna/f9981ccccdbf77753179dab0e77150c57d9a817b/dyna-20211003-git/src/sxql.... {103776D04F}> {103776D173}> NIL NIL)
12: ((LABELS SB-FASL::LOAD-STREAM-1 :IN LOAD) #<SB-SYS:FD-STREAM for #<(SIMPLE-BASE-STRING 204) file /home/quicklisp/.cache/common-lisp/sbcl-2.1.7.62-417920f09-linux-x64/home/quicklisp/quicklisp-controller/dist/build-cache/dyna/f9981ccccdbf77753179dab0e77150c57d9a817b/dyna-20211003-git/src/sxql.... {103776D04F}> {103776D173}> T)
13: (SB-FASL::CALL-WITH-LOAD-BINDINGS #<FUNCTION (LABELS SB-FASL::LOAD-STREAM-1 :IN LOAD) {7FE81C14EB8B}> #<SB-SYS:FD-STREAM for #<(SIMPLE-BASE-STRING 204) file /home/quicklisp/.cache/common-lisp/sbcl-2.1.7.62-417920f09-linux-x64/home/quicklisp/quicklisp-controller/dist/build-cache/dyna/f9981ccccdbf77753179dab0e77150c57d9a817b/dyna-20211003-git/src/sxql.... {103776D04F}> {103776D173}> T #<SB-SYS:FD-STREAM for #<(SIMPLE-BASE-STRING 204) file /home/quicklisp/.cache/common-lisp/sbcl-2.1.7.62-417920f09-linux-x64/home/quicklisp/quicklisp-controller/dist/build-cache/dyna/f9981ccccdbf77753179dab0e77150c57d9a817b/dyna-20211003-git/src/sxql.... {103776D04F}> {103776D173}>)
14: (LOAD #P"/home/quicklisp/.cache/common-lisp/sbcl-2.1.7.62-417920f09-linux-x64/home/quicklisp/quicklisp-controller/dist/build-cache/dyna/f9981ccccdbf77753179dab0e77150c57d9a817b/dyna-20211003-git/src/sxql.fasl" :VERBOSE NIL :PRINT NIL :IF-DOES-NOT-EXIST T :EXTERNAL-FORMAT :DEFAULT)
15: (UIOP/UTILITY:CALL-WITH-MUFFLED-CONDITIONS #<FUNCTION (LAMBDA NIL :IN UIOP/LISP-BUILD:LOAD*) {103776C69B}> ("Overwriting already existing readtable ~S." #(#:FINALIZERS-OFF-WARNING :ASDF-FINALIZERS)))
16: ((SB-PCL::EMF ASDF/ACTION:PERFORM) #<unused argument> #<unused argument> #<ASDF/LISP-ACTION:LOAD-OP > #<ASDF/LISP-ACTION:CL-SOURCE-FILE "dyna" "src" "sxql">)
17: ((LAMBDA NIL :IN ASDF/ACTION:CALL-WHILE-VISITING-ACTION))
18: ((:METHOD ASDF/ACTION:PERFORM-WITH-RESTARTS (ASDF/LISP-ACTION:LOAD-OP ASDF/LISP-ACTION:CL-SOURCE-FILE)) #<ASDF/LISP-ACTION:LOAD-OP > #<ASDF/LISP-ACTION:CL-SOURCE-FILE "dyna" "src" "sxql">) [fast-method]
19: ((:METHOD ASDF/ACTION:PERFORM-WITH-RESTARTS :AROUND (T T)) #<ASDF/LISP-ACTION:LOAD-OP > #<ASDF/LISP-ACTION:CL-SOURCE-FILE "dyna" "src" "sxql">) [fast-method]
20: ((:METHOD ASDF/PLAN:PERFORM-PLAN (T)) #<ASDF/PLAN:SEQUENTIAL-PLAN {1005BFF123}>) [fast-method]
21: ((FLET SB-C::WITH-IT :IN SB-C::%WITH-COMPILATION-UNIT))
22: ((:METHOD ASDF/PLAN:PERFORM-PLAN :AROUND (T)) #<ASDF/PLAN:SEQUENTIAL-PLAN {1005BFF123}>) [fast-method]
23: ((:METHOD ASDF/OPERATE:OPERATE (ASDF/OPERATION:OPERATION ASDF/COMPONENT:COMPONENT)) #<ASDF/LISP-ACTION:LOAD-OP > #<ASDF/SYSTEM:SYSTEM "dyna-test"> :PLAN-CLASS NIL :PLAN-OPTIONS NIL) [fast-method]
24: ((SB-PCL::EMF ASDF/OPERATE:OPERATE) #<unused argument> #<unused argument> #<ASDF/LISP-ACTION:LOAD-OP > #<ASDF/SYSTEM:SYSTEM "dyna-test">)
25: ((LAMBDA NIL :IN ASDF/OPERATE:OPERATE))
26: ((:METHOD ASDF/OPERATE:OPERATE :AROUND (T T)) #<ASDF/LISP-ACTION:LOAD-OP > #<ASDF/SYSTEM:SYSTEM "dyna-test">) [fast-method]
27: ((SB-PCL::EMF ASDF/OPERATE:OPERATE) #<unused argument> #<unused argument> ASDF/LISP-ACTION:LOAD-OP "dyna-test")
28: ((LAMBDA NIL :IN ASDF/OPERATE:OPERATE))
29: ((:METHOD ASDF/OPERATE:OPERATE :AROUND (T T)) ASDF/LISP-ACTION:LOAD-OP "dyna-test") [fast-method]
30: (ASDF/SESSION:CALL-WITH-ASDF-SESSION #<FUNCTION (LAMBDA NIL :IN ASDF/OPERATE:OPERATE) {1005BE2C4B}> :OVERRIDE T :KEY NIL :OVERRIDE-CACHE T :OVERRIDE-FORCING NIL)
31: ((LAMBDA NIL :IN ASDF/OPERATE:OPERATE))
32: (ASDF/SESSION:CALL-WITH-ASDF-SESSION #<FUNCTION (LAMBDA NIL :IN ASDF/OPERATE:OPERATE) {1005BAE21B}> :OVERRIDE NIL :KEY NIL :OVERRIDE-CACHE NIL :OVERRIDE-FORCING NIL)
33: ((:METHOD ASDF/OPERATE:OPERATE :AROUND (T T)) ASDF/LISP-ACTION:LOAD-OP "dyna-test") [fast-method]
34: (DEPCHECK::COMPUTE-DEPENDENCIES "dyna-test" "dyna-test")
35: (DEPCHECK::MAGIC "dyna-test" "dyna-test" "/home/quicklisp/quicklisp-controller/tmp/anonymous/anonymous-hg8clDWL/depcheck-win.txt")
36: (DEPCHECK::MAIN ("depcheck" "/home/quicklisp/quicklisp-controller/dist/system-file-index" "dyna-test" "dyna-test" "/home/quicklisp/quicklisp-controller/tmp/anonymous/anonymous-hg8clDWL/depcheck-win.txt" "/home/quicklisp/quicklisp-controller/tmp/anonymous/anonymous-hg8clDWL/depcheck-fail.txt"))
37: ((LAMBDA NIL :IN "/home/quicklisp/quicklisp/local-projects/quicklisp-controller/dumper-2SKVI5f7.lisp"))
38: ((FLET SB-UNIX::BODY :IN SB-IMPL::START-LISP))
39: ((FLET "WITHOUT-INTERRUPTS-BODY-1" :IN SB-IMPL::START-LISP))
40: (SB-IMPL::START-LISP)

unhandled condition in --disable-debugger mode, quitting
; 
; compilation unit aborted
;   caught 1 fatal ERROR condition
;   caught 7 STYLE-WARNING conditions
;   printed 66 notes