petalisp

SBCL 1.5.0.120-1246d5212 / ASDF 3.3.1

petalisp

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/petalisp/3f31683ec5220b6f821802aae10da8c6a7243d75/petalisp-20190509-git/code/type-codes/type-codes.lisp
; in: DEFUN ARRAY-ELEMENT-TYPE-CODE
;     (PETALISP.TYPE-CODES::ARRAY-ELEMENT-TYPE-CODE-EXPANDER)
; --> TYPECASE LET COND IF PROGN 
; ==>
;   (PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER 'NIL)
; 
; caught WARNING:
;   Error during compiler-macroexpansion of (TYPE-CODE-FROM-TYPE-SPECIFIER (QUOTE NIL)). Use *BREAK-ON-SIGNALS* to intercept.
;    The function PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER is undefined.It is defined earlier in the file but is not available at compile-time.

; --> TYPECASE LET COND IF IF PROGN 
; ==>
;   (PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER 'CHARACTER)
; 
; caught WARNING:
;   Error during compiler-macroexpansion of (TYPE-CODE-FROM-TYPE-SPECIFIER (QUOTE CHARACTER)). Use *BREAK-ON-SIGNALS* to intercept.
;    The function PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER is undefined.It is defined earlier in the file but is not available at compile-time.

; --> TYPECASE LET COND IF IF IF PROGN 
; ==>
;   (PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER 'SINGLE-FLOAT)
; 
; caught WARNING:
;   Error during compiler-macroexpansion of (TYPE-CODE-FROM-TYPE-SPECIFIER (QUOTE SINGLE-FLOAT)). Use *BREAK-ON-SIGNALS* to intercept.
;    The function PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER is undefined.It is defined earlier in the file but is not available at compile-time.

; --> TYPECASE LET COND IF IF IF IF PROGN 
; ==>
;   (PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER 'DOUBLE-FLOAT)
; 
; caught WARNING:
;   Error during compiler-macroexpansion of (TYPE-CODE-FROM-TYPE-SPECIFIER (QUOTE DOUBLE-FLOAT)). Use *BREAK-ON-SIGNALS* to intercept.
;    The function PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER is undefined.It is defined earlier in the file but is not available at compile-time.

; --> TYPECASE LET COND IF IF IF IF IF PROGN 
; ==>
;   (PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER 'BIT)
; 
; caught WARNING:
;   Error during compiler-macroexpansion of (TYPE-CODE-FROM-TYPE-SPECIFIER (QUOTE BIT)). Use *BREAK-ON-SIGNALS* to intercept.
;    The function PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER is undefined.It is defined earlier in the file but is not available at compile-time.

; --> TYPECASE LET COND IF IF IF IF IF IF PROGN 
; ==>
;   (PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER '(UNSIGNED-BYTE 2))
; 
; caught WARNING:
;   Error during compiler-macroexpansion of (TYPE-CODE-FROM-TYPE-SPECIFIER (QUOTE #)). Use *BREAK-ON-SIGNALS* to intercept.
;    The function PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER is undefined.It is defined earlier in the file but is not available at compile-time.

; --> TYPECASE LET COND IF IF IF IF IF IF IF PROGN 
; ==>
;   (PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER '(UNSIGNED-BYTE 4))
; 
; caught WARNING:
;   Error during compiler-macroexpansion of (TYPE-CODE-FROM-TYPE-SPECIFIER (QUOTE #)). Use *BREAK-ON-SIGNALS* to intercept.
;    The function PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER is undefined.It is defined earlier in the file but is not available at compile-time.

; --> TYPECASE LET COND IF IF IF IF IF IF IF IF PROGN 
; ==>
;   (PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER '(UNSIGNED-BYTE 8))
; 
; caught WARNING:
;   Error during compiler-macroexpansion of (TYPE-CODE-FROM-TYPE-SPECIFIER (QUOTE #)). Use *BREAK-ON-SIGNALS* to intercept.
;    The function PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER is undefined.It is defined earlier in the file but is not available at compile-time.

; --> TYPECASE LET COND IF IF IF IF IF IF IF IF IF PROGN 
; ==>
;   (PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER '(UNSIGNED-BYTE 16))
; 
; caught WARNING:
;   Error during compiler-macroexpansion of (TYPE-CODE-FROM-TYPE-SPECIFIER (QUOTE #)). Use *BREAK-ON-SIGNALS* to intercept.
;    The function PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER is undefined.It is defined earlier in the file but is not available at compile-time.

; --> TYPECASE LET COND IF IF IF IF IF IF IF IF IF IF PROGN 
; ==>
;   (PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER '(UNSIGNED-BYTE 32))
; 
; caught WARNING:
;   Error during compiler-macroexpansion of (TYPE-CODE-FROM-TYPE-SPECIFIER (QUOTE #)). Use *BREAK-ON-SIGNALS* to intercept.
;    The function PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER is undefined.It is defined earlier in the file but is not available at compile-time.

; --> TYPECASE LET COND IF IF IF IF IF IF IF IF IF IF IF PROGN 
; ==>
;   (PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER '(UNSIGNED-BYTE 64))
; 
; caught WARNING:
;   Error during compiler-macroexpansion of (TYPE-CODE-FROM-TYPE-SPECIFIER (QUOTE #)). Use *BREAK-ON-SIGNALS* to intercept.
;    The function PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER is undefined.It is defined earlier in the file but is not available at compile-time.

; --> TYPECASE LET COND IF IF IF IF IF IF IF IF IF IF IF IF PROGN 
; ==>
;   (PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER '(SIGNED-BYTE 8))
; 
; caught WARNING:
;   Error during compiler-macroexpansion of (TYPE-CODE-FROM-TYPE-SPECIFIER (QUOTE #)). Use *BREAK-ON-SIGNALS* to intercept.
;    The function PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER is undefined.It is defined earlier in the file but is not available at compile-time.

; --> TYPECASE LET COND IF IF IF IF IF IF IF IF IF IF IF IF IF PROGN 
; ==>
;   (PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER '(SIGNED-BYTE 16))
; 
; caught WARNING:
;   Error during compiler-macroexpansion of (TYPE-CODE-FROM-TYPE-SPECIFIER (QUOTE #)). Use *BREAK-ON-SIGNALS* to intercept.
;    The function PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER is undefined.It is defined earlier in the file but is not available at compile-time.

; --> TYPECASE LET COND IF IF IF IF IF IF IF IF IF IF IF IF IF IF PROGN 
; ==>
;   (PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER '(SIGNED-BYTE 32))
; 
; caught WARNING:
;   Error during compiler-macroexpansion of (TYPE-CODE-FROM-TYPE-SPECIFIER (QUOTE #)). Use *BREAK-ON-SIGNALS* to intercept.
;    The function PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER is undefined.It is defined earlier in the file but is not available at compile-time.

; --> TYPECASE LET COND IF IF IF IF IF IF IF IF IF IF IF IF IF IF IF PROGN 
; ==>
;   (PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER '(SIGNED-BYTE 64))
; 
; caught WARNING:
;   Error during compiler-macroexpansion of (TYPE-CODE-FROM-TYPE-SPECIFIER (QUOTE #)). Use *BREAK-ON-SIGNALS* to intercept.
;    The function PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER is undefined.It is defined earlier in the file but is not available at compile-time.

; --> TYPECASE LET COND IF IF IF IF IF IF IF IF IF IF IF IF IF IF IF IF PROGN 
; ==>
;   (PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER '(COMPLEX SINGLE-FLOAT))
; 
; caught WARNING:
;   Error during compiler-macroexpansion of (TYPE-CODE-FROM-TYPE-SPECIFIER (QUOTE #)). Use *BREAK-ON-SIGNALS* to intercept.
;    The function PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER is undefined.It is defined earlier in the file but is not available at compile-time.

; --> TYPECASE LET COND IF IF IF IF IF IF IF IF IF IF IF IF IF IF IF IF IF 
; --> PROGN 
; ==>
;   (PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER '(COMPLEX DOUBLE-FLOAT))
; 
; caught WARNING:
;   Error during compiler-macroexpansion of (TYPE-CODE-FROM-TYPE-SPECIFIER (QUOTE #)). Use *BREAK-ON-SIGNALS* to intercept.
;    The function PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER is undefined.It is defined earlier in the file but is not available at compile-time.

; --> TYPECASE LET COND IF IF IF IF IF IF IF IF IF IF IF IF IF IF IF IF IF IF 
; --> PROGN 
; ==>
;   (PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER 'T)
; 
; caught WARNING:
;   Error during compiler-macroexpansion of (TYPE-CODE-FROM-TYPE-SPECIFIER (QUOTE T)). Use *BREAK-ON-SIGNALS* to intercept.
;    The function PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER is undefined.It is defined earlier in the file but is not available at compile-time.

; --> TYPECASE LET COND IF IF IF IF IF IF IF IF IF IF IF IF IF IF IF IF IF IF 
; --> THE PROGN 
; ==>
;   (PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER 'T)
; 
; caught WARNING:
;   Error during compiler-macroexpansion of (TYPE-CODE-FROM-TYPE-SPECIFIER (QUOTE T)). Use *BREAK-ON-SIGNALS* to intercept.
;    The function PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER is undefined.It is defined earlier in the file but is not available at compile-time.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/petalisp/3f31683ec5220b6f821802aae10da8c6a7243d75/petalisp-20190509-git/code/type-codes/type-codes.lisp
; in: DEFUN EMPTY-TYPE-CODE-P
;     (PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER 'NIL)
; 
; caught WARNING:
;   Error during compiler-macroexpansion of (TYPE-CODE-FROM-TYPE-SPECIFIER (QUOTE NIL)). Use *BREAK-ON-SIGNALS* to intercept.
;    The function PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER is undefined.It is defined earlier in the file but is not available at compile-time.
Unhandled UIOP/LISP-BUILD:COMPILE-FILE-ERROR in thread #<SB-THREAD:THREAD "main thread" RUNNING {10005E05B3}>: COMPILE-FILE-ERROR while compiling #<CL-SOURCE-FILE "petalisp.type-codes" "type-codes">

Backtrace for: #<SB-THREAD:THREAD "main thread" RUNNING {10005E05B3}>
0: (SB-DEBUG::DEBUGGER-DISABLED-HOOK #<UIOP/LISP-BUILD:COMPILE-FILE-ERROR {100966D1B3}> #<unused argument> :QUIT T)
1: (SB-DEBUG::RUN-HOOK *INVOKE-DEBUGGER-HOOK* #<UIOP/LISP-BUILD:COMPILE-FILE-ERROR {100966D1B3}>)
2: (INVOKE-DEBUGGER #<UIOP/LISP-BUILD:COMPILE-FILE-ERROR {100966D1B3}>)
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 "petalisp.type-codes" "type-codes">)))
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 "petalisp.type-codes" "type-codes">)))
5: ((SB-PCL::EMF ASDF/ACTION:PERFORM) #<unused argument> #<unused argument> #<ASDF/LISP-ACTION:COMPILE-OP > #<ASDF/LISP-ACTION:CL-SOURCE-FILE "petalisp.type-codes" "type-codes">)
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 "petalisp.type-codes" "type-codes">) [fast-method]
8: ((:METHOD ASDF/PLAN:PERFORM-PLAN (T)) #<ASDF/PLAN:SEQUENTIAL-PLAN {1005A31C33}>) [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 {1005A31C33}>) [fast-method]
11: ((:METHOD ASDF/OPERATE:OPERATE (ASDF/OPERATION:OPERATION ASDF/COMPONENT:COMPONENT)) #<ASDF/LISP-ACTION:LOAD-OP > #<ASDF/SYSTEM:SYSTEM "petalisp"> :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 "petalisp">)
13: ((LAMBDA NIL :IN ASDF/OPERATE:OPERATE))
14: ((:METHOD ASDF/OPERATE:OPERATE :AROUND (T T)) #<ASDF/LISP-ACTION:LOAD-OP > #<ASDF/SYSTEM:SYSTEM "petalisp">) [fast-method]
15: ((SB-PCL::EMF ASDF/OPERATE:OPERATE) #<unused argument> #<unused argument> ASDF/LISP-ACTION:LOAD-OP "petalisp")
16: ((LAMBDA NIL :IN ASDF/OPERATE:OPERATE))
17: ((:METHOD ASDF/OPERATE:OPERATE :AROUND (T T)) ASDF/LISP-ACTION:LOAD-OP "petalisp") [fast-method]
18: (ASDF/SESSION:CALL-WITH-ASDF-SESSION #<CLOSURE (LAMBDA NIL :IN ASDF/OPERATE:OPERATE) {1005A2799B}> :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) {10059E4CCB}> :OVERRIDE NIL :KEY NIL :OVERRIDE-CACHE NIL :OVERRIDE-FORCING NIL)
21: ((:METHOD ASDF/OPERATE:OPERATE :AROUND (T T)) ASDF/LISP-ACTION:LOAD-OP "petalisp") [fast-method]
22: (DEPCHECK::COMPUTE-DEPENDENCIES "petalisp" "petalisp")
23: (DEPCHECK::MAGIC "petalisp" "petalisp" "/home/quicklisp/quicklisp-controller/tmp/anonymous/anonymous-8UabTKmA/depcheck-win.txt")
24: (DEPCHECK::MAIN ("depcheck" "/home/quicklisp/quicklisp-controller/dist/system-file-index" "petalisp" "petalisp" "/home/quicklisp/quicklisp-controller/tmp/anonymous/anonymous-8UabTKmA/depcheck-win.txt" "/home/quicklisp/quicklisp-controller/tmp/anonymous/anonymous-8UabTKmA/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 1 fatal ERROR condition
;   caught 20 WARNING conditions

petalisp.type-codes

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/petalisp/3f31683ec5220b6f821802aae10da8c6a7243d75/petalisp-20190509-git/code/type-codes/type-codes.lisp
; in: DEFUN ARRAY-ELEMENT-TYPE-CODE
;     (PETALISP.TYPE-CODES::ARRAY-ELEMENT-TYPE-CODE-EXPANDER)
; --> TYPECASE LET COND IF PROGN 
; ==>
;   (PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER 'NIL)
; 
; caught WARNING:
;   Error during compiler-macroexpansion of (TYPE-CODE-FROM-TYPE-SPECIFIER (QUOTE NIL)). Use *BREAK-ON-SIGNALS* to intercept.
;    The function PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER is undefined.It is defined earlier in the file but is not available at compile-time.

; --> TYPECASE LET COND IF IF PROGN 
; ==>
;   (PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER 'CHARACTER)
; 
; caught WARNING:
;   Error during compiler-macroexpansion of (TYPE-CODE-FROM-TYPE-SPECIFIER (QUOTE CHARACTER)). Use *BREAK-ON-SIGNALS* to intercept.
;    The function PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER is undefined.It is defined earlier in the file but is not available at compile-time.

; --> TYPECASE LET COND IF IF IF PROGN 
; ==>
;   (PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER 'SINGLE-FLOAT)
; 
; caught WARNING:
;   Error during compiler-macroexpansion of (TYPE-CODE-FROM-TYPE-SPECIFIER (QUOTE SINGLE-FLOAT)). Use *BREAK-ON-SIGNALS* to intercept.
;    The function PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER is undefined.It is defined earlier in the file but is not available at compile-time.

; --> TYPECASE LET COND IF IF IF IF PROGN 
; ==>
;   (PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER 'DOUBLE-FLOAT)
; 
; caught WARNING:
;   Error during compiler-macroexpansion of (TYPE-CODE-FROM-TYPE-SPECIFIER (QUOTE DOUBLE-FLOAT)). Use *BREAK-ON-SIGNALS* to intercept.
;    The function PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER is undefined.It is defined earlier in the file but is not available at compile-time.

; --> TYPECASE LET COND IF IF IF IF IF PROGN 
; ==>
;   (PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER 'BIT)
; 
; caught WARNING:
;   Error during compiler-macroexpansion of (TYPE-CODE-FROM-TYPE-SPECIFIER (QUOTE BIT)). Use *BREAK-ON-SIGNALS* to intercept.
;    The function PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER is undefined.It is defined earlier in the file but is not available at compile-time.

; --> TYPECASE LET COND IF IF IF IF IF IF PROGN 
; ==>
;   (PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER '(UNSIGNED-BYTE 2))
; 
; caught WARNING:
;   Error during compiler-macroexpansion of (TYPE-CODE-FROM-TYPE-SPECIFIER (QUOTE #)). Use *BREAK-ON-SIGNALS* to intercept.
;    The function PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER is undefined.It is defined earlier in the file but is not available at compile-time.

; --> TYPECASE LET COND IF IF IF IF IF IF IF PROGN 
; ==>
;   (PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER '(UNSIGNED-BYTE 4))
; 
; caught WARNING:
;   Error during compiler-macroexpansion of (TYPE-CODE-FROM-TYPE-SPECIFIER (QUOTE #)). Use *BREAK-ON-SIGNALS* to intercept.
;    The function PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER is undefined.It is defined earlier in the file but is not available at compile-time.

; --> TYPECASE LET COND IF IF IF IF IF IF IF IF PROGN 
; ==>
;   (PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER '(UNSIGNED-BYTE 8))
; 
; caught WARNING:
;   Error during compiler-macroexpansion of (TYPE-CODE-FROM-TYPE-SPECIFIER (QUOTE #)). Use *BREAK-ON-SIGNALS* to intercept.
;    The function PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER is undefined.It is defined earlier in the file but is not available at compile-time.

; --> TYPECASE LET COND IF IF IF IF IF IF IF IF IF PROGN 
; ==>
;   (PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER '(UNSIGNED-BYTE 16))
; 
; caught WARNING:
;   Error during compiler-macroexpansion of (TYPE-CODE-FROM-TYPE-SPECIFIER (QUOTE #)). Use *BREAK-ON-SIGNALS* to intercept.
;    The function PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER is undefined.It is defined earlier in the file but is not available at compile-time.

; --> TYPECASE LET COND IF IF IF IF IF IF IF IF IF IF PROGN 
; ==>
;   (PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER '(UNSIGNED-BYTE 32))
; 
; caught WARNING:
;   Error during compiler-macroexpansion of (TYPE-CODE-FROM-TYPE-SPECIFIER (QUOTE #)). Use *BREAK-ON-SIGNALS* to intercept.
;    The function PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER is undefined.It is defined earlier in the file but is not available at compile-time.

; --> TYPECASE LET COND IF IF IF IF IF IF IF IF IF IF IF PROGN 
; ==>
;   (PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER '(UNSIGNED-BYTE 64))
; 
; caught WARNING:
;   Error during compiler-macroexpansion of (TYPE-CODE-FROM-TYPE-SPECIFIER (QUOTE #)). Use *BREAK-ON-SIGNALS* to intercept.
;    The function PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER is undefined.It is defined earlier in the file but is not available at compile-time.

; --> TYPECASE LET COND IF IF IF IF IF IF IF IF IF IF IF IF PROGN 
; ==>
;   (PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER '(SIGNED-BYTE 8))
; 
; caught WARNING:
;   Error during compiler-macroexpansion of (TYPE-CODE-FROM-TYPE-SPECIFIER (QUOTE #)). Use *BREAK-ON-SIGNALS* to intercept.
;    The function PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER is undefined.It is defined earlier in the file but is not available at compile-time.

; --> TYPECASE LET COND IF IF IF IF IF IF IF IF IF IF IF IF IF PROGN 
; ==>
;   (PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER '(SIGNED-BYTE 16))
; 
; caught WARNING:
;   Error during compiler-macroexpansion of (TYPE-CODE-FROM-TYPE-SPECIFIER (QUOTE #)). Use *BREAK-ON-SIGNALS* to intercept.
;    The function PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER is undefined.It is defined earlier in the file but is not available at compile-time.

; --> TYPECASE LET COND IF IF IF IF IF IF IF IF IF IF IF IF IF IF PROGN 
; ==>
;   (PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER '(SIGNED-BYTE 32))
; 
; caught WARNING:
;   Error during compiler-macroexpansion of (TYPE-CODE-FROM-TYPE-SPECIFIER (QUOTE #)). Use *BREAK-ON-SIGNALS* to intercept.
;    The function PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER is undefined.It is defined earlier in the file but is not available at compile-time.

; --> TYPECASE LET COND IF IF IF IF IF IF IF IF IF IF IF IF IF IF IF PROGN 
; ==>
;   (PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER '(SIGNED-BYTE 64))
; 
; caught WARNING:
;   Error during compiler-macroexpansion of (TYPE-CODE-FROM-TYPE-SPECIFIER (QUOTE #)). Use *BREAK-ON-SIGNALS* to intercept.
;    The function PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER is undefined.It is defined earlier in the file but is not available at compile-time.

; --> TYPECASE LET COND IF IF IF IF IF IF IF IF IF IF IF IF IF IF IF IF PROGN 
; ==>
;   (PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER '(COMPLEX SINGLE-FLOAT))
; 
; caught WARNING:
;   Error during compiler-macroexpansion of (TYPE-CODE-FROM-TYPE-SPECIFIER (QUOTE #)). Use *BREAK-ON-SIGNALS* to intercept.
;    The function PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER is undefined.It is defined earlier in the file but is not available at compile-time.

; --> TYPECASE LET COND IF IF IF IF IF IF IF IF IF IF IF IF IF IF IF IF IF 
; --> PROGN 
; ==>
;   (PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER '(COMPLEX DOUBLE-FLOAT))
; 
; caught WARNING:
;   Error during compiler-macroexpansion of (TYPE-CODE-FROM-TYPE-SPECIFIER (QUOTE #)). Use *BREAK-ON-SIGNALS* to intercept.
;    The function PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER is undefined.It is defined earlier in the file but is not available at compile-time.

; --> TYPECASE LET COND IF IF IF IF IF IF IF IF IF IF IF IF IF IF IF IF IF IF 
; --> PROGN 
; ==>
;   (PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER 'T)
; 
; caught WARNING:
;   Error during compiler-macroexpansion of (TYPE-CODE-FROM-TYPE-SPECIFIER (QUOTE T)). Use *BREAK-ON-SIGNALS* to intercept.
;    The function PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER is undefined.It is defined earlier in the file but is not available at compile-time.

; --> TYPECASE LET COND IF IF IF IF IF IF IF IF IF IF IF IF IF IF IF IF IF IF 
; --> THE PROGN 
; ==>
;   (PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER 'T)
; 
; caught WARNING:
;   Error during compiler-macroexpansion of (TYPE-CODE-FROM-TYPE-SPECIFIER (QUOTE T)). Use *BREAK-ON-SIGNALS* to intercept.
;    The function PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER is undefined.It is defined earlier in the file but is not available at compile-time.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/petalisp/3f31683ec5220b6f821802aae10da8c6a7243d75/petalisp-20190509-git/code/type-codes/type-codes.lisp
; in: DEFUN EMPTY-TYPE-CODE-P
;     (PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER 'NIL)
; 
; caught WARNING:
;   Error during compiler-macroexpansion of (TYPE-CODE-FROM-TYPE-SPECIFIER (QUOTE NIL)). Use *BREAK-ON-SIGNALS* to intercept.
;    The function PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER is undefined.It is defined earlier in the file but is not available at compile-time.
Unhandled UIOP/LISP-BUILD:COMPILE-FILE-ERROR in thread #<SB-THREAD:THREAD "main thread" RUNNING {10005E05B3}>: COMPILE-FILE-ERROR while compiling #<CL-SOURCE-FILE "petalisp.type-codes" "type-codes">

Backtrace for: #<SB-THREAD:THREAD "main thread" RUNNING {10005E05B3}>
0: (SB-DEBUG::DEBUGGER-DISABLED-HOOK #<UIOP/LISP-BUILD:COMPILE-FILE-ERROR {10075FC473}> #<unused argument> :QUIT T)
1: (SB-DEBUG::RUN-HOOK *INVOKE-DEBUGGER-HOOK* #<UIOP/LISP-BUILD:COMPILE-FILE-ERROR {10075FC473}>)
2: (INVOKE-DEBUGGER #<UIOP/LISP-BUILD:COMPILE-FILE-ERROR {10075FC473}>)
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 "petalisp.type-codes" "type-codes">)))
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 "petalisp.type-codes" "type-codes">)))
5: ((SB-PCL::EMF ASDF/ACTION:PERFORM) #<unused argument> #<unused argument> #<ASDF/LISP-ACTION:COMPILE-OP > #<ASDF/LISP-ACTION:CL-SOURCE-FILE "petalisp.type-codes" "type-codes">)
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 "petalisp.type-codes" "type-codes">) [fast-method]
8: ((:METHOD ASDF/PLAN:PERFORM-PLAN (T)) #<ASDF/PLAN:SEQUENTIAL-PLAN {1005C1DBA3}>) [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 {1005C1DBA3}>) [fast-method]
11: ((:METHOD ASDF/OPERATE:OPERATE (ASDF/OPERATION:OPERATION ASDF/COMPONENT:COMPONENT)) #<ASDF/LISP-ACTION:LOAD-OP > #<ASDF/SYSTEM:SYSTEM "petalisp.type-codes"> :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 "petalisp.type-codes">)
13: ((LAMBDA NIL :IN ASDF/OPERATE:OPERATE))
14: ((:METHOD ASDF/OPERATE:OPERATE :AROUND (T T)) #<ASDF/LISP-ACTION:LOAD-OP > #<ASDF/SYSTEM:SYSTEM "petalisp.type-codes">) [fast-method]
15: ((SB-PCL::EMF ASDF/OPERATE:OPERATE) #<unused argument> #<unused argument> ASDF/LISP-ACTION:LOAD-OP "petalisp.type-codes")
16: ((LAMBDA NIL :IN ASDF/OPERATE:OPERATE))
17: ((:METHOD ASDF/OPERATE:OPERATE :AROUND (T T)) ASDF/LISP-ACTION:LOAD-OP "petalisp.type-codes") [fast-method]
18: (ASDF/SESSION:CALL-WITH-ASDF-SESSION #<CLOSURE (LAMBDA NIL :IN ASDF/OPERATE:OPERATE) {1005C17C6B}> :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) {1005BD51DB}> :OVERRIDE NIL :KEY NIL :OVERRIDE-CACHE NIL :OVERRIDE-FORCING NIL)
21: ((:METHOD ASDF/OPERATE:OPERATE :AROUND (T T)) ASDF/LISP-ACTION:LOAD-OP "petalisp.type-codes") [fast-method]
22: (DEPCHECK::COMPUTE-DEPENDENCIES "petalisp.type-codes" "petalisp.type-codes")
23: (DEPCHECK::MAGIC "petalisp.type-codes" "petalisp.type-codes" "/home/quicklisp/quicklisp-controller/tmp/anonymous/anonymous-9JMqKupb/depcheck-win.txt")
24: (DEPCHECK::MAIN ("depcheck" "/home/quicklisp/quicklisp-controller/dist/system-file-index" "petalisp.type-codes" "petalisp.type-codes" "/home/quicklisp/quicklisp-controller/tmp/anonymous/anonymous-9JMqKupb/depcheck-win.txt" "/home/quicklisp/quicklisp-controller/tmp/anonymous/anonymous-9JMqKupb/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 1 fatal ERROR condition
;   caught 20 WARNING conditions

petalisp.test-suite

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/petalisp/3f31683ec5220b6f821802aae10da8c6a7243d75/petalisp-20190509-git/code/type-codes/type-codes.lisp
; in: DEFUN ARRAY-ELEMENT-TYPE-CODE
;     (PETALISP.TYPE-CODES::ARRAY-ELEMENT-TYPE-CODE-EXPANDER)
; --> TYPECASE LET COND IF PROGN 
; ==>
;   (PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER 'NIL)
; 
; caught WARNING:
;   Error during compiler-macroexpansion of (TYPE-CODE-FROM-TYPE-SPECIFIER (QUOTE NIL)). Use *BREAK-ON-SIGNALS* to intercept.
;    The function PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER is undefined.It is defined earlier in the file but is not available at compile-time.

; --> TYPECASE LET COND IF IF PROGN 
; ==>
;   (PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER 'CHARACTER)
; 
; caught WARNING:
;   Error during compiler-macroexpansion of (TYPE-CODE-FROM-TYPE-SPECIFIER (QUOTE CHARACTER)). Use *BREAK-ON-SIGNALS* to intercept.
;    The function PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER is undefined.It is defined earlier in the file but is not available at compile-time.

; --> TYPECASE LET COND IF IF IF PROGN 
; ==>
;   (PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER 'SINGLE-FLOAT)
; 
; caught WARNING:
;   Error during compiler-macroexpansion of (TYPE-CODE-FROM-TYPE-SPECIFIER (QUOTE SINGLE-FLOAT)). Use *BREAK-ON-SIGNALS* to intercept.
;    The function PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER is undefined.It is defined earlier in the file but is not available at compile-time.

; --> TYPECASE LET COND IF IF IF IF PROGN 
; ==>
;   (PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER 'DOUBLE-FLOAT)
; 
; caught WARNING:
;   Error during compiler-macroexpansion of (TYPE-CODE-FROM-TYPE-SPECIFIER (QUOTE DOUBLE-FLOAT)). Use *BREAK-ON-SIGNALS* to intercept.
;    The function PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER is undefined.It is defined earlier in the file but is not available at compile-time.

; --> TYPECASE LET COND IF IF IF IF IF PROGN 
; ==>
;   (PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER 'BIT)
; 
; caught WARNING:
;   Error during compiler-macroexpansion of (TYPE-CODE-FROM-TYPE-SPECIFIER (QUOTE BIT)). Use *BREAK-ON-SIGNALS* to intercept.
;    The function PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER is undefined.It is defined earlier in the file but is not available at compile-time.

; --> TYPECASE LET COND IF IF IF IF IF IF PROGN 
; ==>
;   (PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER '(UNSIGNED-BYTE 2))
; 
; caught WARNING:
;   Error during compiler-macroexpansion of (TYPE-CODE-FROM-TYPE-SPECIFIER (QUOTE #)). Use *BREAK-ON-SIGNALS* to intercept.
;    The function PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER is undefined.It is defined earlier in the file but is not available at compile-time.

; --> TYPECASE LET COND IF IF IF IF IF IF IF PROGN 
; ==>
;   (PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER '(UNSIGNED-BYTE 4))
; 
; caught WARNING:
;   Error during compiler-macroexpansion of (TYPE-CODE-FROM-TYPE-SPECIFIER (QUOTE #)). Use *BREAK-ON-SIGNALS* to intercept.
;    The function PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER is undefined.It is defined earlier in the file but is not available at compile-time.

; --> TYPECASE LET COND IF IF IF IF IF IF IF IF PROGN 
; ==>
;   (PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER '(UNSIGNED-BYTE 8))
; 
; caught WARNING:
;   Error during compiler-macroexpansion of (TYPE-CODE-FROM-TYPE-SPECIFIER (QUOTE #)). Use *BREAK-ON-SIGNALS* to intercept.
;    The function PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER is undefined.It is defined earlier in the file but is not available at compile-time.

; --> TYPECASE LET COND IF IF IF IF IF IF IF IF IF PROGN 
; ==>
;   (PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER '(UNSIGNED-BYTE 16))
; 
; caught WARNING:
;   Error during compiler-macroexpansion of (TYPE-CODE-FROM-TYPE-SPECIFIER (QUOTE #)). Use *BREAK-ON-SIGNALS* to intercept.
;    The function PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER is undefined.It is defined earlier in the file but is not available at compile-time.

; --> TYPECASE LET COND IF IF IF IF IF IF IF IF IF IF PROGN 
; ==>
;   (PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER '(UNSIGNED-BYTE 32))
; 
; caught WARNING:
;   Error during compiler-macroexpansion of (TYPE-CODE-FROM-TYPE-SPECIFIER (QUOTE #)). Use *BREAK-ON-SIGNALS* to intercept.
;    The function PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER is undefined.It is defined earlier in the file but is not available at compile-time.

; --> TYPECASE LET COND IF IF IF IF IF IF IF IF IF IF IF PROGN 
; ==>
;   (PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER '(UNSIGNED-BYTE 64))
; 
; caught WARNING:
;   Error during compiler-macroexpansion of (TYPE-CODE-FROM-TYPE-SPECIFIER (QUOTE #)). Use *BREAK-ON-SIGNALS* to intercept.
;    The function PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER is undefined.It is defined earlier in the file but is not available at compile-time.

; --> TYPECASE LET COND IF IF IF IF IF IF IF IF IF IF IF IF PROGN 
; ==>
;   (PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER '(SIGNED-BYTE 8))
; 
; caught WARNING:
;   Error during compiler-macroexpansion of (TYPE-CODE-FROM-TYPE-SPECIFIER (QUOTE #)). Use *BREAK-ON-SIGNALS* to intercept.
;    The function PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER is undefined.It is defined earlier in the file but is not available at compile-time.

; --> TYPECASE LET COND IF IF IF IF IF IF IF IF IF IF IF IF IF PROGN 
; ==>
;   (PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER '(SIGNED-BYTE 16))
; 
; caught WARNING:
;   Error during compiler-macroexpansion of (TYPE-CODE-FROM-TYPE-SPECIFIER (QUOTE #)). Use *BREAK-ON-SIGNALS* to intercept.
;    The function PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER is undefined.It is defined earlier in the file but is not available at compile-time.

; --> TYPECASE LET COND IF IF IF IF IF IF IF IF IF IF IF IF IF IF PROGN 
; ==>
;   (PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER '(SIGNED-BYTE 32))
; 
; caught WARNING:
;   Error during compiler-macroexpansion of (TYPE-CODE-FROM-TYPE-SPECIFIER (QUOTE #)). Use *BREAK-ON-SIGNALS* to intercept.
;    The function PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER is undefined.It is defined earlier in the file but is not available at compile-time.

; --> TYPECASE LET COND IF IF IF IF IF IF IF IF IF IF IF IF IF IF IF PROGN 
; ==>
;   (PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER '(SIGNED-BYTE 64))
; 
; caught WARNING:
;   Error during compiler-macroexpansion of (TYPE-CODE-FROM-TYPE-SPECIFIER (QUOTE #)). Use *BREAK-ON-SIGNALS* to intercept.
;    The function PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER is undefined.It is defined earlier in the file but is not available at compile-time.

; --> TYPECASE LET COND IF IF IF IF IF IF IF IF IF IF IF IF IF IF IF IF PROGN 
; ==>
;   (PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER '(COMPLEX SINGLE-FLOAT))
; 
; caught WARNING:
;   Error during compiler-macroexpansion of (TYPE-CODE-FROM-TYPE-SPECIFIER (QUOTE #)). Use *BREAK-ON-SIGNALS* to intercept.
;    The function PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER is undefined.It is defined earlier in the file but is not available at compile-time.

; --> TYPECASE LET COND IF IF IF IF IF IF IF IF IF IF IF IF IF IF IF IF IF 
; --> PROGN 
; ==>
;   (PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER '(COMPLEX DOUBLE-FLOAT))
; 
; caught WARNING:
;   Error during compiler-macroexpansion of (TYPE-CODE-FROM-TYPE-SPECIFIER (QUOTE #)). Use *BREAK-ON-SIGNALS* to intercept.
;    The function PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER is undefined.It is defined earlier in the file but is not available at compile-time.

; --> TYPECASE LET COND IF IF IF IF IF IF IF IF IF IF IF IF IF IF IF IF IF IF 
; --> PROGN 
; ==>
;   (PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER 'T)
; 
; caught WARNING:
;   Error during compiler-macroexpansion of (TYPE-CODE-FROM-TYPE-SPECIFIER (QUOTE T)). Use *BREAK-ON-SIGNALS* to intercept.
;    The function PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER is undefined.It is defined earlier in the file but is not available at compile-time.

; --> TYPECASE LET COND IF IF IF IF IF IF IF IF IF IF IF IF IF IF IF IF IF IF 
; --> THE PROGN 
; ==>
;   (PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER 'T)
; 
; caught WARNING:
;   Error during compiler-macroexpansion of (TYPE-CODE-FROM-TYPE-SPECIFIER (QUOTE T)). Use *BREAK-ON-SIGNALS* to intercept.
;    The function PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER is undefined.It is defined earlier in the file but is not available at compile-time.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/petalisp/3f31683ec5220b6f821802aae10da8c6a7243d75/petalisp-20190509-git/code/type-codes/type-codes.lisp
; in: DEFUN EMPTY-TYPE-CODE-P
;     (PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER 'NIL)
; 
; caught WARNING:
;   Error during compiler-macroexpansion of (TYPE-CODE-FROM-TYPE-SPECIFIER (QUOTE NIL)). Use *BREAK-ON-SIGNALS* to intercept.
;    The function PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER is undefined.It is defined earlier in the file but is not available at compile-time.
Unhandled UIOP/LISP-BUILD:COMPILE-FILE-ERROR in thread #<SB-THREAD:THREAD "main thread" RUNNING {10005E05B3}>: COMPILE-FILE-ERROR while compiling #<CL-SOURCE-FILE "petalisp.type-codes" "type-codes">

Backtrace for: #<SB-THREAD:THREAD "main thread" RUNNING {10005E05B3}>
0: (SB-DEBUG::DEBUGGER-DISABLED-HOOK #<UIOP/LISP-BUILD:COMPILE-FILE-ERROR {10099BEE33}> #<unused argument> :QUIT T)
1: (SB-DEBUG::RUN-HOOK *INVOKE-DEBUGGER-HOOK* #<UIOP/LISP-BUILD:COMPILE-FILE-ERROR {10099BEE33}>)
2: (INVOKE-DEBUGGER #<UIOP/LISP-BUILD:COMPILE-FILE-ERROR {10099BEE33}>)
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 "petalisp.type-codes" "type-codes">)))
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 "petalisp.type-codes" "type-codes">)))
5: ((SB-PCL::EMF ASDF/ACTION:PERFORM) #<unused argument> #<unused argument> #<ASDF/LISP-ACTION:COMPILE-OP > #<ASDF/LISP-ACTION:CL-SOURCE-FILE "petalisp.type-codes" "type-codes">)
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 "petalisp.type-codes" "type-codes">) [fast-method]
8: ((:METHOD ASDF/PLAN:PERFORM-PLAN (T)) #<ASDF/PLAN:SEQUENTIAL-PLAN {1005B6ED83}>) [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 {1005B6ED83}>) [fast-method]
11: ((:METHOD ASDF/OPERATE:OPERATE (ASDF/OPERATION:OPERATION ASDF/COMPONENT:COMPONENT)) #<ASDF/LISP-ACTION:LOAD-OP > #<ASDF/SYSTEM:SYSTEM "petalisp.test-suite"> :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 "petalisp.test-suite">)
13: ((LAMBDA NIL :IN ASDF/OPERATE:OPERATE))
14: ((:METHOD ASDF/OPERATE:OPERATE :AROUND (T T)) #<ASDF/LISP-ACTION:LOAD-OP > #<ASDF/SYSTEM:SYSTEM "petalisp.test-suite">) [fast-method]
15: ((SB-PCL::EMF ASDF/OPERATE:OPERATE) #<unused argument> #<unused argument> ASDF/LISP-ACTION:LOAD-OP "petalisp.test-suite")
16: ((LAMBDA NIL :IN ASDF/OPERATE:OPERATE))
17: ((:METHOD ASDF/OPERATE:OPERATE :AROUND (T T)) ASDF/LISP-ACTION:LOAD-OP "petalisp.test-suite") [fast-method]
18: (ASDF/SESSION:CALL-WITH-ASDF-SESSION #<CLOSURE (LAMBDA NIL :IN ASDF/OPERATE:OPERATE) {1005B68EDB}> :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) {1005B263CB}> :OVERRIDE NIL :KEY NIL :OVERRIDE-CACHE NIL :OVERRIDE-FORCING NIL)
21: ((:METHOD ASDF/OPERATE:OPERATE :AROUND (T T)) ASDF/LISP-ACTION:LOAD-OP "petalisp.test-suite") [fast-method]
22: (DEPCHECK::COMPUTE-DEPENDENCIES "petalisp.test-suite" "petalisp.test-suite")
23: (DEPCHECK::MAGIC "petalisp.test-suite" "petalisp.test-suite" "/home/quicklisp/quicklisp-controller/tmp/anonymous/anonymous-pF0OQiTl/depcheck-win.txt")
24: (DEPCHECK::MAIN ("depcheck" "/home/quicklisp/quicklisp-controller/dist/system-file-index" "petalisp.test-suite" "petalisp.test-suite" "/home/quicklisp/quicklisp-controller/tmp/anonymous/anonymous-pF0OQiTl/depcheck-win.txt" "/home/quicklisp/quicklisp-controller/tmp/anonymous/anonymous-pF0OQiTl/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 1 fatal ERROR condition
;   caught 20 WARNING conditions

petalisp.reference-backend

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/petalisp/3f31683ec5220b6f821802aae10da8c6a7243d75/petalisp-20190509-git/code/type-codes/type-codes.lisp
; in: DEFUN ARRAY-ELEMENT-TYPE-CODE
;     (PETALISP.TYPE-CODES::ARRAY-ELEMENT-TYPE-CODE-EXPANDER)
; --> TYPECASE LET COND IF PROGN 
; ==>
;   (PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER 'NIL)
; 
; caught WARNING:
;   Error during compiler-macroexpansion of (TYPE-CODE-FROM-TYPE-SPECIFIER (QUOTE NIL)). Use *BREAK-ON-SIGNALS* to intercept.
;    The function PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER is undefined.It is defined earlier in the file but is not available at compile-time.

; --> TYPECASE LET COND IF IF PROGN 
; ==>
;   (PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER 'CHARACTER)
; 
; caught WARNING:
;   Error during compiler-macroexpansion of (TYPE-CODE-FROM-TYPE-SPECIFIER (QUOTE CHARACTER)). Use *BREAK-ON-SIGNALS* to intercept.
;    The function PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER is undefined.It is defined earlier in the file but is not available at compile-time.

; --> TYPECASE LET COND IF IF IF PROGN 
; ==>
;   (PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER 'SINGLE-FLOAT)
; 
; caught WARNING:
;   Error during compiler-macroexpansion of (TYPE-CODE-FROM-TYPE-SPECIFIER (QUOTE SINGLE-FLOAT)). Use *BREAK-ON-SIGNALS* to intercept.
;    The function PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER is undefined.It is defined earlier in the file but is not available at compile-time.

; --> TYPECASE LET COND IF IF IF IF PROGN 
; ==>
;   (PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER 'DOUBLE-FLOAT)
; 
; caught WARNING:
;   Error during compiler-macroexpansion of (TYPE-CODE-FROM-TYPE-SPECIFIER (QUOTE DOUBLE-FLOAT)). Use *BREAK-ON-SIGNALS* to intercept.
;    The function PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER is undefined.It is defined earlier in the file but is not available at compile-time.

; --> TYPECASE LET COND IF IF IF IF IF PROGN 
; ==>
;   (PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER 'BIT)
; 
; caught WARNING:
;   Error during compiler-macroexpansion of (TYPE-CODE-FROM-TYPE-SPECIFIER (QUOTE BIT)). Use *BREAK-ON-SIGNALS* to intercept.
;    The function PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER is undefined.It is defined earlier in the file but is not available at compile-time.

; --> TYPECASE LET COND IF IF IF IF IF IF PROGN 
; ==>
;   (PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER '(UNSIGNED-BYTE 2))
; 
; caught WARNING:
;   Error during compiler-macroexpansion of (TYPE-CODE-FROM-TYPE-SPECIFIER (QUOTE #)). Use *BREAK-ON-SIGNALS* to intercept.
;    The function PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER is undefined.It is defined earlier in the file but is not available at compile-time.

; --> TYPECASE LET COND IF IF IF IF IF IF IF PROGN 
; ==>
;   (PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER '(UNSIGNED-BYTE 4))
; 
; caught WARNING:
;   Error during compiler-macroexpansion of (TYPE-CODE-FROM-TYPE-SPECIFIER (QUOTE #)). Use *BREAK-ON-SIGNALS* to intercept.
;    The function PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER is undefined.It is defined earlier in the file but is not available at compile-time.

; --> TYPECASE LET COND IF IF IF IF IF IF IF IF PROGN 
; ==>
;   (PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER '(UNSIGNED-BYTE 8))
; 
; caught WARNING:
;   Error during compiler-macroexpansion of (TYPE-CODE-FROM-TYPE-SPECIFIER (QUOTE #)). Use *BREAK-ON-SIGNALS* to intercept.
;    The function PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER is undefined.It is defined earlier in the file but is not available at compile-time.

; --> TYPECASE LET COND IF IF IF IF IF IF IF IF IF PROGN 
; ==>
;   (PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER '(UNSIGNED-BYTE 16))
; 
; caught WARNING:
;   Error during compiler-macroexpansion of (TYPE-CODE-FROM-TYPE-SPECIFIER (QUOTE #)). Use *BREAK-ON-SIGNALS* to intercept.
;    The function PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER is undefined.It is defined earlier in the file but is not available at compile-time.

; --> TYPECASE LET COND IF IF IF IF IF IF IF IF IF IF PROGN 
; ==>
;   (PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER '(UNSIGNED-BYTE 32))
; 
; caught WARNING:
;   Error during compiler-macroexpansion of (TYPE-CODE-FROM-TYPE-SPECIFIER (QUOTE #)). Use *BREAK-ON-SIGNALS* to intercept.
;    The function PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER is undefined.It is defined earlier in the file but is not available at compile-time.

; --> TYPECASE LET COND IF IF IF IF IF IF IF IF IF IF IF PROGN 
; ==>
;   (PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER '(UNSIGNED-BYTE 64))
; 
; caught WARNING:
;   Error during compiler-macroexpansion of (TYPE-CODE-FROM-TYPE-SPECIFIER (QUOTE #)). Use *BREAK-ON-SIGNALS* to intercept.
;    The function PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER is undefined.It is defined earlier in the file but is not available at compile-time.

; --> TYPECASE LET COND IF IF IF IF IF IF IF IF IF IF IF IF PROGN 
; ==>
;   (PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER '(SIGNED-BYTE 8))
; 
; caught WARNING:
;   Error during compiler-macroexpansion of (TYPE-CODE-FROM-TYPE-SPECIFIER (QUOTE #)). Use *BREAK-ON-SIGNALS* to intercept.
;    The function PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER is undefined.It is defined earlier in the file but is not available at compile-time.

; --> TYPECASE LET COND IF IF IF IF IF IF IF IF IF IF IF IF IF PROGN 
; ==>
;   (PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER '(SIGNED-BYTE 16))
; 
; caught WARNING:
;   Error during compiler-macroexpansion of (TYPE-CODE-FROM-TYPE-SPECIFIER (QUOTE #)). Use *BREAK-ON-SIGNALS* to intercept.
;    The function PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER is undefined.It is defined earlier in the file but is not available at compile-time.

; --> TYPECASE LET COND IF IF IF IF IF IF IF IF IF IF IF IF IF IF PROGN 
; ==>
;   (PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER '(SIGNED-BYTE 32))
; 
; caught WARNING:
;   Error during compiler-macroexpansion of (TYPE-CODE-FROM-TYPE-SPECIFIER (QUOTE #)). Use *BREAK-ON-SIGNALS* to intercept.
;    The function PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER is undefined.It is defined earlier in the file but is not available at compile-time.

; --> TYPECASE LET COND IF IF IF IF IF IF IF IF IF IF IF IF IF IF IF PROGN 
; ==>
;   (PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER '(SIGNED-BYTE 64))
; 
; caught WARNING:
;   Error during compiler-macroexpansion of (TYPE-CODE-FROM-TYPE-SPECIFIER (QUOTE #)). Use *BREAK-ON-SIGNALS* to intercept.
;    The function PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER is undefined.It is defined earlier in the file but is not available at compile-time.

; --> TYPECASE LET COND IF IF IF IF IF IF IF IF IF IF IF IF IF IF IF IF PROGN 
; ==>
;   (PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER '(COMPLEX SINGLE-FLOAT))
; 
; caught WARNING:
;   Error during compiler-macroexpansion of (TYPE-CODE-FROM-TYPE-SPECIFIER (QUOTE #)). Use *BREAK-ON-SIGNALS* to intercept.
;    The function PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER is undefined.It is defined earlier in the file but is not available at compile-time.

; --> TYPECASE LET COND IF IF IF IF IF IF IF IF IF IF IF IF IF IF IF IF IF 
; --> PROGN 
; ==>
;   (PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER '(COMPLEX DOUBLE-FLOAT))
; 
; caught WARNING:
;   Error during compiler-macroexpansion of (TYPE-CODE-FROM-TYPE-SPECIFIER (QUOTE #)). Use *BREAK-ON-SIGNALS* to intercept.
;    The function PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER is undefined.It is defined earlier in the file but is not available at compile-time.

; --> TYPECASE LET COND IF IF IF IF IF IF IF IF IF IF IF IF IF IF IF IF IF IF 
; --> PROGN 
; ==>
;   (PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER 'T)
; 
; caught WARNING:
;   Error during compiler-macroexpansion of (TYPE-CODE-FROM-TYPE-SPECIFIER (QUOTE T)). Use *BREAK-ON-SIGNALS* to intercept.
;    The function PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER is undefined.It is defined earlier in the file but is not available at compile-time.

; --> TYPECASE LET COND IF IF IF IF IF IF IF IF IF IF IF IF IF IF IF IF IF IF 
; --> THE PROGN 
; ==>
;   (PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER 'T)
; 
; caught WARNING:
;   Error during compiler-macroexpansion of (TYPE-CODE-FROM-TYPE-SPECIFIER (QUOTE T)). Use *BREAK-ON-SIGNALS* to intercept.
;    The function PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER is undefined.It is defined earlier in the file but is not available at compile-time.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/petalisp/3f31683ec5220b6f821802aae10da8c6a7243d75/petalisp-20190509-git/code/type-codes/type-codes.lisp
; in: DEFUN EMPTY-TYPE-CODE-P
;     (PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER 'NIL)
; 
; caught WARNING:
;   Error during compiler-macroexpansion of (TYPE-CODE-FROM-TYPE-SPECIFIER (QUOTE NIL)). Use *BREAK-ON-SIGNALS* to intercept.
;    The function PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER is undefined.It is defined earlier in the file but is not available at compile-time.
Unhandled UIOP/LISP-BUILD:COMPILE-FILE-ERROR in thread #<SB-THREAD:THREAD "main thread" RUNNING {10005E05B3}>: COMPILE-FILE-ERROR while compiling #<CL-SOURCE-FILE "petalisp.type-codes" "type-codes">

Backtrace for: #<SB-THREAD:THREAD "main thread" RUNNING {10005E05B3}>
0: (SB-DEBUG::DEBUGGER-DISABLED-HOOK #<UIOP/LISP-BUILD:COMPILE-FILE-ERROR {100957C1E3}> #<unused argument> :QUIT T)
1: (SB-DEBUG::RUN-HOOK *INVOKE-DEBUGGER-HOOK* #<UIOP/LISP-BUILD:COMPILE-FILE-ERROR {100957C1E3}>)
2: (INVOKE-DEBUGGER #<UIOP/LISP-BUILD:COMPILE-FILE-ERROR {100957C1E3}>)
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 "petalisp.type-codes" "type-codes">)))
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 "petalisp.type-codes" "type-codes">)))
5: ((SB-PCL::EMF ASDF/ACTION:PERFORM) #<unused argument> #<unused argument> #<ASDF/LISP-ACTION:COMPILE-OP > #<ASDF/LISP-ACTION:CL-SOURCE-FILE "petalisp.type-codes" "type-codes">)
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 "petalisp.type-codes" "type-codes">) [fast-method]
8: ((:METHOD ASDF/PLAN:PERFORM-PLAN (T)) #<ASDF/PLAN:SEQUENTIAL-PLAN {1005B1A323}>) [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 {1005B1A323}>) [fast-method]
11: ((:METHOD ASDF/OPERATE:OPERATE (ASDF/OPERATION:OPERATION ASDF/COMPONENT:COMPONENT)) #<ASDF/LISP-ACTION:LOAD-OP > #<ASDF/SYSTEM:SYSTEM "petalisp.reference-backend"> :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 "petalisp.reference-backend">)
13: ((LAMBDA NIL :IN ASDF/OPERATE:OPERATE))
14: ((:METHOD ASDF/OPERATE:OPERATE :AROUND (T T)) #<ASDF/LISP-ACTION:LOAD-OP > #<ASDF/SYSTEM:SYSTEM "petalisp.reference-backend">) [fast-method]
15: ((SB-PCL::EMF ASDF/OPERATE:OPERATE) #<unused argument> #<unused argument> ASDF/LISP-ACTION:LOAD-OP "petalisp.reference-backend")
16: ((LAMBDA NIL :IN ASDF/OPERATE:OPERATE))
17: ((:METHOD ASDF/OPERATE:OPERATE :AROUND (T T)) ASDF/LISP-ACTION:LOAD-OP "petalisp.reference-backend") [fast-method]
18: (ASDF/SESSION:CALL-WITH-ASDF-SESSION #<CLOSURE (LAMBDA NIL :IN ASDF/OPERATE:OPERATE) {1005B1408B}> :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) {1005AD16AB}> :OVERRIDE NIL :KEY NIL :OVERRIDE-CACHE NIL :OVERRIDE-FORCING NIL)
21: ((:METHOD ASDF/OPERATE:OPERATE :AROUND (T T)) ASDF/LISP-ACTION:LOAD-OP "petalisp.reference-backend") [fast-method]
22: (DEPCHECK::COMPUTE-DEPENDENCIES "petalisp.reference-backend" "petalisp.reference-backend")
23: (DEPCHECK::MAGIC "petalisp.reference-backend" "petalisp.reference-backend" "/home/quicklisp/quicklisp-controller/tmp/anonymous/anonymous-1pxb9mTf/depcheck-win.txt")
24: (DEPCHECK::MAIN ("depcheck" "/home/quicklisp/quicklisp-controller/dist/system-file-index" "petalisp.reference-backend" "petalisp.reference-backend" "/home/quicklisp/quicklisp-controller/tmp/anonymous/anonymous-1pxb9mTf/depcheck-win.txt" "/home/quicklisp/quicklisp-controller/tmp/anonymous/anonymous-1pxb9mTf/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 1 fatal ERROR condition
;   caught 20 WARNING conditions

petalisp.native-backend

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/petalisp/3f31683ec5220b6f821802aae10da8c6a7243d75/petalisp-20190509-git/code/type-codes/type-codes.lisp
; in: DEFUN ARRAY-ELEMENT-TYPE-CODE
;     (PETALISP.TYPE-CODES::ARRAY-ELEMENT-TYPE-CODE-EXPANDER)
; --> TYPECASE LET COND IF PROGN 
; ==>
;   (PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER 'NIL)
; 
; caught WARNING:
;   Error during compiler-macroexpansion of (TYPE-CODE-FROM-TYPE-SPECIFIER (QUOTE NIL)). Use *BREAK-ON-SIGNALS* to intercept.
;    The function PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER is undefined.It is defined earlier in the file but is not available at compile-time.

; --> TYPECASE LET COND IF IF PROGN 
; ==>
;   (PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER 'CHARACTER)
; 
; caught WARNING:
;   Error during compiler-macroexpansion of (TYPE-CODE-FROM-TYPE-SPECIFIER (QUOTE CHARACTER)). Use *BREAK-ON-SIGNALS* to intercept.
;    The function PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER is undefined.It is defined earlier in the file but is not available at compile-time.

; --> TYPECASE LET COND IF IF IF PROGN 
; ==>
;   (PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER 'SINGLE-FLOAT)
; 
; caught WARNING:
;   Error during compiler-macroexpansion of (TYPE-CODE-FROM-TYPE-SPECIFIER (QUOTE SINGLE-FLOAT)). Use *BREAK-ON-SIGNALS* to intercept.
;    The function PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER is undefined.It is defined earlier in the file but is not available at compile-time.

; --> TYPECASE LET COND IF IF IF IF PROGN 
; ==>
;   (PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER 'DOUBLE-FLOAT)
; 
; caught WARNING:
;   Error during compiler-macroexpansion of (TYPE-CODE-FROM-TYPE-SPECIFIER (QUOTE DOUBLE-FLOAT)). Use *BREAK-ON-SIGNALS* to intercept.
;    The function PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER is undefined.It is defined earlier in the file but is not available at compile-time.

; --> TYPECASE LET COND IF IF IF IF IF PROGN 
; ==>
;   (PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER 'BIT)
; 
; caught WARNING:
;   Error during compiler-macroexpansion of (TYPE-CODE-FROM-TYPE-SPECIFIER (QUOTE BIT)). Use *BREAK-ON-SIGNALS* to intercept.
;    The function PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER is undefined.It is defined earlier in the file but is not available at compile-time.

; --> TYPECASE LET COND IF IF IF IF IF IF PROGN 
; ==>
;   (PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER '(UNSIGNED-BYTE 2))
; 
; caught WARNING:
;   Error during compiler-macroexpansion of (TYPE-CODE-FROM-TYPE-SPECIFIER (QUOTE #)). Use *BREAK-ON-SIGNALS* to intercept.
;    The function PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER is undefined.It is defined earlier in the file but is not available at compile-time.

; --> TYPECASE LET COND IF IF IF IF IF IF IF PROGN 
; ==>
;   (PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER '(UNSIGNED-BYTE 4))
; 
; caught WARNING:
;   Error during compiler-macroexpansion of (TYPE-CODE-FROM-TYPE-SPECIFIER (QUOTE #)). Use *BREAK-ON-SIGNALS* to intercept.
;    The function PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER is undefined.It is defined earlier in the file but is not available at compile-time.

; --> TYPECASE LET COND IF IF IF IF IF IF IF IF PROGN 
; ==>
;   (PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER '(UNSIGNED-BYTE 8))
; 
; caught WARNING:
;   Error during compiler-macroexpansion of (TYPE-CODE-FROM-TYPE-SPECIFIER (QUOTE #)). Use *BREAK-ON-SIGNALS* to intercept.
;    The function PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER is undefined.It is defined earlier in the file but is not available at compile-time.

; --> TYPECASE LET COND IF IF IF IF IF IF IF IF IF PROGN 
; ==>
;   (PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER '(UNSIGNED-BYTE 16))
; 
; caught WARNING:
;   Error during compiler-macroexpansion of (TYPE-CODE-FROM-TYPE-SPECIFIER (QUOTE #)). Use *BREAK-ON-SIGNALS* to intercept.
;    The function PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER is undefined.It is defined earlier in the file but is not available at compile-time.

; --> TYPECASE LET COND IF IF IF IF IF IF IF IF IF IF PROGN 
; ==>
;   (PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER '(UNSIGNED-BYTE 32))
; 
; caught WARNING:
;   Error during compiler-macroexpansion of (TYPE-CODE-FROM-TYPE-SPECIFIER (QUOTE #)). Use *BREAK-ON-SIGNALS* to intercept.
;    The function PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER is undefined.It is defined earlier in the file but is not available at compile-time.

; --> TYPECASE LET COND IF IF IF IF IF IF IF IF IF IF IF PROGN 
; ==>
;   (PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER '(UNSIGNED-BYTE 64))
; 
; caught WARNING:
;   Error during compiler-macroexpansion of (TYPE-CODE-FROM-TYPE-SPECIFIER (QUOTE #)). Use *BREAK-ON-SIGNALS* to intercept.
;    The function PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER is undefined.It is defined earlier in the file but is not available at compile-time.

; --> TYPECASE LET COND IF IF IF IF IF IF IF IF IF IF IF IF PROGN 
; ==>
;   (PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER '(SIGNED-BYTE 8))
; 
; caught WARNING:
;   Error during compiler-macroexpansion of (TYPE-CODE-FROM-TYPE-SPECIFIER (QUOTE #)). Use *BREAK-ON-SIGNALS* to intercept.
;    The function PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER is undefined.It is defined earlier in the file but is not available at compile-time.

; --> TYPECASE LET COND IF IF IF IF IF IF IF IF IF IF IF IF IF PROGN 
; ==>
;   (PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER '(SIGNED-BYTE 16))
; 
; caught WARNING:
;   Error during compiler-macroexpansion of (TYPE-CODE-FROM-TYPE-SPECIFIER (QUOTE #)). Use *BREAK-ON-SIGNALS* to intercept.
;    The function PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER is undefined.It is defined earlier in the file but is not available at compile-time.

; --> TYPECASE LET COND IF IF IF IF IF IF IF IF IF IF IF IF IF IF PROGN 
; ==>
;   (PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER '(SIGNED-BYTE 32))
; 
; caught WARNING:
;   Error during compiler-macroexpansion of (TYPE-CODE-FROM-TYPE-SPECIFIER (QUOTE #)). Use *BREAK-ON-SIGNALS* to intercept.
;    The function PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER is undefined.It is defined earlier in the file but is not available at compile-time.

; --> TYPECASE LET COND IF IF IF IF IF IF IF IF IF IF IF IF IF IF IF PROGN 
; ==>
;   (PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER '(SIGNED-BYTE 64))
; 
; caught WARNING:
;   Error during compiler-macroexpansion of (TYPE-CODE-FROM-TYPE-SPECIFIER (QUOTE #)). Use *BREAK-ON-SIGNALS* to intercept.
;    The function PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER is undefined.It is defined earlier in the file but is not available at compile-time.

; --> TYPECASE LET COND IF IF IF IF IF IF IF IF IF IF IF IF IF IF IF IF PROGN 
; ==>
;   (PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER '(COMPLEX SINGLE-FLOAT))
; 
; caught WARNING:
;   Error during compiler-macroexpansion of (TYPE-CODE-FROM-TYPE-SPECIFIER (QUOTE #)). Use *BREAK-ON-SIGNALS* to intercept.
;    The function PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER is undefined.It is defined earlier in the file but is not available at compile-time.

; --> TYPECASE LET COND IF IF IF IF IF IF IF IF IF IF IF IF IF IF IF IF IF 
; --> PROGN 
; ==>
;   (PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER '(COMPLEX DOUBLE-FLOAT))
; 
; caught WARNING:
;   Error during compiler-macroexpansion of (TYPE-CODE-FROM-TYPE-SPECIFIER (QUOTE #)). Use *BREAK-ON-SIGNALS* to intercept.
;    The function PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER is undefined.It is defined earlier in the file but is not available at compile-time.

; --> TYPECASE LET COND IF IF IF IF IF IF IF IF IF IF IF IF IF IF IF IF IF IF 
; --> PROGN 
; ==>
;   (PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER 'T)
; 
; caught WARNING:
;   Error during compiler-macroexpansion of (TYPE-CODE-FROM-TYPE-SPECIFIER (QUOTE T)). Use *BREAK-ON-SIGNALS* to intercept.
;    The function PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER is undefined.It is defined earlier in the file but is not available at compile-time.

; --> TYPECASE LET COND IF IF IF IF IF IF IF IF IF IF IF IF IF IF IF IF IF IF 
; --> THE PROGN 
; ==>
;   (PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER 'T)
; 
; caught WARNING:
;   Error during compiler-macroexpansion of (TYPE-CODE-FROM-TYPE-SPECIFIER (QUOTE T)). Use *BREAK-ON-SIGNALS* to intercept.
;    The function PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER is undefined.It is defined earlier in the file but is not available at compile-time.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/petalisp/3f31683ec5220b6f821802aae10da8c6a7243d75/petalisp-20190509-git/code/type-codes/type-codes.lisp
; in: DEFUN EMPTY-TYPE-CODE-P
;     (PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER 'NIL)
; 
; caught WARNING:
;   Error during compiler-macroexpansion of (TYPE-CODE-FROM-TYPE-SPECIFIER (QUOTE NIL)). Use *BREAK-ON-SIGNALS* to intercept.
;    The function PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER is undefined.It is defined earlier in the file but is not available at compile-time.
Unhandled UIOP/LISP-BUILD:COMPILE-FILE-ERROR in thread #<SB-THREAD:THREAD "main thread" RUNNING {10005E05B3}>: COMPILE-FILE-ERROR while compiling #<CL-SOURCE-FILE "petalisp.type-codes" "type-codes">

Backtrace for: #<SB-THREAD:THREAD "main thread" RUNNING {10005E05B3}>
0: (SB-DEBUG::DEBUGGER-DISABLED-HOOK #<UIOP/LISP-BUILD:COMPILE-FILE-ERROR {100968AA33}> #<unused argument> :QUIT T)
1: (SB-DEBUG::RUN-HOOK *INVOKE-DEBUGGER-HOOK* #<UIOP/LISP-BUILD:COMPILE-FILE-ERROR {100968AA33}>)
2: (INVOKE-DEBUGGER #<UIOP/LISP-BUILD:COMPILE-FILE-ERROR {100968AA33}>)
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 "petalisp.type-codes" "type-codes">)))
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 "petalisp.type-codes" "type-codes">)))
5: ((SB-PCL::EMF ASDF/ACTION:PERFORM) #<unused argument> #<unused argument> #<ASDF/LISP-ACTION:COMPILE-OP > #<ASDF/LISP-ACTION:CL-SOURCE-FILE "petalisp.type-codes" "type-codes">)
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 "petalisp.type-codes" "type-codes">) [fast-method]
8: ((:METHOD ASDF/PLAN:PERFORM-PLAN (T)) #<ASDF/PLAN:SEQUENTIAL-PLAN {1005B201F3}>) [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 {1005B201F3}>) [fast-method]
11: ((:METHOD ASDF/OPERATE:OPERATE (ASDF/OPERATION:OPERATION ASDF/COMPONENT:COMPONENT)) #<ASDF/LISP-ACTION:LOAD-OP > #<ASDF/SYSTEM:SYSTEM "petalisp.native-backend"> :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 "petalisp.native-backend">)
13: ((LAMBDA NIL :IN ASDF/OPERATE:OPERATE))
14: ((:METHOD ASDF/OPERATE:OPERATE :AROUND (T T)) #<ASDF/LISP-ACTION:LOAD-OP > #<ASDF/SYSTEM:SYSTEM "petalisp.native-backend">) [fast-method]
15: ((SB-PCL::EMF ASDF/OPERATE:OPERATE) #<unused argument> #<unused argument> ASDF/LISP-ACTION:LOAD-OP "petalisp.native-backend")
16: ((LAMBDA NIL :IN ASDF/OPERATE:OPERATE))
17: ((:METHOD ASDF/OPERATE:OPERATE :AROUND (T T)) ASDF/LISP-ACTION:LOAD-OP "petalisp.native-backend") [fast-method]
18: (ASDF/SESSION:CALL-WITH-ASDF-SESSION #<CLOSURE (LAMBDA NIL :IN ASDF/OPERATE:OPERATE) {1005B1A1EB}> :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) {1005AD776B}> :OVERRIDE NIL :KEY NIL :OVERRIDE-CACHE NIL :OVERRIDE-FORCING NIL)
21: ((:METHOD ASDF/OPERATE:OPERATE :AROUND (T T)) ASDF/LISP-ACTION:LOAD-OP "petalisp.native-backend") [fast-method]
22: (DEPCHECK::COMPUTE-DEPENDENCIES "petalisp.native-backend" "petalisp.native-backend")
23: (DEPCHECK::MAGIC "petalisp.native-backend" "petalisp.native-backend" "/home/quicklisp/quicklisp-controller/tmp/anonymous/anonymous-T4veuS6j/depcheck-win.txt")
24: (DEPCHECK::MAIN ("depcheck" "/home/quicklisp/quicklisp-controller/dist/system-file-index" "petalisp.native-backend" "petalisp.native-backend" "/home/quicklisp/quicklisp-controller/tmp/anonymous/anonymous-T4veuS6j/depcheck-win.txt" "/home/quicklisp/quicklisp-controller/tmp/anonymous/anonymous-T4veuS6j/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 1 fatal ERROR condition
;   caught 20 WARNING conditions

petalisp.ir

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/petalisp/3f31683ec5220b6f821802aae10da8c6a7243d75/petalisp-20190509-git/code/type-codes/type-codes.lisp
; in: DEFUN ARRAY-ELEMENT-TYPE-CODE
;     (PETALISP.TYPE-CODES::ARRAY-ELEMENT-TYPE-CODE-EXPANDER)
; --> TYPECASE LET COND IF PROGN 
; ==>
;   (PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER 'NIL)
; 
; caught WARNING:
;   Error during compiler-macroexpansion of (TYPE-CODE-FROM-TYPE-SPECIFIER (QUOTE NIL)). Use *BREAK-ON-SIGNALS* to intercept.
;    The function PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER is undefined.It is defined earlier in the file but is not available at compile-time.

; --> TYPECASE LET COND IF IF PROGN 
; ==>
;   (PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER 'CHARACTER)
; 
; caught WARNING:
;   Error during compiler-macroexpansion of (TYPE-CODE-FROM-TYPE-SPECIFIER (QUOTE CHARACTER)). Use *BREAK-ON-SIGNALS* to intercept.
;    The function PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER is undefined.It is defined earlier in the file but is not available at compile-time.

; --> TYPECASE LET COND IF IF IF PROGN 
; ==>
;   (PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER 'SINGLE-FLOAT)
; 
; caught WARNING:
;   Error during compiler-macroexpansion of (TYPE-CODE-FROM-TYPE-SPECIFIER (QUOTE SINGLE-FLOAT)). Use *BREAK-ON-SIGNALS* to intercept.
;    The function PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER is undefined.It is defined earlier in the file but is not available at compile-time.

; --> TYPECASE LET COND IF IF IF IF PROGN 
; ==>
;   (PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER 'DOUBLE-FLOAT)
; 
; caught WARNING:
;   Error during compiler-macroexpansion of (TYPE-CODE-FROM-TYPE-SPECIFIER (QUOTE DOUBLE-FLOAT)). Use *BREAK-ON-SIGNALS* to intercept.
;    The function PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER is undefined.It is defined earlier in the file but is not available at compile-time.

; --> TYPECASE LET COND IF IF IF IF IF PROGN 
; ==>
;   (PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER 'BIT)
; 
; caught WARNING:
;   Error during compiler-macroexpansion of (TYPE-CODE-FROM-TYPE-SPECIFIER (QUOTE BIT)). Use *BREAK-ON-SIGNALS* to intercept.
;    The function PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER is undefined.It is defined earlier in the file but is not available at compile-time.

; --> TYPECASE LET COND IF IF IF IF IF IF PROGN 
; ==>
;   (PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER '(UNSIGNED-BYTE 2))
; 
; caught WARNING:
;   Error during compiler-macroexpansion of (TYPE-CODE-FROM-TYPE-SPECIFIER (QUOTE #)). Use *BREAK-ON-SIGNALS* to intercept.
;    The function PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER is undefined.It is defined earlier in the file but is not available at compile-time.

; --> TYPECASE LET COND IF IF IF IF IF IF IF PROGN 
; ==>
;   (PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER '(UNSIGNED-BYTE 4))
; 
; caught WARNING:
;   Error during compiler-macroexpansion of (TYPE-CODE-FROM-TYPE-SPECIFIER (QUOTE #)). Use *BREAK-ON-SIGNALS* to intercept.
;    The function PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER is undefined.It is defined earlier in the file but is not available at compile-time.

; --> TYPECASE LET COND IF IF IF IF IF IF IF IF PROGN 
; ==>
;   (PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER '(UNSIGNED-BYTE 8))
; 
; caught WARNING:
;   Error during compiler-macroexpansion of (TYPE-CODE-FROM-TYPE-SPECIFIER (QUOTE #)). Use *BREAK-ON-SIGNALS* to intercept.
;    The function PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER is undefined.It is defined earlier in the file but is not available at compile-time.

; --> TYPECASE LET COND IF IF IF IF IF IF IF IF IF PROGN 
; ==>
;   (PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER '(UNSIGNED-BYTE 16))
; 
; caught WARNING:
;   Error during compiler-macroexpansion of (TYPE-CODE-FROM-TYPE-SPECIFIER (QUOTE #)). Use *BREAK-ON-SIGNALS* to intercept.
;    The function PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER is undefined.It is defined earlier in the file but is not available at compile-time.

; --> TYPECASE LET COND IF IF IF IF IF IF IF IF IF IF PROGN 
; ==>
;   (PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER '(UNSIGNED-BYTE 32))
; 
; caught WARNING:
;   Error during compiler-macroexpansion of (TYPE-CODE-FROM-TYPE-SPECIFIER (QUOTE #)). Use *BREAK-ON-SIGNALS* to intercept.
;    The function PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER is undefined.It is defined earlier in the file but is not available at compile-time.

; --> TYPECASE LET COND IF IF IF IF IF IF IF IF IF IF IF PROGN 
; ==>
;   (PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER '(UNSIGNED-BYTE 64))
; 
; caught WARNING:
;   Error during compiler-macroexpansion of (TYPE-CODE-FROM-TYPE-SPECIFIER (QUOTE #)). Use *BREAK-ON-SIGNALS* to intercept.
;    The function PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER is undefined.It is defined earlier in the file but is not available at compile-time.

; --> TYPECASE LET COND IF IF IF IF IF IF IF IF IF IF IF IF PROGN 
; ==>
;   (PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER '(SIGNED-BYTE 8))
; 
; caught WARNING:
;   Error during compiler-macroexpansion of (TYPE-CODE-FROM-TYPE-SPECIFIER (QUOTE #)). Use *BREAK-ON-SIGNALS* to intercept.
;    The function PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER is undefined.It is defined earlier in the file but is not available at compile-time.

; --> TYPECASE LET COND IF IF IF IF IF IF IF IF IF IF IF IF IF PROGN 
; ==>
;   (PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER '(SIGNED-BYTE 16))
; 
; caught WARNING:
;   Error during compiler-macroexpansion of (TYPE-CODE-FROM-TYPE-SPECIFIER (QUOTE #)). Use *BREAK-ON-SIGNALS* to intercept.
;    The function PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER is undefined.It is defined earlier in the file but is not available at compile-time.

; --> TYPECASE LET COND IF IF IF IF IF IF IF IF IF IF IF IF IF IF PROGN 
; ==>
;   (PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER '(SIGNED-BYTE 32))
; 
; caught WARNING:
;   Error during compiler-macroexpansion of (TYPE-CODE-FROM-TYPE-SPECIFIER (QUOTE #)). Use *BREAK-ON-SIGNALS* to intercept.
;    The function PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER is undefined.It is defined earlier in the file but is not available at compile-time.

; --> TYPECASE LET COND IF IF IF IF IF IF IF IF IF IF IF IF IF IF IF PROGN 
; ==>
;   (PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER '(SIGNED-BYTE 64))
; 
; caught WARNING:
;   Error during compiler-macroexpansion of (TYPE-CODE-FROM-TYPE-SPECIFIER (QUOTE #)). Use *BREAK-ON-SIGNALS* to intercept.
;    The function PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER is undefined.It is defined earlier in the file but is not available at compile-time.

; --> TYPECASE LET COND IF IF IF IF IF IF IF IF IF IF IF IF IF IF IF IF PROGN 
; ==>
;   (PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER '(COMPLEX SINGLE-FLOAT))
; 
; caught WARNING:
;   Error during compiler-macroexpansion of (TYPE-CODE-FROM-TYPE-SPECIFIER (QUOTE #)). Use *BREAK-ON-SIGNALS* to intercept.
;    The function PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER is undefined.It is defined earlier in the file but is not available at compile-time.

; --> TYPECASE LET COND IF IF IF IF IF IF IF IF IF IF IF IF IF IF IF IF IF 
; --> PROGN 
; ==>
;   (PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER '(COMPLEX DOUBLE-FLOAT))
; 
; caught WARNING:
;   Error during compiler-macroexpansion of (TYPE-CODE-FROM-TYPE-SPECIFIER (QUOTE #)). Use *BREAK-ON-SIGNALS* to intercept.
;    The function PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER is undefined.It is defined earlier in the file but is not available at compile-time.

; --> TYPECASE LET COND IF IF IF IF IF IF IF IF IF IF IF IF IF IF IF IF IF IF 
; --> PROGN 
; ==>
;   (PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER 'T)
; 
; caught WARNING:
;   Error during compiler-macroexpansion of (TYPE-CODE-FROM-TYPE-SPECIFIER (QUOTE T)). Use *BREAK-ON-SIGNALS* to intercept.
;    The function PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER is undefined.It is defined earlier in the file but is not available at compile-time.

; --> TYPECASE LET COND IF IF IF IF IF IF IF IF IF IF IF IF IF IF IF IF IF IF 
; --> THE PROGN 
; ==>
;   (PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER 'T)
; 
; caught WARNING:
;   Error during compiler-macroexpansion of (TYPE-CODE-FROM-TYPE-SPECIFIER (QUOTE T)). Use *BREAK-ON-SIGNALS* to intercept.
;    The function PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER is undefined.It is defined earlier in the file but is not available at compile-time.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/petalisp/3f31683ec5220b6f821802aae10da8c6a7243d75/petalisp-20190509-git/code/type-codes/type-codes.lisp
; in: DEFUN EMPTY-TYPE-CODE-P
;     (PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER 'NIL)
; 
; caught WARNING:
;   Error during compiler-macroexpansion of (TYPE-CODE-FROM-TYPE-SPECIFIER (QUOTE NIL)). Use *BREAK-ON-SIGNALS* to intercept.
;    The function PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER is undefined.It is defined earlier in the file but is not available at compile-time.
Unhandled UIOP/LISP-BUILD:COMPILE-FILE-ERROR in thread #<SB-THREAD:THREAD "main thread" RUNNING {10005E05B3}>: COMPILE-FILE-ERROR while compiling #<CL-SOURCE-FILE "petalisp.type-codes" "type-codes">

Backtrace for: #<SB-THREAD:THREAD "main thread" RUNNING {10005E05B3}>
0: (SB-DEBUG::DEBUGGER-DISABLED-HOOK #<UIOP/LISP-BUILD:COMPILE-FILE-ERROR {10095553D3}> #<unused argument> :QUIT T)
1: (SB-DEBUG::RUN-HOOK *INVOKE-DEBUGGER-HOOK* #<UIOP/LISP-BUILD:COMPILE-FILE-ERROR {10095553D3}>)
2: (INVOKE-DEBUGGER #<UIOP/LISP-BUILD:COMPILE-FILE-ERROR {10095553D3}>)
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 "petalisp.type-codes" "type-codes">)))
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 "petalisp.type-codes" "type-codes">)))
5: ((SB-PCL::EMF ASDF/ACTION:PERFORM) #<unused argument> #<unused argument> #<ASDF/LISP-ACTION:COMPILE-OP > #<ASDF/LISP-ACTION:CL-SOURCE-FILE "petalisp.type-codes" "type-codes">)
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 "petalisp.type-codes" "type-codes">) [fast-method]
8: ((:METHOD ASDF/PLAN:PERFORM-PLAN (T)) #<ASDF/PLAN:SEQUENTIAL-PLAN {1005B1D5C3}>) [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 {1005B1D5C3}>) [fast-method]
11: ((:METHOD ASDF/OPERATE:OPERATE (ASDF/OPERATION:OPERATION ASDF/COMPONENT:COMPONENT)) #<ASDF/LISP-ACTION:LOAD-OP > #<ASDF/SYSTEM:SYSTEM "petalisp.ir"> :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 "petalisp.ir">)
13: ((LAMBDA NIL :IN ASDF/OPERATE:OPERATE))
14: ((:METHOD ASDF/OPERATE:OPERATE :AROUND (T T)) #<ASDF/LISP-ACTION:LOAD-OP > #<ASDF/SYSTEM:SYSTEM "petalisp.ir">) [fast-method]
15: ((SB-PCL::EMF ASDF/OPERATE:OPERATE) #<unused argument> #<unused argument> ASDF/LISP-ACTION:LOAD-OP "petalisp.ir")
16: ((LAMBDA NIL :IN ASDF/OPERATE:OPERATE))
17: ((:METHOD ASDF/OPERATE:OPERATE :AROUND (T T)) ASDF/LISP-ACTION:LOAD-OP "petalisp.ir") [fast-method]
18: (ASDF/SESSION:CALL-WITH-ASDF-SESSION #<CLOSURE (LAMBDA NIL :IN ASDF/OPERATE:OPERATE) {1005B1795B}> :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) {1005AD4FEB}> :OVERRIDE NIL :KEY NIL :OVERRIDE-CACHE NIL :OVERRIDE-FORCING NIL)
21: ((:METHOD ASDF/OPERATE:OPERATE :AROUND (T T)) ASDF/LISP-ACTION:LOAD-OP "petalisp.ir") [fast-method]
22: (DEPCHECK::COMPUTE-DEPENDENCIES "petalisp.ir" "petalisp.ir")
23: (DEPCHECK::MAGIC "petalisp.ir" "petalisp.ir" "/home/quicklisp/quicklisp-controller/tmp/anonymous/anonymous-PbNhYpo5/depcheck-win.txt")
24: (DEPCHECK::MAIN ("depcheck" "/home/quicklisp/quicklisp-controller/dist/system-file-index" "petalisp.ir" "petalisp.ir" "/home/quicklisp/quicklisp-controller/tmp/anonymous/anonymous-PbNhYpo5/depcheck-win.txt" "/home/quicklisp/quicklisp-controller/tmp/anonymous/anonymous-PbNhYpo5/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 1 fatal ERROR condition
;   caught 20 WARNING conditions

petalisp.ir-backend

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/petalisp/3f31683ec5220b6f821802aae10da8c6a7243d75/petalisp-20190509-git/code/type-codes/type-codes.lisp
; in: DEFUN ARRAY-ELEMENT-TYPE-CODE
;     (PETALISP.TYPE-CODES::ARRAY-ELEMENT-TYPE-CODE-EXPANDER)
; --> TYPECASE LET COND IF PROGN 
; ==>
;   (PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER 'NIL)
; 
; caught WARNING:
;   Error during compiler-macroexpansion of (TYPE-CODE-FROM-TYPE-SPECIFIER (QUOTE NIL)). Use *BREAK-ON-SIGNALS* to intercept.
;    The function PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER is undefined.It is defined earlier in the file but is not available at compile-time.

; --> TYPECASE LET COND IF IF PROGN 
; ==>
;   (PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER 'CHARACTER)
; 
; caught WARNING:
;   Error during compiler-macroexpansion of (TYPE-CODE-FROM-TYPE-SPECIFIER (QUOTE CHARACTER)). Use *BREAK-ON-SIGNALS* to intercept.
;    The function PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER is undefined.It is defined earlier in the file but is not available at compile-time.

; --> TYPECASE LET COND IF IF IF PROGN 
; ==>
;   (PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER 'SINGLE-FLOAT)
; 
; caught WARNING:
;   Error during compiler-macroexpansion of (TYPE-CODE-FROM-TYPE-SPECIFIER (QUOTE SINGLE-FLOAT)). Use *BREAK-ON-SIGNALS* to intercept.
;    The function PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER is undefined.It is defined earlier in the file but is not available at compile-time.

; --> TYPECASE LET COND IF IF IF IF PROGN 
; ==>
;   (PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER 'DOUBLE-FLOAT)
; 
; caught WARNING:
;   Error during compiler-macroexpansion of (TYPE-CODE-FROM-TYPE-SPECIFIER (QUOTE DOUBLE-FLOAT)). Use *BREAK-ON-SIGNALS* to intercept.
;    The function PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER is undefined.It is defined earlier in the file but is not available at compile-time.

; --> TYPECASE LET COND IF IF IF IF IF PROGN 
; ==>
;   (PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER 'BIT)
; 
; caught WARNING:
;   Error during compiler-macroexpansion of (TYPE-CODE-FROM-TYPE-SPECIFIER (QUOTE BIT)). Use *BREAK-ON-SIGNALS* to intercept.
;    The function PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER is undefined.It is defined earlier in the file but is not available at compile-time.

; --> TYPECASE LET COND IF IF IF IF IF IF PROGN 
; ==>
;   (PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER '(UNSIGNED-BYTE 2))
; 
; caught WARNING:
;   Error during compiler-macroexpansion of (TYPE-CODE-FROM-TYPE-SPECIFIER (QUOTE #)). Use *BREAK-ON-SIGNALS* to intercept.
;    The function PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER is undefined.It is defined earlier in the file but is not available at compile-time.

; --> TYPECASE LET COND IF IF IF IF IF IF IF PROGN 
; ==>
;   (PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER '(UNSIGNED-BYTE 4))
; 
; caught WARNING:
;   Error during compiler-macroexpansion of (TYPE-CODE-FROM-TYPE-SPECIFIER (QUOTE #)). Use *BREAK-ON-SIGNALS* to intercept.
;    The function PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER is undefined.It is defined earlier in the file but is not available at compile-time.

; --> TYPECASE LET COND IF IF IF IF IF IF IF IF PROGN 
; ==>
;   (PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER '(UNSIGNED-BYTE 8))
; 
; caught WARNING:
;   Error during compiler-macroexpansion of (TYPE-CODE-FROM-TYPE-SPECIFIER (QUOTE #)). Use *BREAK-ON-SIGNALS* to intercept.
;    The function PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER is undefined.It is defined earlier in the file but is not available at compile-time.

; --> TYPECASE LET COND IF IF IF IF IF IF IF IF IF PROGN 
; ==>
;   (PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER '(UNSIGNED-BYTE 16))
; 
; caught WARNING:
;   Error during compiler-macroexpansion of (TYPE-CODE-FROM-TYPE-SPECIFIER (QUOTE #)). Use *BREAK-ON-SIGNALS* to intercept.
;    The function PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER is undefined.It is defined earlier in the file but is not available at compile-time.

; --> TYPECASE LET COND IF IF IF IF IF IF IF IF IF IF PROGN 
; ==>
;   (PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER '(UNSIGNED-BYTE 32))
; 
; caught WARNING:
;   Error during compiler-macroexpansion of (TYPE-CODE-FROM-TYPE-SPECIFIER (QUOTE #)). Use *BREAK-ON-SIGNALS* to intercept.
;    The function PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER is undefined.It is defined earlier in the file but is not available at compile-time.

; --> TYPECASE LET COND IF IF IF IF IF IF IF IF IF IF IF PROGN 
; ==>
;   (PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER '(UNSIGNED-BYTE 64))
; 
; caught WARNING:
;   Error during compiler-macroexpansion of (TYPE-CODE-FROM-TYPE-SPECIFIER (QUOTE #)). Use *BREAK-ON-SIGNALS* to intercept.
;    The function PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER is undefined.It is defined earlier in the file but is not available at compile-time.

; --> TYPECASE LET COND IF IF IF IF IF IF IF IF IF IF IF IF PROGN 
; ==>
;   (PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER '(SIGNED-BYTE 8))
; 
; caught WARNING:
;   Error during compiler-macroexpansion of (TYPE-CODE-FROM-TYPE-SPECIFIER (QUOTE #)). Use *BREAK-ON-SIGNALS* to intercept.
;    The function PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER is undefined.It is defined earlier in the file but is not available at compile-time.

; --> TYPECASE LET COND IF IF IF IF IF IF IF IF IF IF IF IF IF PROGN 
; ==>
;   (PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER '(SIGNED-BYTE 16))
; 
; caught WARNING:
;   Error during compiler-macroexpansion of (TYPE-CODE-FROM-TYPE-SPECIFIER (QUOTE #)). Use *BREAK-ON-SIGNALS* to intercept.
;    The function PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER is undefined.It is defined earlier in the file but is not available at compile-time.

; --> TYPECASE LET COND IF IF IF IF IF IF IF IF IF IF IF IF IF IF PROGN 
; ==>
;   (PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER '(SIGNED-BYTE 32))
; 
; caught WARNING:
;   Error during compiler-macroexpansion of (TYPE-CODE-FROM-TYPE-SPECIFIER (QUOTE #)). Use *BREAK-ON-SIGNALS* to intercept.
;    The function PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER is undefined.It is defined earlier in the file but is not available at compile-time.

; --> TYPECASE LET COND IF IF IF IF IF IF IF IF IF IF IF IF IF IF IF PROGN 
; ==>
;   (PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER '(SIGNED-BYTE 64))
; 
; caught WARNING:
;   Error during compiler-macroexpansion of (TYPE-CODE-FROM-TYPE-SPECIFIER (QUOTE #)). Use *BREAK-ON-SIGNALS* to intercept.
;    The function PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER is undefined.It is defined earlier in the file but is not available at compile-time.

; --> TYPECASE LET COND IF IF IF IF IF IF IF IF IF IF IF IF IF IF IF IF PROGN 
; ==>
;   (PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER '(COMPLEX SINGLE-FLOAT))
; 
; caught WARNING:
;   Error during compiler-macroexpansion of (TYPE-CODE-FROM-TYPE-SPECIFIER (QUOTE #)). Use *BREAK-ON-SIGNALS* to intercept.
;    The function PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER is undefined.It is defined earlier in the file but is not available at compile-time.

; --> TYPECASE LET COND IF IF IF IF IF IF IF IF IF IF IF IF IF IF IF IF IF 
; --> PROGN 
; ==>
;   (PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER '(COMPLEX DOUBLE-FLOAT))
; 
; caught WARNING:
;   Error during compiler-macroexpansion of (TYPE-CODE-FROM-TYPE-SPECIFIER (QUOTE #)). Use *BREAK-ON-SIGNALS* to intercept.
;    The function PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER is undefined.It is defined earlier in the file but is not available at compile-time.

; --> TYPECASE LET COND IF IF IF IF IF IF IF IF IF IF IF IF IF IF IF IF IF IF 
; --> PROGN 
; ==>
;   (PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER 'T)
; 
; caught WARNING:
;   Error during compiler-macroexpansion of (TYPE-CODE-FROM-TYPE-SPECIFIER (QUOTE T)). Use *BREAK-ON-SIGNALS* to intercept.
;    The function PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER is undefined.It is defined earlier in the file but is not available at compile-time.

; --> TYPECASE LET COND IF IF IF IF IF IF IF IF IF IF IF IF IF IF IF IF IF IF 
; --> THE PROGN 
; ==>
;   (PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER 'T)
; 
; caught WARNING:
;   Error during compiler-macroexpansion of (TYPE-CODE-FROM-TYPE-SPECIFIER (QUOTE T)). Use *BREAK-ON-SIGNALS* to intercept.
;    The function PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER is undefined.It is defined earlier in the file but is not available at compile-time.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/petalisp/3f31683ec5220b6f821802aae10da8c6a7243d75/petalisp-20190509-git/code/type-codes/type-codes.lisp
; in: DEFUN EMPTY-TYPE-CODE-P
;     (PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER 'NIL)
; 
; caught WARNING:
;   Error during compiler-macroexpansion of (TYPE-CODE-FROM-TYPE-SPECIFIER (QUOTE NIL)). Use *BREAK-ON-SIGNALS* to intercept.
;    The function PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER is undefined.It is defined earlier in the file but is not available at compile-time.
Unhandled UIOP/LISP-BUILD:COMPILE-FILE-ERROR in thread #<SB-THREAD:THREAD "main thread" RUNNING {10005E05B3}>: COMPILE-FILE-ERROR while compiling #<CL-SOURCE-FILE "petalisp.type-codes" "type-codes">

Backtrace for: #<SB-THREAD:THREAD "main thread" RUNNING {10005E05B3}>
0: (SB-DEBUG::DEBUGGER-DISABLED-HOOK #<UIOP/LISP-BUILD:COMPILE-FILE-ERROR {1009603B13}> #<unused argument> :QUIT T)
1: (SB-DEBUG::RUN-HOOK *INVOKE-DEBUGGER-HOOK* #<UIOP/LISP-BUILD:COMPILE-FILE-ERROR {1009603B13}>)
2: (INVOKE-DEBUGGER #<UIOP/LISP-BUILD:COMPILE-FILE-ERROR {1009603B13}>)
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 "petalisp.type-codes" "type-codes">)))
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 "petalisp.type-codes" "type-codes">)))
5: ((SB-PCL::EMF ASDF/ACTION:PERFORM) #<unused argument> #<unused argument> #<ASDF/LISP-ACTION:COMPILE-OP > #<ASDF/LISP-ACTION:CL-SOURCE-FILE "petalisp.type-codes" "type-codes">)
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 "petalisp.type-codes" "type-codes">) [fast-method]
8: ((:METHOD ASDF/PLAN:PERFORM-PLAN (T)) #<ASDF/PLAN:SEQUENTIAL-PLAN {1005B1A763}>) [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 {1005B1A763}>) [fast-method]
11: ((:METHOD ASDF/OPERATE:OPERATE (ASDF/OPERATION:OPERATION ASDF/COMPONENT:COMPONENT)) #<ASDF/LISP-ACTION:LOAD-OP > #<ASDF/SYSTEM:SYSTEM "petalisp.ir-backend"> :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 "petalisp.ir-backend">)
13: ((LAMBDA NIL :IN ASDF/OPERATE:OPERATE))
14: ((:METHOD ASDF/OPERATE:OPERATE :AROUND (T T)) #<ASDF/LISP-ACTION:LOAD-OP > #<ASDF/SYSTEM:SYSTEM "petalisp.ir-backend">) [fast-method]
15: ((SB-PCL::EMF ASDF/OPERATE:OPERATE) #<unused argument> #<unused argument> ASDF/LISP-ACTION:LOAD-OP "petalisp.ir-backend")
16: ((LAMBDA NIL :IN ASDF/OPERATE:OPERATE))
17: ((:METHOD ASDF/OPERATE:OPERATE :AROUND (T T)) ASDF/LISP-ACTION:LOAD-OP "petalisp.ir-backend") [fast-method]
18: (ASDF/SESSION:CALL-WITH-ASDF-SESSION #<CLOSURE (LAMBDA NIL :IN ASDF/OPERATE:OPERATE) {1005B148BB}> :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) {1005AD1E5B}> :OVERRIDE NIL :KEY NIL :OVERRIDE-CACHE NIL :OVERRIDE-FORCING NIL)
21: ((:METHOD ASDF/OPERATE:OPERATE :AROUND (T T)) ASDF/LISP-ACTION:LOAD-OP "petalisp.ir-backend") [fast-method]
22: (DEPCHECK::COMPUTE-DEPENDENCIES "petalisp.ir-backend" "petalisp.ir-backend")
23: (DEPCHECK::MAGIC "petalisp.ir-backend" "petalisp.ir-backend" "/home/quicklisp/quicklisp-controller/tmp/anonymous/anonymous-FBOxcisn/depcheck-win.txt")
24: (DEPCHECK::MAIN ("depcheck" "/home/quicklisp/quicklisp-controller/dist/system-file-index" "petalisp.ir-backend" "petalisp.ir-backend" "/home/quicklisp/quicklisp-controller/tmp/anonymous/anonymous-FBOxcisn/depcheck-win.txt" "/home/quicklisp/quicklisp-controller/tmp/anonymous/anonymous-FBOxcisn/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 1 fatal ERROR condition
;   caught 20 WARNING conditions

petalisp.graphviz

WARNING: redefining UIOP/PACKAGE:FIND-PACKAGE* in DEFUN
WARNING: redefining UIOP/PACKAGE:FIND-SYMBOL* in DEFUN
WARNING: redefining UIOP/PACKAGE:SYMBOL-CALL in DEFUN
WARNING: redefining UIOP/PACKAGE:INTERN* in DEFUN
WARNING: redefining UIOP/PACKAGE:EXPORT* in DEFUN
WARNING: redefining UIOP/PACKAGE:IMPORT* in DEFUN
WARNING: redefining UIOP/PACKAGE:SHADOWING-IMPORT* in DEFUN
WARNING: redefining UIOP/PACKAGE:SHADOW* in DEFUN
WARNING: redefining UIOP/PACKAGE:MAKE-SYMBOL* in DEFUN
WARNING: redefining UIOP/PACKAGE:UNINTERN* in DEFUN
WARNING: redefining UIOP/PACKAGE:SYMBOL-SHADOWING-P in DEFUN
WARNING: redefining UIOP/PACKAGE:HOME-PACKAGE-P in DEFUN
WARNING: redefining UIOP/PACKAGE:SYMBOL-PACKAGE-NAME in DEFUN
WARNING: redefining UIOP/PACKAGE:STANDARD-COMMON-LISP-SYMBOL-P in DEFUN
WARNING: redefining UIOP/PACKAGE:REIFY-PACKAGE in DEFUN
WARNING: redefining UIOP/PACKAGE:UNREIFY-PACKAGE in DEFUN
WARNING: redefining UIOP/PACKAGE:REIFY-SYMBOL in DEFUN
WARNING: redefining UIOP/PACKAGE:UNREIFY-SYMBOL in DEFUN
WARNING: redefining UIOP/PACKAGE::RECORD-FISHY in DEFUN
WARNING: redefining UIOP/PACKAGE::WHEN-PACKAGE-FISHINESS in DEFMACRO
WARNING: redefining UIOP/PACKAGE::NOTE-PACKAGE-FISHINESS in DEFMACRO
WARNING: redefining UIOP/PACKAGE::SET-DUMMY-SYMBOL in DEFUN
WARNING: redefining UIOP/PACKAGE::MAKE-DUMMY-SYMBOL in DEFUN
WARNING: redefining UIOP/PACKAGE::DUMMY-SYMBOL in DEFUN
WARNING: redefining UIOP/PACKAGE::GET-DUMMY-SYMBOL in DEFUN
WARNING: redefining UIOP/PACKAGE:NUKE-SYMBOL-IN-PACKAGE in DEFUN
WARNING: redefining UIOP/PACKAGE:NUKE-SYMBOL in DEFUN
WARNING: redefining UIOP/PACKAGE:REHOME-SYMBOL in DEFUN
WARNING: redefining UIOP/PACKAGE:ENSURE-PACKAGE-UNUSED in DEFUN
WARNING: redefining UIOP/PACKAGE:DELETE-PACKAGE* in DEFUN
WARNING: redefining UIOP/PACKAGE:PACKAGE-NAMES in DEFUN
WARNING: redefining UIOP/PACKAGE:PACKAGES-FROM-NAMES in DEFUN
WARNING: redefining UIOP/PACKAGE:FRESH-PACKAGE-NAME in DEFUN
WARNING: redefining UIOP/PACKAGE:RENAME-PACKAGE-AWAY in DEFUN
WARNING: redefining UIOP/PACKAGE:PACKAGE-DEFINITION-FORM in DEFUN
WARNING: redefining UIOP/PACKAGE::ENSURE-SHADOWING-IMPORT in DEFUN
WARNING: redefining UIOP/PACKAGE::ENSURE-IMPORTED in DEFUN
WARNING: redefining UIOP/PACKAGE::ENSURE-IMPORT in DEFUN
WARNING: redefining UIOP/PACKAGE::ENSURE-INHERITED in DEFUN
WARNING: redefining UIOP/PACKAGE::ENSURE-MIX in DEFUN
WARNING: redefining UIOP/PACKAGE::RECYCLE-SYMBOL in DEFUN
WARNING: redefining UIOP/PACKAGE::SYMBOL-RECYCLED-P in DEFUN
WARNING: redefining UIOP/PACKAGE::ENSURE-SYMBOL in DEFUN
WARNING: redefining UIOP/PACKAGE::ENSURE-EXPORTED-TO-USER in DEFUN
WARNING: redefining UIOP/PACKAGE::ENSURE-EXPORTED in DEFUN
WARNING: redefining UIOP/PACKAGE::ENSURE-EXPORT in DEFUN
WARNING: redefining UIOP/PACKAGE:ENSURE-PACKAGE in DEFUN
WARNING: redefining UIOP/PACKAGE:PARSE-DEFINE-PACKAGE-FORM in DEFUN
WARNING: redefining UIOP/PACKAGE:DEFINE-PACKAGE in DEFMACRO
WARNING: redefining UIOP/COMMON-LISP::LOOP* in DEFMACRO
WARNING: redefining UIOP/COMMON-LISP::FROB-SUBSTRINGS in DEFUN
WARNING: redefining UIOP/COMMON-LISP::COMPATFMT in DEFMACRO
WARNING: redefining UIOP/UTILITY:DEFGENERIC* in DEFMACRO
WARNING: redefining UIOP/UTILITY:DEFUN* in DEFMACRO
WARNING: redefining UIOP/UTILITY:WITH-UPGRADABILITY in DEFMACRO
WARNING: redefining UIOP/UTILITY:UIOP-DEBUG in DEFMACRO
WARNING: redefining UIOP/UTILITY:LOAD-UIOP-DEBUG-UTILITY in DEFUN
WARNING: redefining UIOP/UTILITY:NEST in DEFMACRO
WARNING: redefining UIOP/UTILITY:IF-LET in DEFMACRO
WARNING: redefining UIOP/UTILITY:PARSE-BODY in DEFUN
WARNING: redefining UIOP/UTILITY:WHILE-COLLECTING in DEFMACRO
WARNING: redefining UIOP/UTILITY:APPENDF in DEFMACRO
WARNING: redefining UIOP/UTILITY:LENGTH=N-P in DEFUN
WARNING: redefining UIOP/UTILITY:ENSURE-LIST in DEFUN
WARNING: redefining UIOP/UTILITY:REMOVE-PLIST-KEY in DEFUN
WARNING: redefining UIOP/UTILITY:REMOVE-PLIST-KEYS in DEFUN
WARNING: redefining UIOP/UTILITY:EMPTYP in DEFUN
WARNING: redefining UIOP/UTILITY:CHARACTER-TYPE-INDEX in DEFUN
WARNING: redefining UIOP/UTILITY:BASE-STRING-P in DEFUN
WARNING: redefining UIOP/UTILITY:STRINGS-COMMON-ELEMENT-TYPE in DEFUN
WARNING: redefining UIOP/UTILITY:REDUCE/STRCAT in DEFUN
WARNING: redefining UIOP/UTILITY:STRCAT in DEFUN
WARNING: redefining UIOP/UTILITY:FIRST-CHAR in DEFUN
WARNING: redefining UIOP/UTILITY:LAST-CHAR in DEFUN
WARNING: redefining UIOP/UTILITY:SPLIT-STRING in DEFUN
WARNING: redefining UIOP/UTILITY:STRING-PREFIX-P in DEFUN
WARNING: redefining UIOP/UTILITY:STRING-SUFFIX-P in DEFUN
WARNING: redefining UIOP/UTILITY:STRING-ENCLOSED-P in DEFUN
WARNING: redefining UIOP/UTILITY:STRIPLN in DEFUN
WARNING: redefining UIOP/UTILITY:STANDARD-CASE-SYMBOL-NAME in DEFUN
WARNING: redefining UIOP/UTILITY:FIND-STANDARD-CASE-SYMBOL in DEFUN
WARNING: redefining UIOP/UTILITY:TIMESTAMP< in DEFUN
WARNING: redefining UIOP/UTILITY:TIMESTAMPS< in DEFUN
WARNING: redefining UIOP/UTILITY:TIMESTAMP*< in DEFUN
WARNING: redefining UIOP/UTILITY:TIMESTAMP<= in DEFUN
WARNING: redefining UIOP/UTILITY:EARLIER-TIMESTAMP in DEFUN
WARNING: redefining UIOP/UTILITY:TIMESTAMPS-EARLIEST in DEFUN
WARNING: redefining UIOP/UTILITY:EARLIEST-TIMESTAMP in DEFUN
WARNING: redefining UIOP/UTILITY:LATER-TIMESTAMP in DEFUN
WARNING: redefining UIOP/UTILITY:TIMESTAMPS-LATEST in DEFUN
WARNING: redefining UIOP/UTILITY:LATEST-TIMESTAMP in DEFUN
WARNING: redefining UIOP/UTILITY:LATEST-TIMESTAMP-F in DEFMACRO
WARNING: redefining UIOP/UTILITY:ENSURE-FUNCTION in DEFUN
WARNING: redefining UIOP/UTILITY:ACCESS-AT in DEFUN
WARNING: redefining UIOP/UTILITY:ACCESS-AT-COUNT in DEFUN
WARNING: redefining UIOP/UTILITY:CALL-FUNCTION in DEFUN
WARNING: redefining UIOP/UTILITY:CALL-FUNCTIONS in DEFUN
WARNING: redefining UIOP/UTILITY:REGISTER-HOOK-FUNCTION in DEFUN
WARNING: redefining UIOP/UTILITY:COERCE-CLASS in DEFUN
WARNING: redefining UIOP/UTILITY:ENSURE-GETHASH in DEFUN
WARNING: redefining UIOP/UTILITY:LIST-TO-HASH-SET in DEFUN
WARNING: redefining UIOP/UTILITY:LEXICOGRAPHIC< in DEFUN
WARNING: redefining UIOP/UTILITY:LEXICOGRAPHIC<= in DEFUN
WARNING: redefining UIOP/UTILITY:STYLE-WARN in DEFUN
WARNING: redefining UIOP/UTILITY:MATCH-CONDITION-P in DEFUN
WARNING: redefining UIOP/UTILITY:MATCH-ANY-CONDITION-P in DEFUN
WARNING: redefining UIOP/UTILITY:CALL-WITH-MUFFLED-CONDITIONS in DEFUN
WARNING: redefining UIOP/UTILITY:WITH-MUFFLED-CONDITIONS in DEFMACRO
WARNING: redefining UIOP/UTILITY:NOT-IMPLEMENTED-ERROR in DEFUN
WARNING: redefining UIOP/UTILITY:PARAMETER-ERROR in DEFUN
WARNING: redefining UIOP/VERSION:UNPARSE-VERSION in DEFUN
WARNING: redefining UIOP/VERSION:PARSE-VERSION in DEFUN
WARNING: redefining UIOP/VERSION:NEXT-VERSION in DEFUN
WARNING: redefining UIOP/VERSION:VERSION< in DEFUN
WARNING: redefining UIOP/VERSION:VERSION<= in DEFUN
WARNING: redefining UIOP/VERSION::DEPRECATED-FUNCTION-CONDITION-KIND in DEFUN
WARNING: redefining PRINT-OBJECT (#<SB-PCL::CONDITION-CLASS UIOP/VERSION:DEPRECATED-FUNCTION-CONDITION> #<SB-PCL:SYSTEM-CLASS COMMON-LISP:T>) in DEFMETHOD
WARNING: redefining UIOP/VERSION::NOTIFY-DEPRECATED-FUNCTION in DEFUN
WARNING: redefining UIOP/VERSION:VERSION-DEPRECATION in DEFUN
WARNING: redefining UIOP/VERSION:WITH-DEPRECATION in DEFMACRO
WARNING: redefining UIOP/OS:FEATUREP in DEFUN
WARNING: redefining UIOP/OS:OS-MACOSX-P in DEFUN
WARNING: redefining UIOP/OS:OS-UNIX-P in DEFUN
WARNING: redefining UIOP/OS:OS-WINDOWS-P in DEFUN
WARNING: redefining UIOP/OS:OS-GENERA-P in DEFUN
WARNING: redefining UIOP/OS::OS-OLDMAC-P in DEFUN
WARNING: redefining UIOP/OS::OS-HAIKU-P in DEFUN
WARNING: redefining UIOP/OS:DETECT-OS in DEFUN
WARNING: redefining UIOP/OS:OS-COND in DEFMACRO
WARNING: redefining UIOP/OS:GETENV in DEFUN
WARNING: redefining UIOP/OS:GETENVP in DEFUN
WARNING: redefining UIOP/OS::FIRST-FEATURE in DEFUN
WARNING: redefining UIOP/OS:IMPLEMENTATION-TYPE in DEFUN
WARNING: redefining UIOP/OS:OPERATING-SYSTEM in DEFUN
WARNING: redefining UIOP/OS:ARCHITECTURE in DEFUN
WARNING: redefining UIOP/OS:LISP-VERSION-STRING in DEFUN
WARNING: redefining UIOP/OS:IMPLEMENTATION-IDENTIFIER in DEFUN
WARNING: redefining UIOP/OS:HOSTNAME in DEFUN
WARNING: redefining UIOP/OS:GETCWD in DEFUN
WARNING: redefining UIOP/OS:CHDIR in DEFUN
WARNING: redefining UIOP/OS:READ-NULL-TERMINATED-STRING in DEFUN
WARNING: redefining UIOP/OS:READ-LITTLE-ENDIAN in DEFUN
WARNING: redefining UIOP/OS:PARSE-FILE-LOCATION-INFO in DEFUN
WARNING: redefining UIOP/OS:PARSE-WINDOWS-SHORTCUT in DEFUN
WARNING: redefining UIOP/PATHNAME:NORMALIZE-PATHNAME-DIRECTORY-COMPONENT in DEFUN
WARNING: redefining UIOP/PATHNAME:DENORMALIZE-PATHNAME-DIRECTORY-COMPONENT in DEFUN
WARNING: redefining UIOP/PATHNAME:MERGE-PATHNAME-DIRECTORY-COMPONENTS in DEFUN
WARNING: redefining UIOP/PATHNAME:MAKE-PATHNAME* in DEFUN
WARNING: redefining UIOP/PATHNAME:MAKE-PATHNAME-COMPONENT-LOGICAL in DEFUN
WARNING: redefining UIOP/PATHNAME:MAKE-PATHNAME-LOGICAL in DEFUN
WARNING: redefining UIOP/PATHNAME:MERGE-PATHNAMES* in DEFUN
WARNING: redefining UIOP/PATHNAME:LOGICAL-PATHNAME-P in DEFUN
WARNING: redefining UIOP/PATHNAME:PHYSICAL-PATHNAME-P in DEFUN
WARNING: redefining UIOP/PATHNAME:PHYSICALIZE-PATHNAME in DEFUN
WARNING: redefining UIOP/PATHNAME:NIL-PATHNAME in DEFUN
WARNING: redefining UIOP/PATHNAME:WITH-PATHNAME-DEFAULTS in DEFMACRO
WARNING: redefining UIOP/PATHNAME:PATHNAME-EQUAL in DEFUN
WARNING: redefining UIOP/PATHNAME:ABSOLUTE-PATHNAME-P in DEFUN
WARNING: redefining UIOP/PATHNAME:RELATIVE-PATHNAME-P in DEFUN
WARNING: redefining UIOP/PATHNAME:HIDDEN-PATHNAME-P in DEFUN
WARNING: redefining UIOP/PATHNAME:FILE-PATHNAME-P in DEFUN
WARNING: redefining UIOP/PATHNAME:PATHNAME-DIRECTORY-PATHNAME in DEFUN
WARNING: redefining UIOP/PATHNAME:PATHNAME-PARENT-DIRECTORY-PATHNAME in DEFUN
WARNING: redefining UIOP/PATHNAME:DIRECTORY-PATHNAME-P in DEFUN
WARNING: redefining UIOP/PATHNAME:ENSURE-DIRECTORY-PATHNAME in DEFUN
WARNING: redefining UIOP/PATHNAME:SPLIT-UNIX-NAMESTRING-DIRECTORY-COMPONENTS in DEFUN
WARNING: redefining UIOP/PATHNAME:SPLIT-NAME-TYPE in DEFUN
WARNING: redefining UIOP/PATHNAME:PARSE-UNIX-NAMESTRING in DEFUN
WARNING: redefining UIOP/PATHNAME:UNIX-NAMESTRING in DEFUN
WARNING: redefining UIOP/PATHNAME:SUBPATHNAME in DEFUN
WARNING: redefining UIOP/PATHNAME:SUBPATHNAME* in DEFUN
WARNING: redefining UIOP/PATHNAME:PATHNAME-ROOT in DEFUN
WARNING: redefining UIOP/PATHNAME:PATHNAME-HOST-PATHNAME in DEFUN
WARNING: redefining UIOP/PATHNAME:ENSURE-ABSOLUTE-PATHNAME in DEFUN
WARNING: redefining UIOP/PATHNAME:SUBPATHP in DEFUN
WARNING: redefining UIOP/PATHNAME:ENOUGH-PATHNAME in DEFUN
WARNING: redefining UIOP/PATHNAME:CALL-WITH-ENOUGH-PATHNAME in DEFUN
WARNING: redefining UIOP/PATHNAME:WITH-ENOUGH-PATHNAME in DEFMACRO
WARNING: redefining UIOP/PATHNAME:WILDEN in DEFUN
WARNING: redefining UIOP/PATHNAME:RELATIVIZE-DIRECTORY-COMPONENT in DEFUN
WARNING: redefining UIOP/PATHNAME:RELATIVIZE-PATHNAME-DIRECTORY in DEFUN
WARNING: redefining UIOP/PATHNAME:DIRECTORY-SEPARATOR-FOR-HOST in DEFUN
WARNING: redefining UIOP/PATHNAME:DIRECTORIZE-PATHNAME-HOST-DEVICE in DEFUN
WARNING: redefining UIOP/FILESYSTEM:NATIVE-NAMESTRING in DEFUN
WARNING: redefining UIOP/FILESYSTEM:PARSE-NATIVE-NAMESTRING in DEFUN
WARNING: redefining UIOP/FILESYSTEM:TRUENAME* in DEFUN
WARNING: redefining UIOP/FILESYSTEM:SAFE-FILE-WRITE-DATE in DEFUN
WARNING: redefining UIOP/FILESYSTEM:PROBE-FILE* in DEFUN
WARNING: redefining UIOP/FILESYSTEM:DIRECTORY-EXISTS-P in DEFUN
WARNING: redefining UIOP/FILESYSTEM:FILE-EXISTS-P in DEFUN
WARNING: redefining UIOP/FILESYSTEM:DIRECTORY* in DEFUN
WARNING: redefining UIOP/FILESYSTEM:FILTER-LOGICAL-DIRECTORY-RESULTS in DEFUN
WARNING: redefining UIOP/FILESYSTEM:DIRECTORY-FILES in DEFUN
WARNING: redefining UIOP/FILESYSTEM:SUBDIRECTORIES in DEFUN
WARNING: redefining UIOP/FILESYSTEM:COLLECT-SUB*DIRECTORIES in DEFUN
WARNING: redefining UIOP/FILESYSTEM:TRUENAMIZE in DEFUN
WARNING: redefining UIOP/FILESYSTEM:RESOLVE-SYMLINKS in DEFUN
WARNING: redefining UIOP/FILESYSTEM:RESOLVE-SYMLINKS* in DEFUN
WARNING: redefining UIOP/PATHNAME:ENSURE-PATHNAME in DEFUN
WARNING: redefining UIOP/FILESYSTEM:GET-PATHNAME-DEFAULTS in DEFUN
WARNING: redefining UIOP/FILESYSTEM:CALL-WITH-CURRENT-DIRECTORY in DEFUN
WARNING: redefining UIOP/FILESYSTEM:WITH-CURRENT-DIRECTORY in DEFMACRO
WARNING: redefining UIOP/FILESYSTEM:INTER-DIRECTORY-SEPARATOR in DEFUN
WARNING: redefining UIOP/FILESYSTEM:SPLIT-NATIVE-PATHNAMES-STRING in DEFUN
WARNING: redefining UIOP/FILESYSTEM:GETENV-PATHNAME in DEFUN
WARNING: redefining UIOP/FILESYSTEM:GETENV-PATHNAMES in DEFUN
WARNING: redefining UIOP/FILESYSTEM:GETENV-ABSOLUTE-DIRECTORY in DEFUN
WARNING: redefining UIOP/FILESYSTEM:GETENV-ABSOLUTE-DIRECTORIES in DEFUN
WARNING: redefining UIOP/FILESYSTEM:LISP-IMPLEMENTATION-DIRECTORY in DEFUN
WARNING: redefining UIOP/FILESYSTEM:LISP-IMPLEMENTATION-PATHNAME-P in DEFUN
WARNING: redefining UIOP/FILESYSTEM:ENSURE-ALL-DIRECTORIES-EXIST in DEFUN
WARNING: redefining UIOP/FILESYSTEM:DELETE-FILE-IF-EXISTS in DEFUN
WARNING: redefining UIOP/FILESYSTEM:RENAME-FILE-OVERWRITING-TARGET in DEFUN
WARNING: redefining UIOP/FILESYSTEM:DELETE-EMPTY-DIRECTORY in DEFUN
WARNING: redefining UIOP/FILESYSTEM:DELETE-DIRECTORY-TREE in DEFUN
WARNING: redefining UIOP/STREAM:SETUP-STDIN in DEFUN
WARNING: redefining UIOP/STREAM:SETUP-STDOUT in DEFUN
WARNING: redefining UIOP/STREAM:SETUP-STDERR in DEFUN
WARNING: redefining UIOP/STREAM:ALWAYS-DEFAULT-ENCODING in DEFUN
WARNING: redefining UIOP/STREAM:DETECT-ENCODING in DEFUN
WARNING: redefining UIOP/STREAM:DEFAULT-ENCODING-EXTERNAL-FORMAT in DEFUN
WARNING: redefining UIOP/STREAM:ENCODING-EXTERNAL-FORMAT in DEFUN
WARNING: redefining UIOP/STREAM:WITH-SAFE-IO-SYNTAX in DEFMACRO
WARNING: redefining UIOP/STREAM:CALL-WITH-SAFE-IO-SYNTAX in DEFUN
WARNING: redefining UIOP/STREAM:SAFE-READ-FROM-STRING in DEFUN
WARNING: redefining UIOP/STREAM:CALL-WITH-OUTPUT-FILE in DEFUN
WARNING: redefining UIOP/STREAM:WITH-OUTPUT-FILE in DEFMACRO
WARNING: redefining UIOP/STREAM::CALL-WITH-OUTPUT in DEFUN
WARNING: redefining UIOP/STREAM:WITH-OUTPUT in DEFMACRO
WARNING: redefining UIOP/STREAM:OUTPUT-STRING in DEFUN
WARNING: redefining UIOP/STREAM:CALL-WITH-INPUT-FILE in DEFUN
WARNING: redefining UIOP/STREAM:WITH-INPUT-FILE in DEFMACRO
WARNING: redefining UIOP/STREAM::CALL-WITH-INPUT in DEFUN
WARNING: redefining UIOP/STREAM:WITH-INPUT in DEFMACRO
WARNING: redefining UIOP/STREAM:INPUT-STRING in DEFUN
WARNING: redefining UIOP/STREAM:NULL-DEVICE-PATHNAME in DEFUN
WARNING: redefining UIOP/STREAM:CALL-WITH-NULL-INPUT in DEFUN
WARNING: redefining UIOP/STREAM:WITH-NULL-INPUT in DEFMACRO
WARNING: redefining UIOP/STREAM:CALL-WITH-NULL-OUTPUT in DEFUN
WARNING: redefining UIOP/STREAM:WITH-NULL-OUTPUT in DEFMACRO
WARNING: redefining UIOP/STREAM:FINISH-OUTPUTS in DEFUN
WARNING: redefining UIOP/STREAM:FORMAT! in DEFUN
WARNING: redefining UIOP/STREAM:SAFE-FORMAT! in DEFUN
WARNING: redefining UIOP/STREAM:COPY-STREAM-TO-STREAM in DEFUN
WARNING: redefining UIOP/STREAM:CONCATENATE-FILES in DEFUN
WARNING: redefining UIOP/STREAM:COPY-FILE in DEFUN
WARNING: redefining UIOP/STREAM:SLURP-STREAM-STRING in DEFUN
WARNING: redefining UIOP/STREAM:SLURP-STREAM-LINES in DEFUN
WARNING: redefining UIOP/STREAM:SLURP-STREAM-LINE in DEFUN
WARNING: redefining UIOP/STREAM:SLURP-STREAM-FORMS in DEFUN
WARNING: redefining UIOP/STREAM:SLURP-STREAM-FORM in DEFUN
WARNING: redefining UIOP/STREAM:READ-FILE-STRING in DEFUN
WARNING: redefining UIOP/STREAM:READ-FILE-LINES in DEFUN
WARNING: redefining UIOP/STREAM:READ-FILE-LINE in DEFUN
WARNING: redefining UIOP/STREAM:READ-FILE-FORMS in DEFUN
WARNING: redefining UIOP/STREAM:READ-FILE-FORM in DEFUN
WARNING: redefining UIOP/STREAM:SAFE-READ-FILE-LINE in DEFUN
WARNING: redefining UIOP/STREAM:SAFE-READ-FILE-FORM in DEFUN
WARNING: redefining UIOP/STREAM:EVAL-INPUT in DEFUN
WARNING: redefining UIOP/STREAM:EVAL-THUNK in DEFUN
WARNING: redefining UIOP/STREAM:STANDARD-EVAL-THUNK in DEFUN
WARNING: redefining UIOP/STREAM:PRINTLN in DEFUN
WARNING: redefining UIOP/STREAM:WRITELN in DEFUN
WARNING: redefining UIOP/STREAM:DEFAULT-TEMPORARY-DIRECTORY in DEFUN
WARNING: redefining UIOP/STREAM:TEMPORARY-DIRECTORY in DEFUN
WARNING: redefining UIOP/STREAM:SETUP-TEMPORARY-DIRECTORY in DEFUN
WARNING: redefining UIOP/STREAM:CALL-WITH-TEMPORARY-FILE in DEFUN
WARNING: redefining UIOP/STREAM:WITH-TEMPORARY-FILE in DEFMACRO
WARNING: redefining UIOP/STREAM::GET-TEMPORARY-FILE in DEFUN
WARNING: redefining UIOP/STREAM:ADD-PATHNAME-SUFFIX in DEFUN
WARNING: redefining UIOP/STREAM:TMPIZE-PATHNAME in DEFUN
WARNING: redefining UIOP/STREAM:CALL-WITH-STAGING-PATHNAME in DEFUN
WARNING: redefining UIOP/STREAM:WITH-STAGING-PATHNAME in DEFMACRO
WARNING: redefining UIOP/STREAM:FILE-STREAM-P in DEFUN
WARNING: redefining UIOP/STREAM:FILE-OR-SYNONYM-STREAM-P in DEFUN
WARNING: redefining UIOP/IMAGE:QUIT in DEFUN
WARNING: redefining UIOP/IMAGE:DIE in DEFUN
WARNING: redefining UIOP/IMAGE:RAW-PRINT-BACKTRACE in DEFUN
WARNING: redefining UIOP/IMAGE:PRINT-BACKTRACE in DEFUN
WARNING: redefining UIOP/IMAGE:PRINT-CONDITION-BACKTRACE in DEFUN
WARNING: redefining UIOP/IMAGE:FATAL-CONDITION-P in DEFUN
WARNING: redefining UIOP/IMAGE:HANDLE-FATAL-CONDITION in DEFUN
WARNING: redefining UIOP/IMAGE:CALL-WITH-FATAL-CONDITION-HANDLER in DEFUN
WARNING: redefining UIOP/IMAGE:WITH-FATAL-CONDITION-HANDLER in DEFMACRO
WARNING: redefining UIOP/IMAGE:SHELL-BOOLEAN-EXIT in DEFUN
WARNING: redefining UIOP/IMAGE:REGISTER-IMAGE-RESTORE-HOOK in DEFUN
WARNING: redefining UIOP/IMAGE:REGISTER-IMAGE-DUMP-HOOK in DEFUN
WARNING: redefining UIOP/IMAGE:CALL-IMAGE-RESTORE-HOOK in DEFUN
WARNING: redefining UIOP/IMAGE:CALL-IMAGE-DUMP-HOOK in DEFUN
WARNING: redefining UIOP/IMAGE:RAW-COMMAND-LINE-ARGUMENTS in DEFUN
WARNING: redefining UIOP/IMAGE:COMMAND-LINE-ARGUMENTS in DEFUN
WARNING: redefining UIOP/IMAGE:ARGV0 in DEFUN
WARNING: redefining UIOP/IMAGE:SETUP-COMMAND-LINE-ARGUMENTS in DEFUN
WARNING: redefining UIOP/IMAGE:RESTORE-IMAGE in DEFUN
WARNING: redefining UIOP/IMAGE:DUMP-IMAGE in DEFUN
WARNING: redefining UIOP/IMAGE:CREATE-IMAGE in DEFUN
WARNING: redefining UIOP/LISP-BUILD:GET-OPTIMIZATION-SETTINGS in DEFUN
WARNING: redefining UIOP/LISP-BUILD:PROCLAIM-OPTIMIZATION-SETTINGS in DEFUN
WARNING: redefining UIOP/LISP-BUILD:WITH-OPTIMIZATION-SETTINGS in DEFMACRO
WARNING: redefining UIOP/LISP-BUILD::SB-GROVEL-UNKNOWN-CONSTANT-CONDITION-P in DEFUN
WARNING: redefining UIOP/LISP-BUILD:CALL-WITH-MUFFLED-COMPILER-CONDITIONS in DEFUN
WARNING: redefining UIOP/LISP-BUILD:WITH-MUFFLED-COMPILER-CONDITIONS in DEFMACRO
WARNING: redefining UIOP/LISP-BUILD:CALL-WITH-MUFFLED-LOADER-CONDITIONS in DEFUN
WARNING: redefining UIOP/LISP-BUILD:WITH-MUFFLED-LOADER-CONDITIONS in DEFMACRO
WARNING: redefining UIOP/LISP-BUILD:CHECK-LISP-COMPILE-WARNINGS in DEFUN
WARNING: redefining UIOP/LISP-BUILD:CHECK-LISP-COMPILE-RESULTS in DEFUN
WARNING: redefining UIOP/LISP-BUILD:REIFY-SIMPLE-SEXP in DEFUN
WARNING: redefining UIOP/LISP-BUILD:UNREIFY-SIMPLE-SEXP in DEFUN
WARNING: redefining UIOP/LISP-BUILD::REIFY-UNDEFINED-WARNING in DEFUN
WARNING: redefining UIOP/LISP-BUILD:REIFY-DEFERRED-WARNINGS in DEFUN
WARNING: redefining UIOP/LISP-BUILD:UNREIFY-DEFERRED-WARNINGS in DEFUN
WARNING: redefining UIOP/LISP-BUILD:RESET-DEFERRED-WARNINGS in DEFUN
WARNING: redefining UIOP/LISP-BUILD:SAVE-DEFERRED-WARNINGS in DEFUN
WARNING: redefining UIOP/LISP-BUILD:WARNINGS-FILE-TYPE in DEFUN
WARNING: redefining UIOP/LISP-BUILD:ENABLE-DEFERRED-WARNINGS-CHECK in DEFUN
WARNING: redefining UIOP/LISP-BUILD:DISABLE-DEFERRED-WARNINGS-CHECK in DEFUN
WARNING: redefining UIOP/LISP-BUILD:WARNINGS-FILE-P in DEFUN
WARNING: redefining UIOP/LISP-BUILD:CHECK-DEFERRED-WARNINGS in DEFUN
WARNING: redefining UIOP/LISP-BUILD::CALL-WITH-SAVED-DEFERRED-WARNINGS in DEFUN
WARNING: redefining UIOP/LISP-BUILD:WITH-SAVED-DEFERRED-WARNINGS in DEFMACRO
WARNING: redefining UIOP/LISP-BUILD:CURRENT-LISP-FILE-PATHNAME in DEFUN
WARNING: redefining UIOP/LISP-BUILD:LOAD-PATHNAME in DEFUN
WARNING: redefining UIOP/LISP-BUILD:LISPIZE-PATHNAME in DEFUN
WARNING: redefining UIOP/LISP-BUILD:COMPILE-FILE-TYPE in DEFUN
WARNING: redefining UIOP/LISP-BUILD:CALL-AROUND-HOOK in DEFUN
WARNING: redefining UIOP/LISP-BUILD:COMPILE-FILE-PATHNAME* in DEFUN
WARNING: redefining UIOP/LISP-BUILD:LOAD* in DEFUN
WARNING: redefining UIOP/LISP-BUILD:LOAD-FROM-STRING in DEFUN
WARNING: redefining UIOP/LISP-BUILD:COMBINE-FASLS in DEFUN
WARNING: redefining UIOP/LAUNCH-PROGRAM::REQUIRES-ESCAPING-P in DEFUN
WARNING: redefining UIOP/LAUNCH-PROGRAM:ESCAPE-TOKEN in DEFUN
WARNING: redefining UIOP/LAUNCH-PROGRAM::ESCAPE-WINDOWS-TOKEN-WITHIN-DOUBLE-QUOTES in DEFUN
WARNING: redefining UIOP/LAUNCH-PROGRAM::EASY-WINDOWS-CHARACTER-P in DEFUN
WARNING: redefining UIOP/LAUNCH-PROGRAM:ESCAPE-WINDOWS-TOKEN in DEFUN
WARNING: redefining UIOP/LAUNCH-PROGRAM::ESCAPE-SH-TOKEN-WITHIN-DOUBLE-QUOTES in DEFUN
WARNING: redefining UIOP/LAUNCH-PROGRAM:EASY-SH-CHARACTER-P in DEFUN
WARNING: redefining UIOP/LAUNCH-PROGRAM:ESCAPE-SH-TOKEN in DEFUN
WARNING: redefining UIOP/LAUNCH-PROGRAM:ESCAPE-SHELL-TOKEN in DEFUN
WARNING: redefining UIOP/LAUNCH-PROGRAM:ESCAPE-COMMAND in DEFUN
WARNING: redefining UIOP/LAUNCH-PROGRAM:ESCAPE-WINDOWS-COMMAND in DEFUN
WARNING: redefining UIOP/LAUNCH-PROGRAM:ESCAPE-SH-COMMAND in DEFUN
WARNING: redefining UIOP/LAUNCH-PROGRAM:ESCAPE-SHELL-COMMAND in DEFUN
WARNING: redefining UIOP/LAUNCH-PROGRAM::%NORMALIZE-IO-SPECIFIER in DEFUN
WARNING: redefining UIOP/LAUNCH-PROGRAM::%INTERACTIVEP in DEFUN
WARNING: redefining UIOP/LAUNCH-PROGRAM::%SIGNAL-TO-EXIT-CODE in DEFUN
WARNING: redefining UIOP/LAUNCH-PROGRAM::%CODE-TO-STATUS in DEFUN
WARNING: redefining UIOP/LAUNCH-PROGRAM::%HANDLE-IF-EXISTS in DEFUN
WARNING: redefining UIOP/LAUNCH-PROGRAM::%HANDLE-IF-DOES-NOT-EXIST in DEFUN
WARNING: redefining UIOP/LAUNCH-PROGRAM:PROCESS-INFO-ERROR-OUTPUT in DEFUN
WARNING: redefining UIOP/LAUNCH-PROGRAM:PROCESS-INFO-INPUT in DEFUN
WARNING: redefining UIOP/LAUNCH-PROGRAM:PROCESS-INFO-OUTPUT in DEFUN
WARNING: redefining UIOP/LAUNCH-PROGRAM:PROCESS-INFO-PID in DEFUN
WARNING: redefining UIOP/LAUNCH-PROGRAM::%PROCESS-STATUS in DEFUN
WARNING: redefining UIOP/LAUNCH-PROGRAM:PROCESS-ALIVE-P in DEFUN
WARNING: redefining UIOP/LAUNCH-PROGRAM:WAIT-PROCESS in DEFUN
WARNING: redefining UIOP/LAUNCH-PROGRAM::%POSIX-SEND-SIGNAL in DEFUN
WARNING: redefining UIOP/LAUNCH-PROGRAM:TERMINATE-PROCESS in DEFUN
WARNING: redefining UIOP/LAUNCH-PROGRAM:CLOSE-STREAMS in DEFUN
WARNING: redefining UIOP/LAUNCH-PROGRAM:LAUNCH-PROGRAM in DEFUN
WARNING: redefining UIOP/RUN-PROGRAM::CALL-STREAM-PROCESSOR in DEFUN
WARNING: redefining UIOP/RUN-PROGRAM:SLURP-INPUT-STREAM in DEFGENERIC
WARNING: redefining SLURP-INPUT-STREAM (#<SB-PCL:SYSTEM-CLASS COMMON-LISP:FUNCTION> #<SB-PCL:SYSTEM-CLASS COMMON-LISP:T>) in DEFMETHOD
WARNING: redefining SLURP-INPUT-STREAM (#<BUILT-IN-CLASS COMMON-LISP:CONS> #<SB-PCL:SYSTEM-CLASS COMMON-LISP:T>) in DEFMETHOD
WARNING: redefining SLURP-INPUT-STREAM (#<SB-PCL:SYSTEM-CLASS COMMON-LISP:STREAM> #<SB-PCL:SYSTEM-CLASS COMMON-LISP:T>) in DEFMETHOD
WARNING: redefining SLURP-INPUT-STREAM (#<SB-MOP:EQL-SPECIALIZER STRING> #<SB-PCL:SYSTEM-CLASS COMMON-LISP:T>) in DEFMETHOD
WARNING: redefining SLURP-INPUT-STREAM (#<SB-MOP:EQL-SPECIALIZER :STRING> #<SB-PCL:SYSTEM-CLASS COMMON-LISP:T>) in DEFMETHOD
WARNING: redefining SLURP-INPUT-STREAM (#<SB-MOP:EQL-SPECIALIZER :LINES> #<SB-PCL:SYSTEM-CLASS COMMON-LISP:T>) in DEFMETHOD
WARNING: redefining SLURP-INPUT-STREAM (#<SB-MOP:EQL-SPECIALIZER :LINE> #<SB-PCL:SYSTEM-CLASS COMMON-LISP:T>) in DEFMETHOD
WARNING: redefining SLURP-INPUT-STREAM (#<SB-MOP:EQL-SPECIALIZER :FORMS> #<SB-PCL:SYSTEM-CLASS COMMON-LISP:T>) in DEFMETHOD
WARNING: redefining SLURP-INPUT-STREAM (#<SB-MOP:EQL-SPECIALIZER :FORM> #<SB-PCL:SYSTEM-CLASS COMMON-LISP:T>) in DEFMETHOD
WARNING: redefining SLURP-INPUT-STREAM (#<SB-MOP:EQL-SPECIALIZER T> #<SB-PCL:SYSTEM-CLASS COMMON-LISP:T>) in DEFMETHOD
WARNING: redefining SLURP-INPUT-STREAM (#<BUILT-IN-CLASS COMMON-LISP:NULL> #<SB-PCL:SYSTEM-CLASS COMMON-LISP:T>) in DEFMETHOD
WARNING: redefining SLURP-INPUT-STREAM (#<STRUCTURE-CLASS COMMON-LISP:PATHNAME> #<SB-PCL:SYSTEM-CLASS COMMON-LISP:T>) in DEFMETHOD
WARNING: redefining SLURP-INPUT-STREAM (#<SB-PCL:SYSTEM-CLASS COMMON-LISP:T> #<SB-PCL:SYSTEM-CLASS COMMON-LISP:T>) in DEFMETHOD
WARNING: redefining UIOP/RUN-PROGRAM:VOMIT-OUTPUT-STREAM in DEFGENERIC
WARNING: redefining VOMIT-OUTPUT-STREAM (#<SB-PCL:SYSTEM-CLASS COMMON-LISP:FUNCTION> #<SB-PCL:SYSTEM-CLASS COMMON-LISP:T>) in DEFMETHOD
WARNING: redefining VOMIT-OUTPUT-STREAM (#<BUILT-IN-CLASS COMMON-LISP:CONS> #<SB-PCL:SYSTEM-CLASS COMMON-LISP:T>) in DEFMETHOD
WARNING: redefining VOMIT-OUTPUT-STREAM (#<SB-PCL:SYSTEM-CLASS COMMON-LISP:STREAM> #<SB-PCL:SYSTEM-CLASS COMMON-LISP:T>) in DEFMETHOD
WARNING: redefining VOMIT-OUTPUT-STREAM (#<BUILT-IN-CLASS COMMON-LISP:STRING> #<SB-PCL:SYSTEM-CLASS COMMON-LISP:T>) in DEFMETHOD
WARNING: redefining VOMIT-OUTPUT-STREAM (#<SB-MOP:EQL-SPECIALIZER T> #<SB-PCL:SYSTEM-CLASS COMMON-LISP:T>) in DEFMETHOD
WARNING: redefining VOMIT-OUTPUT-STREAM (#<BUILT-IN-CLASS COMMON-LISP:NULL> #<SB-PCL:SYSTEM-CLASS COMMON-LISP:T>) in DEFMETHOD
WARNING: redefining VOMIT-OUTPUT-STREAM (#<STRUCTURE-CLASS COMMON-LISP:PATHNAME> #<SB-PCL:SYSTEM-CLASS COMMON-LISP:T>) in DEFMETHOD
WARNING: redefining VOMIT-OUTPUT-STREAM (#<SB-PCL:SYSTEM-CLASS COMMON-LISP:T> #<SB-PCL:SYSTEM-CLASS COMMON-LISP:T>) in DEFMETHOD
WARNING: redefining UIOP/RUN-PROGRAM::%CHECK-RESULT in DEFUN
WARNING: redefining UIOP/RUN-PROGRAM::%ACTIVE-IO-SPECIFIER-P in DEFUN
WARNING: redefining UIOP/RUN-PROGRAM::%RUN-PROGRAM in DEFUN
WARNING: redefining UIOP/RUN-PROGRAM::%CALL-WITH-PROGRAM-IO in DEFUN
WARNING: redefining UIOP/RUN-PROGRAM::PLACE-SETTER in DEFMACRO
WARNING: redefining UIOP/RUN-PROGRAM::WITH-PROGRAM-INPUT in DEFMACRO
WARNING: redefining UIOP/RUN-PROGRAM::WITH-PROGRAM-OUTPUT in DEFMACRO
WARNING: redefining UIOP/RUN-PROGRAM::WITH-PROGRAM-ERROR-OUTPUT in DEFMACRO
WARNING: redefining UIOP/RUN-PROGRAM::%USE-LAUNCH-PROGRAM in DEFUN
WARNING: redefining UIOP/RUN-PROGRAM::%NORMALIZE-SYSTEM-COMMAND in DEFUN
WARNING: redefining UIOP/RUN-PROGRAM::%REDIRECTED-SYSTEM-COMMAND in DEFUN
WARNING: redefining UIOP/RUN-PROGRAM::%SYSTEM in DEFUN
WARNING: redefining UIOP/RUN-PROGRAM::%USE-SYSTEM in DEFUN
WARNING: redefining UIOP/RUN-PROGRAM:RUN-PROGRAM in DEFUN
WARNING: redefining UIOP/CONFIGURATION:CONFIGURATION-INHERITANCE-DIRECTIVE-P in DEFUN
WARNING: redefining UIOP/CONFIGURATION:REPORT-INVALID-FORM in DEFUN
WARNING: redefining UIOP/CONFIGURATION:VALIDATE-CONFIGURATION-FORM in DEFUN
WARNING: redefining UIOP/CONFIGURATION:VALIDATE-CONFIGURATION-FILE in DEFUN
WARNING: redefining UIOP/CONFIGURATION:VALIDATE-CONFIGURATION-DIRECTORY in DEFUN
WARNING: redefining UIOP/CONFIGURATION:RESOLVE-RELATIVE-LOCATION in DEFUN
WARNING: redefining UIOP/CONFIGURATION:RESOLVE-ABSOLUTE-LOCATION in DEFUN
WARNING: redefining UIOP/CONFIGURATION:LOCATION-DESIGNATOR-P in DEFUN
WARNING: redefining UIOP/CONFIGURATION:LOCATION-FUNCTION-P in DEFUN
WARNING: redefining UIOP/CONFIGURATION:REGISTER-CLEAR-CONFIGURATION-HOOK in DEFUN
WARNING: redefining UIOP/CONFIGURATION:CLEAR-CONFIGURATION in DEFUN
WARNING: redefining UIOP/CONFIGURATION:UPGRADE-CONFIGURATION in DEFUN
WARNING: redefining UIOP/CONFIGURATION:GET-FOLDER-PATH in DEFUN
WARNING: redefining UIOP/CONFIGURATION:XDG-DATA-HOME in DEFUN
WARNING: redefining UIOP/CONFIGURATION:XDG-CONFIG-HOME in DEFUN
WARNING: redefining UIOP/CONFIGURATION:XDG-DATA-DIRS in DEFUN
WARNING: redefining UIOP/CONFIGURATION:XDG-CONFIG-DIRS in DEFUN
WARNING: redefining UIOP/CONFIGURATION:XDG-CACHE-HOME in DEFUN
WARNING: redefining UIOP/CONFIGURATION:XDG-RUNTIME-DIR in DEFUN
WARNING: redefining UIOP/CONFIGURATION:SYSTEM-CONFIG-PATHNAMES in DEFUN
WARNING: redefining UIOP/CONFIGURATION:FILTER-PATHNAME-SET in DEFUN
WARNING: redefining UIOP/CONFIGURATION:XDG-DATA-PATHNAMES in DEFUN
WARNING: redefining UIOP/CONFIGURATION:XDG-CONFIG-PATHNAMES in DEFUN
WARNING: redefining UIOP/CONFIGURATION:FIND-PREFERRED-FILE in DEFUN
WARNING: redefining UIOP/CONFIGURATION:XDG-DATA-PATHNAME in DEFUN
WARNING: redefining UIOP/CONFIGURATION:XDG-CONFIG-PATHNAME in DEFUN
WARNING: redefining UIOP/CONFIGURATION::COMPUTE-USER-CACHE in DEFUN
WARNING: redefining UIOP/BACKWARD-DRIVER:COERCE-PATHNAME in DEFUN
WARNING: redefining UIOP/CONFIGURATION:USER-CONFIGURATION-DIRECTORIES in DEFUN
WARNING: redefining UIOP/CONFIGURATION:SYSTEM-CONFIGURATION-DIRECTORIES in DEFUN
WARNING: redefining UIOP/CONFIGURATION:IN-FIRST-DIRECTORY in DEFUN
WARNING: redefining UIOP/CONFIGURATION:IN-USER-CONFIGURATION-DIRECTORY in DEFUN
WARNING: redefining UIOP/CONFIGURATION:IN-SYSTEM-CONFIGURATION-DIRECTORY in DEFUN
WARNING: redefining UIOP/BACKWARD-DRIVER:VERSION-COMPATIBLE-P in DEFUN

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/petalisp/3f31683ec5220b6f821802aae10da8c6a7243d75/petalisp-20190509-git/code/type-codes/type-codes.lisp
; in: DEFUN ARRAY-ELEMENT-TYPE-CODE
;     (PETALISP.TYPE-CODES::ARRAY-ELEMENT-TYPE-CODE-EXPANDER)
; --> TYPECASE LET COND IF PROGN 
; ==>
;   (PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER 'NIL)
; 
; caught WARNING:
;   Error during compiler-macroexpansion of (TYPE-CODE-FROM-TYPE-SPECIFIER (QUOTE NIL)). Use *BREAK-ON-SIGNALS* to intercept.
;    The function PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER is undefined.It is defined earlier in the file but is not available at compile-time.

; --> TYPECASE LET COND IF IF PROGN 
; ==>
;   (PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER 'CHARACTER)
; 
; caught WARNING:
;   Error during compiler-macroexpansion of (TYPE-CODE-FROM-TYPE-SPECIFIER (QUOTE CHARACTER)). Use *BREAK-ON-SIGNALS* to intercept.
;    The function PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER is undefined.It is defined earlier in the file but is not available at compile-time.

; --> TYPECASE LET COND IF IF IF PROGN 
; ==>
;   (PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER 'SINGLE-FLOAT)
; 
; caught WARNING:
;   Error during compiler-macroexpansion of (TYPE-CODE-FROM-TYPE-SPECIFIER (QUOTE SINGLE-FLOAT)). Use *BREAK-ON-SIGNALS* to intercept.
;    The function PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER is undefined.It is defined earlier in the file but is not available at compile-time.

; --> TYPECASE LET COND IF IF IF IF PROGN 
; ==>
;   (PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER 'DOUBLE-FLOAT)
; 
; caught WARNING:
;   Error during compiler-macroexpansion of (TYPE-CODE-FROM-TYPE-SPECIFIER (QUOTE DOUBLE-FLOAT)). Use *BREAK-ON-SIGNALS* to intercept.
;    The function PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER is undefined.It is defined earlier in the file but is not available at compile-time.

; --> TYPECASE LET COND IF IF IF IF IF PROGN 
; ==>
;   (PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER 'BIT)
; 
; caught WARNING:
;   Error during compiler-macroexpansion of (TYPE-CODE-FROM-TYPE-SPECIFIER (QUOTE BIT)). Use *BREAK-ON-SIGNALS* to intercept.
;    The function PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER is undefined.It is defined earlier in the file but is not available at compile-time.

; --> TYPECASE LET COND IF IF IF IF IF IF PROGN 
; ==>
;   (PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER '(UNSIGNED-BYTE 2))
; 
; caught WARNING:
;   Error during compiler-macroexpansion of (TYPE-CODE-FROM-TYPE-SPECIFIER (QUOTE #)). Use *BREAK-ON-SIGNALS* to intercept.
;    The function PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER is undefined.It is defined earlier in the file but is not available at compile-time.

; --> TYPECASE LET COND IF IF IF IF IF IF IF PROGN 
; ==>
;   (PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER '(UNSIGNED-BYTE 4))
; 
; caught WARNING:
;   Error during compiler-macroexpansion of (TYPE-CODE-FROM-TYPE-SPECIFIER (QUOTE #)). Use *BREAK-ON-SIGNALS* to intercept.
;    The function PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER is undefined.It is defined earlier in the file but is not available at compile-time.

; --> TYPECASE LET COND IF IF IF IF IF IF IF IF PROGN 
; ==>
;   (PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER '(UNSIGNED-BYTE 8))
; 
; caught WARNING:
;   Error during compiler-macroexpansion of (TYPE-CODE-FROM-TYPE-SPECIFIER (QUOTE #)). Use *BREAK-ON-SIGNALS* to intercept.
;    The function PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER is undefined.It is defined earlier in the file but is not available at compile-time.

; --> TYPECASE LET COND IF IF IF IF IF IF IF IF IF PROGN 
; ==>
;   (PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER '(UNSIGNED-BYTE 16))
; 
; caught WARNING:
;   Error during compiler-macroexpansion of (TYPE-CODE-FROM-TYPE-SPECIFIER (QUOTE #)). Use *BREAK-ON-SIGNALS* to intercept.
;    The function PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER is undefined.It is defined earlier in the file but is not available at compile-time.

; --> TYPECASE LET COND IF IF IF IF IF IF IF IF IF IF PROGN 
; ==>
;   (PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER '(UNSIGNED-BYTE 32))
; 
; caught WARNING:
;   Error during compiler-macroexpansion of (TYPE-CODE-FROM-TYPE-SPECIFIER (QUOTE #)). Use *BREAK-ON-SIGNALS* to intercept.
;    The function PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER is undefined.It is defined earlier in the file but is not available at compile-time.

; --> TYPECASE LET COND IF IF IF IF IF IF IF IF IF IF IF PROGN 
; ==>
;   (PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER '(UNSIGNED-BYTE 64))
; 
; caught WARNING:
;   Error during compiler-macroexpansion of (TYPE-CODE-FROM-TYPE-SPECIFIER (QUOTE #)). Use *BREAK-ON-SIGNALS* to intercept.
;    The function PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER is undefined.It is defined earlier in the file but is not available at compile-time.

; --> TYPECASE LET COND IF IF IF IF IF IF IF IF IF IF IF IF PROGN 
; ==>
;   (PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER '(SIGNED-BYTE 8))
; 
; caught WARNING:
;   Error during compiler-macroexpansion of (TYPE-CODE-FROM-TYPE-SPECIFIER (QUOTE #)). Use *BREAK-ON-SIGNALS* to intercept.
;    The function PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER is undefined.It is defined earlier in the file but is not available at compile-time.

; --> TYPECASE LET COND IF IF IF IF IF IF IF IF IF IF IF IF IF PROGN 
; ==>
;   (PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER '(SIGNED-BYTE 16))
; 
; caught WARNING:
;   Error during compiler-macroexpansion of (TYPE-CODE-FROM-TYPE-SPECIFIER (QUOTE #)). Use *BREAK-ON-SIGNALS* to intercept.
;    The function PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER is undefined.It is defined earlier in the file but is not available at compile-time.

; --> TYPECASE LET COND IF IF IF IF IF IF IF IF IF IF IF IF IF IF PROGN 
; ==>
;   (PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER '(SIGNED-BYTE 32))
; 
; caught WARNING:
;   Error during compiler-macroexpansion of (TYPE-CODE-FROM-TYPE-SPECIFIER (QUOTE #)). Use *BREAK-ON-SIGNALS* to intercept.
;    The function PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER is undefined.It is defined earlier in the file but is not available at compile-time.

; --> TYPECASE LET COND IF IF IF IF IF IF IF IF IF IF IF IF IF IF IF PROGN 
; ==>
;   (PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER '(SIGNED-BYTE 64))
; 
; caught WARNING:
;   Error during compiler-macroexpansion of (TYPE-CODE-FROM-TYPE-SPECIFIER (QUOTE #)). Use *BREAK-ON-SIGNALS* to intercept.
;    The function PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER is undefined.It is defined earlier in the file but is not available at compile-time.

; --> TYPECASE LET COND IF IF IF IF IF IF IF IF IF IF IF IF IF IF IF IF PROGN 
; ==>
;   (PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER '(COMPLEX SINGLE-FLOAT))
; 
; caught WARNING:
;   Error during compiler-macroexpansion of (TYPE-CODE-FROM-TYPE-SPECIFIER (QUOTE #)). Use *BREAK-ON-SIGNALS* to intercept.
;    The function PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER is undefined.It is defined earlier in the file but is not available at compile-time.

; --> TYPECASE LET COND IF IF IF IF IF IF IF IF IF IF IF IF IF IF IF IF IF 
; --> PROGN 
; ==>
;   (PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER '(COMPLEX DOUBLE-FLOAT))
; 
; caught WARNING:
;   Error during compiler-macroexpansion of (TYPE-CODE-FROM-TYPE-SPECIFIER (QUOTE #)). Use *BREAK-ON-SIGNALS* to intercept.
;    The function PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER is undefined.It is defined earlier in the file but is not available at compile-time.

; --> TYPECASE LET COND IF IF IF IF IF IF IF IF IF IF IF IF IF IF IF IF IF IF 
; --> PROGN 
; ==>
;   (PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER 'T)
; 
; caught WARNING:
;   Error during compiler-macroexpansion of (TYPE-CODE-FROM-TYPE-SPECIFIER (QUOTE T)). Use *BREAK-ON-SIGNALS* to intercept.
;    The function PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER is undefined.It is defined earlier in the file but is not available at compile-time.

; --> TYPECASE LET COND IF IF IF IF IF IF IF IF IF IF IF IF IF IF IF IF IF IF 
; --> THE PROGN 
; ==>
;   (PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER 'T)
; 
; caught WARNING:
;   Error during compiler-macroexpansion of (TYPE-CODE-FROM-TYPE-SPECIFIER (QUOTE T)). Use *BREAK-ON-SIGNALS* to intercept.
;    The function PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER is undefined.It is defined earlier in the file but is not available at compile-time.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/petalisp/3f31683ec5220b6f821802aae10da8c6a7243d75/petalisp-20190509-git/code/type-codes/type-codes.lisp
; in: DEFUN EMPTY-TYPE-CODE-P
;     (PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER 'NIL)
; 
; caught WARNING:
;   Error during compiler-macroexpansion of (TYPE-CODE-FROM-TYPE-SPECIFIER (QUOTE NIL)). Use *BREAK-ON-SIGNALS* to intercept.
;    The function PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER is undefined.It is defined earlier in the file but is not available at compile-time.
Unhandled UIOP/LISP-BUILD:COMPILE-FILE-ERROR in thread #<SB-THREAD:THREAD "main thread" RUNNING {10005E05B3}>: COMPILE-FILE-ERROR while compiling #<CL-SOURCE-FILE "petalisp.type-codes" "type-codes">

Backtrace for: #<SB-THREAD:THREAD "main thread" RUNNING {10005E05B3}>
0: (SB-DEBUG::DEBUGGER-DISABLED-HOOK #<UIOP/LISP-BUILD:COMPILE-FILE-ERROR {100A225CE3}> #<unused argument> :QUIT T)
1: (SB-DEBUG::RUN-HOOK *INVOKE-DEBUGGER-HOOK* #<UIOP/LISP-BUILD:COMPILE-FILE-ERROR {100A225CE3}>)
2: (INVOKE-DEBUGGER #<UIOP/LISP-BUILD:COMPILE-FILE-ERROR {100A225CE3}>)
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 "petalisp.type-codes" "type-codes">)))
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 "petalisp.type-codes" "type-codes">)))
5: ((SB-PCL::EMF ASDF/ACTION:PERFORM) #<unused argument> #<unused argument> #<ASDF/LISP-ACTION:COMPILE-OP > #<ASDF/LISP-ACTION:CL-SOURCE-FILE "petalisp.type-codes" "type-codes">)
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 "petalisp.type-codes" "type-codes">) [fast-method]
8: ((:METHOD ASDF/PLAN:PERFORM-PLAN (T)) #<ASDF/PLAN:SEQUENTIAL-PLAN {1005B1DB73}>) [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 {1005B1DB73}>) [fast-method]
11: ((:METHOD ASDF/OPERATE:OPERATE (ASDF/OPERATION:OPERATION ASDF/COMPONENT:COMPONENT)) #<ASDF/LISP-ACTION:LOAD-OP > #<ASDF/SYSTEM:SYSTEM "petalisp.graphviz"> :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 "petalisp.graphviz">)
13: ((LAMBDA NIL :IN ASDF/OPERATE:OPERATE))
14: ((:METHOD ASDF/OPERATE:OPERATE :AROUND (T T)) #<ASDF/LISP-ACTION:LOAD-OP > #<ASDF/SYSTEM:SYSTEM "petalisp.graphviz">) [fast-method]
15: ((SB-PCL::EMF ASDF/OPERATE:OPERATE) #<unused argument> #<unused argument> ASDF/LISP-ACTION:LOAD-OP "petalisp.graphviz")
16: ((LAMBDA NIL :IN ASDF/OPERATE:OPERATE))
17: ((:METHOD ASDF/OPERATE:OPERATE :AROUND (T T)) ASDF/LISP-ACTION:LOAD-OP "petalisp.graphviz") [fast-method]
18: (ASDF/SESSION:CALL-WITH-ASDF-SESSION #<CLOSURE (LAMBDA NIL :IN ASDF/OPERATE:OPERATE) {1005B17C6B}> :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) {1005AD51DB}> :OVERRIDE NIL :KEY NIL :OVERRIDE-CACHE NIL :OVERRIDE-FORCING NIL)
21: ((:METHOD ASDF/OPERATE:OPERATE :AROUND (T T)) ASDF/LISP-ACTION:LOAD-OP "petalisp.graphviz") [fast-method]
22: (DEPCHECK::COMPUTE-DEPENDENCIES "petalisp.graphviz" "petalisp.graphviz")
23: (DEPCHECK::MAGIC "petalisp.graphviz" "petalisp.graphviz" "/home/quicklisp/quicklisp-controller/tmp/anonymous/anonymous-GAovU2Ah/depcheck-win.txt")
24: (DEPCHECK::MAIN ("depcheck" "/home/quicklisp/quicklisp-controller/dist/system-file-index" "petalisp.graphviz" "petalisp.graphviz" "/home/quicklisp/quicklisp-controller/tmp/anonymous/anonymous-GAovU2Ah/depcheck-win.txt" "/home/quicklisp/quicklisp-controller/tmp/anonymous/anonymous-GAovU2Ah/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 1 fatal ERROR condition
;   caught 20 WARNING conditions

petalisp.examples

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/petalisp/3f31683ec5220b6f821802aae10da8c6a7243d75/petalisp-20190509-git/code/type-codes/type-codes.lisp
; in: DEFUN ARRAY-ELEMENT-TYPE-CODE
;     (PETALISP.TYPE-CODES::ARRAY-ELEMENT-TYPE-CODE-EXPANDER)
; --> TYPECASE LET COND IF PROGN 
; ==>
;   (PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER 'NIL)
; 
; caught WARNING:
;   Error during compiler-macroexpansion of (TYPE-CODE-FROM-TYPE-SPECIFIER (QUOTE NIL)). Use *BREAK-ON-SIGNALS* to intercept.
;    The function PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER is undefined.It is defined earlier in the file but is not available at compile-time.

; --> TYPECASE LET COND IF IF PROGN 
; ==>
;   (PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER 'CHARACTER)
; 
; caught WARNING:
;   Error during compiler-macroexpansion of (TYPE-CODE-FROM-TYPE-SPECIFIER (QUOTE CHARACTER)). Use *BREAK-ON-SIGNALS* to intercept.
;    The function PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER is undefined.It is defined earlier in the file but is not available at compile-time.

; --> TYPECASE LET COND IF IF IF PROGN 
; ==>
;   (PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER 'SINGLE-FLOAT)
; 
; caught WARNING:
;   Error during compiler-macroexpansion of (TYPE-CODE-FROM-TYPE-SPECIFIER (QUOTE SINGLE-FLOAT)). Use *BREAK-ON-SIGNALS* to intercept.
;    The function PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER is undefined.It is defined earlier in the file but is not available at compile-time.

; --> TYPECASE LET COND IF IF IF IF PROGN 
; ==>
;   (PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER 'DOUBLE-FLOAT)
; 
; caught WARNING:
;   Error during compiler-macroexpansion of (TYPE-CODE-FROM-TYPE-SPECIFIER (QUOTE DOUBLE-FLOAT)). Use *BREAK-ON-SIGNALS* to intercept.
;    The function PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER is undefined.It is defined earlier in the file but is not available at compile-time.

; --> TYPECASE LET COND IF IF IF IF IF PROGN 
; ==>
;   (PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER 'BIT)
; 
; caught WARNING:
;   Error during compiler-macroexpansion of (TYPE-CODE-FROM-TYPE-SPECIFIER (QUOTE BIT)). Use *BREAK-ON-SIGNALS* to intercept.
;    The function PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER is undefined.It is defined earlier in the file but is not available at compile-time.

; --> TYPECASE LET COND IF IF IF IF IF IF PROGN 
; ==>
;   (PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER '(UNSIGNED-BYTE 2))
; 
; caught WARNING:
;   Error during compiler-macroexpansion of (TYPE-CODE-FROM-TYPE-SPECIFIER (QUOTE #)). Use *BREAK-ON-SIGNALS* to intercept.
;    The function PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER is undefined.It is defined earlier in the file but is not available at compile-time.

; --> TYPECASE LET COND IF IF IF IF IF IF IF PROGN 
; ==>
;   (PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER '(UNSIGNED-BYTE 4))
; 
; caught WARNING:
;   Error during compiler-macroexpansion of (TYPE-CODE-FROM-TYPE-SPECIFIER (QUOTE #)). Use *BREAK-ON-SIGNALS* to intercept.
;    The function PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER is undefined.It is defined earlier in the file but is not available at compile-time.

; --> TYPECASE LET COND IF IF IF IF IF IF IF IF PROGN 
; ==>
;   (PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER '(UNSIGNED-BYTE 8))
; 
; caught WARNING:
;   Error during compiler-macroexpansion of (TYPE-CODE-FROM-TYPE-SPECIFIER (QUOTE #)). Use *BREAK-ON-SIGNALS* to intercept.
;    The function PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER is undefined.It is defined earlier in the file but is not available at compile-time.

; --> TYPECASE LET COND IF IF IF IF IF IF IF IF IF PROGN 
; ==>
;   (PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER '(UNSIGNED-BYTE 16))
; 
; caught WARNING:
;   Error during compiler-macroexpansion of (TYPE-CODE-FROM-TYPE-SPECIFIER (QUOTE #)). Use *BREAK-ON-SIGNALS* to intercept.
;    The function PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER is undefined.It is defined earlier in the file but is not available at compile-time.

; --> TYPECASE LET COND IF IF IF IF IF IF IF IF IF IF PROGN 
; ==>
;   (PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER '(UNSIGNED-BYTE 32))
; 
; caught WARNING:
;   Error during compiler-macroexpansion of (TYPE-CODE-FROM-TYPE-SPECIFIER (QUOTE #)). Use *BREAK-ON-SIGNALS* to intercept.
;    The function PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER is undefined.It is defined earlier in the file but is not available at compile-time.

; --> TYPECASE LET COND IF IF IF IF IF IF IF IF IF IF IF PROGN 
; ==>
;   (PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER '(UNSIGNED-BYTE 64))
; 
; caught WARNING:
;   Error during compiler-macroexpansion of (TYPE-CODE-FROM-TYPE-SPECIFIER (QUOTE #)). Use *BREAK-ON-SIGNALS* to intercept.
;    The function PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER is undefined.It is defined earlier in the file but is not available at compile-time.

; --> TYPECASE LET COND IF IF IF IF IF IF IF IF IF IF IF IF PROGN 
; ==>
;   (PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER '(SIGNED-BYTE 8))
; 
; caught WARNING:
;   Error during compiler-macroexpansion of (TYPE-CODE-FROM-TYPE-SPECIFIER (QUOTE #)). Use *BREAK-ON-SIGNALS* to intercept.
;    The function PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER is undefined.It is defined earlier in the file but is not available at compile-time.

; --> TYPECASE LET COND IF IF IF IF IF IF IF IF IF IF IF IF IF PROGN 
; ==>
;   (PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER '(SIGNED-BYTE 16))
; 
; caught WARNING:
;   Error during compiler-macroexpansion of (TYPE-CODE-FROM-TYPE-SPECIFIER (QUOTE #)). Use *BREAK-ON-SIGNALS* to intercept.
;    The function PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER is undefined.It is defined earlier in the file but is not available at compile-time.

; --> TYPECASE LET COND IF IF IF IF IF IF IF IF IF IF IF IF IF IF PROGN 
; ==>
;   (PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER '(SIGNED-BYTE 32))
; 
; caught WARNING:
;   Error during compiler-macroexpansion of (TYPE-CODE-FROM-TYPE-SPECIFIER (QUOTE #)). Use *BREAK-ON-SIGNALS* to intercept.
;    The function PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER is undefined.It is defined earlier in the file but is not available at compile-time.

; --> TYPECASE LET COND IF IF IF IF IF IF IF IF IF IF IF IF IF IF IF PROGN 
; ==>
;   (PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER '(SIGNED-BYTE 64))
; 
; caught WARNING:
;   Error during compiler-macroexpansion of (TYPE-CODE-FROM-TYPE-SPECIFIER (QUOTE #)). Use *BREAK-ON-SIGNALS* to intercept.
;    The function PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER is undefined.It is defined earlier in the file but is not available at compile-time.

; --> TYPECASE LET COND IF IF IF IF IF IF IF IF IF IF IF IF IF IF IF IF PROGN 
; ==>
;   (PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER '(COMPLEX SINGLE-FLOAT))
; 
; caught WARNING:
;   Error during compiler-macroexpansion of (TYPE-CODE-FROM-TYPE-SPECIFIER (QUOTE #)). Use *BREAK-ON-SIGNALS* to intercept.
;    The function PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER is undefined.It is defined earlier in the file but is not available at compile-time.

; --> TYPECASE LET COND IF IF IF IF IF IF IF IF IF IF IF IF IF IF IF IF IF 
; --> PROGN 
; ==>
;   (PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER '(COMPLEX DOUBLE-FLOAT))
; 
; caught WARNING:
;   Error during compiler-macroexpansion of (TYPE-CODE-FROM-TYPE-SPECIFIER (QUOTE #)). Use *BREAK-ON-SIGNALS* to intercept.
;    The function PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER is undefined.It is defined earlier in the file but is not available at compile-time.

; --> TYPECASE LET COND IF IF IF IF IF IF IF IF IF IF IF IF IF IF IF IF IF IF 
; --> PROGN 
; ==>
;   (PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER 'T)
; 
; caught WARNING:
;   Error during compiler-macroexpansion of (TYPE-CODE-FROM-TYPE-SPECIFIER (QUOTE T)). Use *BREAK-ON-SIGNALS* to intercept.
;    The function PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER is undefined.It is defined earlier in the file but is not available at compile-time.

; --> TYPECASE LET COND IF IF IF IF IF IF IF IF IF IF IF IF IF IF IF IF IF IF 
; --> THE PROGN 
; ==>
;   (PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER 'T)
; 
; caught WARNING:
;   Error during compiler-macroexpansion of (TYPE-CODE-FROM-TYPE-SPECIFIER (QUOTE T)). Use *BREAK-ON-SIGNALS* to intercept.
;    The function PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER is undefined.It is defined earlier in the file but is not available at compile-time.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/petalisp/3f31683ec5220b6f821802aae10da8c6a7243d75/petalisp-20190509-git/code/type-codes/type-codes.lisp
; in: DEFUN EMPTY-TYPE-CODE-P
;     (PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER 'NIL)
; 
; caught WARNING:
;   Error during compiler-macroexpansion of (TYPE-CODE-FROM-TYPE-SPECIFIER (QUOTE NIL)). Use *BREAK-ON-SIGNALS* to intercept.
;    The function PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER is undefined.It is defined earlier in the file but is not available at compile-time.
Unhandled UIOP/LISP-BUILD:COMPILE-FILE-ERROR in thread #<SB-THREAD:THREAD "main thread" RUNNING {10005E05B3}>: COMPILE-FILE-ERROR while compiling #<CL-SOURCE-FILE "petalisp.type-codes" "type-codes">

Backtrace for: #<SB-THREAD:THREAD "main thread" RUNNING {10005E05B3}>
0: (SB-DEBUG::DEBUGGER-DISABLED-HOOK #<UIOP/LISP-BUILD:COMPILE-FILE-ERROR {10096CAA33}> #<unused argument> :QUIT T)
1: (SB-DEBUG::RUN-HOOK *INVOKE-DEBUGGER-HOOK* #<UIOP/LISP-BUILD:COMPILE-FILE-ERROR {10096CAA33}>)
2: (INVOKE-DEBUGGER #<UIOP/LISP-BUILD:COMPILE-FILE-ERROR {10096CAA33}>)
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 "petalisp.type-codes" "type-codes">)))
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 "petalisp.type-codes" "type-codes">)))
5: ((SB-PCL::EMF ASDF/ACTION:PERFORM) #<unused argument> #<unused argument> #<ASDF/LISP-ACTION:COMPILE-OP > #<ASDF/LISP-ACTION:CL-SOURCE-FILE "petalisp.type-codes" "type-codes">)
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 "petalisp.type-codes" "type-codes">) [fast-method]
8: ((:METHOD ASDF/PLAN:PERFORM-PLAN (T)) #<ASDF/PLAN:SEQUENTIAL-PLAN {1005B195D3}>) [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 {1005B195D3}>) [fast-method]
11: ((:METHOD ASDF/OPERATE:OPERATE (ASDF/OPERATION:OPERATION ASDF/COMPONENT:COMPONENT)) #<ASDF/LISP-ACTION:LOAD-OP > #<ASDF/SYSTEM:SYSTEM "petalisp.examples"> :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 "petalisp.examples">)
13: ((LAMBDA NIL :IN ASDF/OPERATE:OPERATE))
14: ((:METHOD ASDF/OPERATE:OPERATE :AROUND (T T)) #<ASDF/LISP-ACTION:LOAD-OP > #<ASDF/SYSTEM:SYSTEM "petalisp.examples">) [fast-method]
15: ((SB-PCL::EMF ASDF/OPERATE:OPERATE) #<unused argument> #<unused argument> ASDF/LISP-ACTION:LOAD-OP "petalisp.examples")
16: ((LAMBDA NIL :IN ASDF/OPERATE:OPERATE))
17: ((:METHOD ASDF/OPERATE:OPERATE :AROUND (T T)) ASDF/LISP-ACTION:LOAD-OP "petalisp.examples") [fast-method]
18: (ASDF/SESSION:CALL-WITH-ASDF-SESSION #<CLOSURE (LAMBDA NIL :IN ASDF/OPERATE:OPERATE) {1005B139BB}> :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) {1005AD0ECB}> :OVERRIDE NIL :KEY NIL :OVERRIDE-CACHE NIL :OVERRIDE-FORCING NIL)
21: ((:METHOD ASDF/OPERATE:OPERATE :AROUND (T T)) ASDF/LISP-ACTION:LOAD-OP "petalisp.examples") [fast-method]
22: (DEPCHECK::COMPUTE-DEPENDENCIES "petalisp.examples" "petalisp.examples")
23: (DEPCHECK::MAGIC "petalisp.examples" "petalisp.examples" "/home/quicklisp/quicklisp-controller/tmp/anonymous/anonymous-ptvAz91y/depcheck-win.txt")
24: (DEPCHECK::MAIN ("depcheck" "/home/quicklisp/quicklisp-controller/dist/system-file-index" "petalisp.examples" "petalisp.examples" "/home/quicklisp/quicklisp-controller/tmp/anonymous/anonymous-ptvAz91y/depcheck-win.txt" "/home/quicklisp/quicklisp-controller/tmp/anonymous/anonymous-ptvAz91y/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 1 fatal ERROR condition
;   caught 20 WARNING conditions

petalisp.core

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/petalisp/3f31683ec5220b6f821802aae10da8c6a7243d75/petalisp-20190509-git/code/type-codes/type-codes.lisp
; in: DEFUN ARRAY-ELEMENT-TYPE-CODE
;     (PETALISP.TYPE-CODES::ARRAY-ELEMENT-TYPE-CODE-EXPANDER)
; --> TYPECASE LET COND IF PROGN 
; ==>
;   (PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER 'NIL)
; 
; caught WARNING:
;   Error during compiler-macroexpansion of (TYPE-CODE-FROM-TYPE-SPECIFIER (QUOTE NIL)). Use *BREAK-ON-SIGNALS* to intercept.
;    The function PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER is undefined.It is defined earlier in the file but is not available at compile-time.

; --> TYPECASE LET COND IF IF PROGN 
; ==>
;   (PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER 'CHARACTER)
; 
; caught WARNING:
;   Error during compiler-macroexpansion of (TYPE-CODE-FROM-TYPE-SPECIFIER (QUOTE CHARACTER)). Use *BREAK-ON-SIGNALS* to intercept.
;    The function PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER is undefined.It is defined earlier in the file but is not available at compile-time.

; --> TYPECASE LET COND IF IF IF PROGN 
; ==>
;   (PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER 'SINGLE-FLOAT)
; 
; caught WARNING:
;   Error during compiler-macroexpansion of (TYPE-CODE-FROM-TYPE-SPECIFIER (QUOTE SINGLE-FLOAT)). Use *BREAK-ON-SIGNALS* to intercept.
;    The function PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER is undefined.It is defined earlier in the file but is not available at compile-time.

; --> TYPECASE LET COND IF IF IF IF PROGN 
; ==>
;   (PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER 'DOUBLE-FLOAT)
; 
; caught WARNING:
;   Error during compiler-macroexpansion of (TYPE-CODE-FROM-TYPE-SPECIFIER (QUOTE DOUBLE-FLOAT)). Use *BREAK-ON-SIGNALS* to intercept.
;    The function PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER is undefined.It is defined earlier in the file but is not available at compile-time.

; --> TYPECASE LET COND IF IF IF IF IF PROGN 
; ==>
;   (PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER 'BIT)
; 
; caught WARNING:
;   Error during compiler-macroexpansion of (TYPE-CODE-FROM-TYPE-SPECIFIER (QUOTE BIT)). Use *BREAK-ON-SIGNALS* to intercept.
;    The function PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER is undefined.It is defined earlier in the file but is not available at compile-time.

; --> TYPECASE LET COND IF IF IF IF IF IF PROGN 
; ==>
;   (PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER '(UNSIGNED-BYTE 2))
; 
; caught WARNING:
;   Error during compiler-macroexpansion of (TYPE-CODE-FROM-TYPE-SPECIFIER (QUOTE #)). Use *BREAK-ON-SIGNALS* to intercept.
;    The function PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER is undefined.It is defined earlier in the file but is not available at compile-time.

; --> TYPECASE LET COND IF IF IF IF IF IF IF PROGN 
; ==>
;   (PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER '(UNSIGNED-BYTE 4))
; 
; caught WARNING:
;   Error during compiler-macroexpansion of (TYPE-CODE-FROM-TYPE-SPECIFIER (QUOTE #)). Use *BREAK-ON-SIGNALS* to intercept.
;    The function PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER is undefined.It is defined earlier in the file but is not available at compile-time.

; --> TYPECASE LET COND IF IF IF IF IF IF IF IF PROGN 
; ==>
;   (PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER '(UNSIGNED-BYTE 8))
; 
; caught WARNING:
;   Error during compiler-macroexpansion of (TYPE-CODE-FROM-TYPE-SPECIFIER (QUOTE #)). Use *BREAK-ON-SIGNALS* to intercept.
;    The function PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER is undefined.It is defined earlier in the file but is not available at compile-time.

; --> TYPECASE LET COND IF IF IF IF IF IF IF IF IF PROGN 
; ==>
;   (PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER '(UNSIGNED-BYTE 16))
; 
; caught WARNING:
;   Error during compiler-macroexpansion of (TYPE-CODE-FROM-TYPE-SPECIFIER (QUOTE #)). Use *BREAK-ON-SIGNALS* to intercept.
;    The function PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER is undefined.It is defined earlier in the file but is not available at compile-time.

; --> TYPECASE LET COND IF IF IF IF IF IF IF IF IF IF PROGN 
; ==>
;   (PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER '(UNSIGNED-BYTE 32))
; 
; caught WARNING:
;   Error during compiler-macroexpansion of (TYPE-CODE-FROM-TYPE-SPECIFIER (QUOTE #)). Use *BREAK-ON-SIGNALS* to intercept.
;    The function PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER is undefined.It is defined earlier in the file but is not available at compile-time.

; --> TYPECASE LET COND IF IF IF IF IF IF IF IF IF IF IF PROGN 
; ==>
;   (PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER '(UNSIGNED-BYTE 64))
; 
; caught WARNING:
;   Error during compiler-macroexpansion of (TYPE-CODE-FROM-TYPE-SPECIFIER (QUOTE #)). Use *BREAK-ON-SIGNALS* to intercept.
;    The function PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER is undefined.It is defined earlier in the file but is not available at compile-time.

; --> TYPECASE LET COND IF IF IF IF IF IF IF IF IF IF IF IF PROGN 
; ==>
;   (PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER '(SIGNED-BYTE 8))
; 
; caught WARNING:
;   Error during compiler-macroexpansion of (TYPE-CODE-FROM-TYPE-SPECIFIER (QUOTE #)). Use *BREAK-ON-SIGNALS* to intercept.
;    The function PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER is undefined.It is defined earlier in the file but is not available at compile-time.

; --> TYPECASE LET COND IF IF IF IF IF IF IF IF IF IF IF IF IF PROGN 
; ==>
;   (PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER '(SIGNED-BYTE 16))
; 
; caught WARNING:
;   Error during compiler-macroexpansion of (TYPE-CODE-FROM-TYPE-SPECIFIER (QUOTE #)). Use *BREAK-ON-SIGNALS* to intercept.
;    The function PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER is undefined.It is defined earlier in the file but is not available at compile-time.

; --> TYPECASE LET COND IF IF IF IF IF IF IF IF IF IF IF IF IF IF PROGN 
; ==>
;   (PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER '(SIGNED-BYTE 32))
; 
; caught WARNING:
;   Error during compiler-macroexpansion of (TYPE-CODE-FROM-TYPE-SPECIFIER (QUOTE #)). Use *BREAK-ON-SIGNALS* to intercept.
;    The function PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER is undefined.It is defined earlier in the file but is not available at compile-time.

; --> TYPECASE LET COND IF IF IF IF IF IF IF IF IF IF IF IF IF IF IF PROGN 
; ==>
;   (PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER '(SIGNED-BYTE 64))
; 
; caught WARNING:
;   Error during compiler-macroexpansion of (TYPE-CODE-FROM-TYPE-SPECIFIER (QUOTE #)). Use *BREAK-ON-SIGNALS* to intercept.
;    The function PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER is undefined.It is defined earlier in the file but is not available at compile-time.

; --> TYPECASE LET COND IF IF IF IF IF IF IF IF IF IF IF IF IF IF IF IF PROGN 
; ==>
;   (PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER '(COMPLEX SINGLE-FLOAT))
; 
; caught WARNING:
;   Error during compiler-macroexpansion of (TYPE-CODE-FROM-TYPE-SPECIFIER (QUOTE #)). Use *BREAK-ON-SIGNALS* to intercept.
;    The function PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER is undefined.It is defined earlier in the file but is not available at compile-time.

; --> TYPECASE LET COND IF IF IF IF IF IF IF IF IF IF IF IF IF IF IF IF IF 
; --> PROGN 
; ==>
;   (PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER '(COMPLEX DOUBLE-FLOAT))
; 
; caught WARNING:
;   Error during compiler-macroexpansion of (TYPE-CODE-FROM-TYPE-SPECIFIER (QUOTE #)). Use *BREAK-ON-SIGNALS* to intercept.
;    The function PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER is undefined.It is defined earlier in the file but is not available at compile-time.

; --> TYPECASE LET COND IF IF IF IF IF IF IF IF IF IF IF IF IF IF IF IF IF IF 
; --> PROGN 
; ==>
;   (PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER 'T)
; 
; caught WARNING:
;   Error during compiler-macroexpansion of (TYPE-CODE-FROM-TYPE-SPECIFIER (QUOTE T)). Use *BREAK-ON-SIGNALS* to intercept.
;    The function PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER is undefined.It is defined earlier in the file but is not available at compile-time.

; --> TYPECASE LET COND IF IF IF IF IF IF IF IF IF IF IF IF IF IF IF IF IF IF 
; --> THE PROGN 
; ==>
;   (PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER 'T)
; 
; caught WARNING:
;   Error during compiler-macroexpansion of (TYPE-CODE-FROM-TYPE-SPECIFIER (QUOTE T)). Use *BREAK-ON-SIGNALS* to intercept.
;    The function PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER is undefined.It is defined earlier in the file but is not available at compile-time.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/petalisp/3f31683ec5220b6f821802aae10da8c6a7243d75/petalisp-20190509-git/code/type-codes/type-codes.lisp
; in: DEFUN EMPTY-TYPE-CODE-P
;     (PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER 'NIL)
; 
; caught WARNING:
;   Error during compiler-macroexpansion of (TYPE-CODE-FROM-TYPE-SPECIFIER (QUOTE NIL)). Use *BREAK-ON-SIGNALS* to intercept.
;    The function PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER is undefined.It is defined earlier in the file but is not available at compile-time.
Unhandled UIOP/LISP-BUILD:COMPILE-FILE-ERROR in thread #<SB-THREAD:THREAD "main thread" RUNNING {10005E05B3}>: COMPILE-FILE-ERROR while compiling #<CL-SOURCE-FILE "petalisp.type-codes" "type-codes">

Backtrace for: #<SB-THREAD:THREAD "main thread" RUNNING {10005E05B3}>
0: (SB-DEBUG::DEBUGGER-DISABLED-HOOK #<UIOP/LISP-BUILD:COMPILE-FILE-ERROR {10095784C3}> #<unused argument> :QUIT T)
1: (SB-DEBUG::RUN-HOOK *INVOKE-DEBUGGER-HOOK* #<UIOP/LISP-BUILD:COMPILE-FILE-ERROR {10095784C3}>)
2: (INVOKE-DEBUGGER #<UIOP/LISP-BUILD:COMPILE-FILE-ERROR {10095784C3}>)
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 "petalisp.type-codes" "type-codes">)))
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 "petalisp.type-codes" "type-codes">)))
5: ((SB-PCL::EMF ASDF/ACTION:PERFORM) #<unused argument> #<unused argument> #<ASDF/LISP-ACTION:COMPILE-OP > #<ASDF/LISP-ACTION:CL-SOURCE-FILE "petalisp.type-codes" "type-codes">)
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 "petalisp.type-codes" "type-codes">) [fast-method]
8: ((:METHOD ASDF/PLAN:PERFORM-PLAN (T)) #<ASDF/PLAN:SEQUENTIAL-PLAN {1005B23813}>) [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 {1005B23813}>) [fast-method]
11: ((:METHOD ASDF/OPERATE:OPERATE (ASDF/OPERATION:OPERATION ASDF/COMPONENT:COMPONENT)) #<ASDF/LISP-ACTION:LOAD-OP > #<ASDF/SYSTEM:SYSTEM "petalisp.core"> :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 "petalisp.core">)
13: ((LAMBDA NIL :IN ASDF/OPERATE:OPERATE))
14: ((:METHOD ASDF/OPERATE:OPERATE :AROUND (T T)) #<ASDF/LISP-ACTION:LOAD-OP > #<ASDF/SYSTEM:SYSTEM "petalisp.core">) [fast-method]
15: ((SB-PCL::EMF ASDF/OPERATE:OPERATE) #<unused argument> #<unused argument> ASDF/LISP-ACTION:LOAD-OP "petalisp.core")
16: ((LAMBDA NIL :IN ASDF/OPERATE:OPERATE))
17: ((:METHOD ASDF/OPERATE:OPERATE :AROUND (T T)) ASDF/LISP-ACTION:LOAD-OP "petalisp.core") [fast-method]
18: (ASDF/SESSION:CALL-WITH-ASDF-SESSION #<CLOSURE (LAMBDA NIL :IN ASDF/OPERATE:OPERATE) {1005B1D92B}> :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) {1005ADAF6B}> :OVERRIDE NIL :KEY NIL :OVERRIDE-CACHE NIL :OVERRIDE-FORCING NIL)
21: ((:METHOD ASDF/OPERATE:OPERATE :AROUND (T T)) ASDF/LISP-ACTION:LOAD-OP "petalisp.core") [fast-method]
22: (DEPCHECK::COMPUTE-DEPENDENCIES "petalisp.core" "petalisp.core")
23: (DEPCHECK::MAGIC "petalisp.core" "petalisp.core" "/home/quicklisp/quicklisp-controller/tmp/anonymous/anonymous-Sqp4JrKx/depcheck-win.txt")
24: (DEPCHECK::MAIN ("depcheck" "/home/quicklisp/quicklisp-controller/dist/system-file-index" "petalisp.core" "petalisp.core" "/home/quicklisp/quicklisp-controller/tmp/anonymous/anonymous-Sqp4JrKx/depcheck-win.txt" "/home/quicklisp/quicklisp-controller/tmp/anonymous/anonymous-Sqp4JrKx/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 1 fatal ERROR condition
;   caught 20 WARNING conditions

petalisp.api

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/agnostic-lizard/83be3235a297e14470fe2815edf191c221368990/agnostic-lizard-20190509-git/pure-expansion.lisp
; in: DEFUN MACROEXPAND-ALL
;     (DEFUN AGNOSTIC-LIZARD:MACROEXPAND-ALL
;            (AGNOSTIC-LIZARD::FORM
;             &OPTIONAL AGNOSTIC-LIZARD::ENV
;             &KEY AGNOSTIC-LIZARD::NAMES AGNOSTIC-LIZARD::NEVER-PASS-FALLBACK-ENV)
;       "Recursively expand all macro calls in form with initial environment described by env"
;       (COND
;        ((NULL AGNOSTIC-LIZARD::ENV)
;         (AGNOSTIC-LIZARD:METAENV-MACROEXPAND-ALL AGNOSTIC-LIZARD::FORM NIL))
;        ((TYPEP AGNOSTIC-LIZARD::ENV 'AGNOSTIC-LIZARD:METAENV)
;         (AGNOSTIC-LIZARD:METAENV-MACROEXPAND-ALL AGNOSTIC-LIZARD::FORM
;          AGNOSTIC-LIZARD::ENV))
;        (T
;         (LET* (#)
;           (AGNOSTIC-LIZARD:METAENV-ENSURE-NAMES-FROM-ENVIRONMENT
;            AGNOSTIC-LIZARD:METAENV AGNOSTIC-LIZARD::NAMES AGNOSTIC-LIZARD::ENV)
;           (AGNOSTIC-LIZARD:METAENV-MACROEXPAND-ALL AGNOSTIC-LIZARD::FORM
;            AGNOSTIC-LIZARD:METAENV)))))
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA AGNOSTIC-LIZARD:MACROEXPAND-ALL
;         (AGNOSTIC-LIZARD::FORM &OPTIONAL AGNOSTIC-LIZARD::ENV &KEY
;          AGNOSTIC-LIZARD::NAMES AGNOSTIC-LIZARD::NEVER-PASS-FALLBACK-ENV)
;       (DECLARE (SB-C::TOP-LEVEL-FORM))
;       "Recursively expand all macro calls in form with initial environment described by env"
;       (BLOCK AGNOSTIC-LIZARD:MACROEXPAND-ALL
;         (COND
;          ((NULL AGNOSTIC-LIZARD::ENV)
;           (AGNOSTIC-LIZARD:METAENV-MACROEXPAND-ALL AGNOSTIC-LIZARD::FORM NIL))
;          ((TYPEP AGNOSTIC-LIZARD::ENV 'AGNOSTIC-LIZARD:METAENV)
;           (AGNOSTIC-LIZARD:METAENV-MACROEXPAND-ALL AGNOSTIC-LIZARD::FORM
;            AGNOSTIC-LIZARD::ENV))
;          (T
;           (LET* #
;             #
;             #)))))
; 
; caught STYLE-WARNING:
;   &OPTIONAL and &KEY found in the same lambda list: (FORM &OPTIONAL ENV &KEY NAMES NEVER-PASS-FALLBACK-ENV)
WARNING: Lisp compilation had style-warnings while compiling #<CL-SOURCE-FILE "agnostic-lizard" "pure-expansion">

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/simplified-types/317f2bf9e994f3a0d5422e415b96741ab26bc391/simplified-types-20190509-git/code/simplify-type.lisp
; in: DEFUN SIMPLIFY-TYPE
;     (TYPECASE SIMPLIFIED-TYPES::UPPER-BOUND
;       ((EQL *) '*)
;       (INTEGER SIMPLIFIED-TYPES::UPPER-BOUND)
;       ((CONS INTEGER NULL) (1- (CAR SIMPLIFIED-TYPES::UPPER-BOUND)))
;       (OTHERWISE (SIMPLIFIED-TYPES::FAIL)))
; --> LET COND IF IF PROGN 
; ==>
;   SIMPLIFIED-TYPES::UPPER-BOUND
; 
; note: deleting unreachable code

;     (CAR SIMPLIFIED-TYPES::UPPER-BOUND)
; ==>
;   SIMPLIFIED-TYPES::UPPER-BOUND
; 
; note: deleting unreachable code

;     (SIMPLIFIED-TYPES::FAIL)
; 
; note: deleting unreachable code

;     (<= SIMPLIFIED-TYPES::SIMPLIFIED-LOWER-BOUND
;         SIMPLIFIED-TYPES::SIMPLIFIED-UPPER-BOUND)
; ==>
;   SIMPLIFIED-TYPES::SIMPLIFIED-LOWER-BOUND
; 
; note: deleting unreachable code

;     'NIL
; 
; note: deleting unreachable code

;     (SIMPLIFIED-TYPES:SIMPLIFY-TYPE TYPE)
; ==>
;   TYPE
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code

;     'NIL
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/petalisp/3f31683ec5220b6f821802aae10da8c6a7243d75/petalisp-20190509-git/code/type-codes/type-codes.lisp
; in: DEFUN ARRAY-ELEMENT-TYPE-CODE
;     (PETALISP.TYPE-CODES::ARRAY-ELEMENT-TYPE-CODE-EXPANDER)
; --> TYPECASE LET COND IF PROGN 
; ==>
;   (PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER 'NIL)
; 
; caught WARNING:
;   Error during compiler-macroexpansion of (TYPE-CODE-FROM-TYPE-SPECIFIER (QUOTE NIL)). Use *BREAK-ON-SIGNALS* to intercept.
;    The function PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER is undefined.It is defined earlier in the file but is not available at compile-time.

; --> TYPECASE LET COND IF IF PROGN 
; ==>
;   (PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER 'CHARACTER)
; 
; caught WARNING:
;   Error during compiler-macroexpansion of (TYPE-CODE-FROM-TYPE-SPECIFIER (QUOTE CHARACTER)). Use *BREAK-ON-SIGNALS* to intercept.
;    The function PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER is undefined.It is defined earlier in the file but is not available at compile-time.

; --> TYPECASE LET COND IF IF IF PROGN 
; ==>
;   (PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER 'SINGLE-FLOAT)
; 
; caught WARNING:
;   Error during compiler-macroexpansion of (TYPE-CODE-FROM-TYPE-SPECIFIER (QUOTE SINGLE-FLOAT)). Use *BREAK-ON-SIGNALS* to intercept.
;    The function PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER is undefined.It is defined earlier in the file but is not available at compile-time.

; --> TYPECASE LET COND IF IF IF IF PROGN 
; ==>
;   (PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER 'DOUBLE-FLOAT)
; 
; caught WARNING:
;   Error during compiler-macroexpansion of (TYPE-CODE-FROM-TYPE-SPECIFIER (QUOTE DOUBLE-FLOAT)). Use *BREAK-ON-SIGNALS* to intercept.
;    The function PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER is undefined.It is defined earlier in the file but is not available at compile-time.

; --> TYPECASE LET COND IF IF IF IF IF PROGN 
; ==>
;   (PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER 'BIT)
; 
; caught WARNING:
;   Error during compiler-macroexpansion of (TYPE-CODE-FROM-TYPE-SPECIFIER (QUOTE BIT)). Use *BREAK-ON-SIGNALS* to intercept.
;    The function PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER is undefined.It is defined earlier in the file but is not available at compile-time.

; --> TYPECASE LET COND IF IF IF IF IF IF PROGN 
; ==>
;   (PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER '(UNSIGNED-BYTE 2))
; 
; caught WARNING:
;   Error during compiler-macroexpansion of (TYPE-CODE-FROM-TYPE-SPECIFIER (QUOTE #)). Use *BREAK-ON-SIGNALS* to intercept.
;    The function PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER is undefined.It is defined earlier in the file but is not available at compile-time.

; --> TYPECASE LET COND IF IF IF IF IF IF IF PROGN 
; ==>
;   (PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER '(UNSIGNED-BYTE 4))
; 
; caught WARNING:
;   Error during compiler-macroexpansion of (TYPE-CODE-FROM-TYPE-SPECIFIER (QUOTE #)). Use *BREAK-ON-SIGNALS* to intercept.
;    The function PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER is undefined.It is defined earlier in the file but is not available at compile-time.

; --> TYPECASE LET COND IF IF IF IF IF IF IF IF PROGN 
; ==>
;   (PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER '(UNSIGNED-BYTE 8))
; 
; caught WARNING:
;   Error during compiler-macroexpansion of (TYPE-CODE-FROM-TYPE-SPECIFIER (QUOTE #)). Use *BREAK-ON-SIGNALS* to intercept.
;    The function PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER is undefined.It is defined earlier in the file but is not available at compile-time.

; --> TYPECASE LET COND IF IF IF IF IF IF IF IF IF PROGN 
; ==>
;   (PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER '(UNSIGNED-BYTE 16))
; 
; caught WARNING:
;   Error during compiler-macroexpansion of (TYPE-CODE-FROM-TYPE-SPECIFIER (QUOTE #)). Use *BREAK-ON-SIGNALS* to intercept.
;    The function PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER is undefined.It is defined earlier in the file but is not available at compile-time.

; --> TYPECASE LET COND IF IF IF IF IF IF IF IF IF IF PROGN 
; ==>
;   (PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER '(UNSIGNED-BYTE 32))
; 
; caught WARNING:
;   Error during compiler-macroexpansion of (TYPE-CODE-FROM-TYPE-SPECIFIER (QUOTE #)). Use *BREAK-ON-SIGNALS* to intercept.
;    The function PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER is undefined.It is defined earlier in the file but is not available at compile-time.

; --> TYPECASE LET COND IF IF IF IF IF IF IF IF IF IF IF PROGN 
; ==>
;   (PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER '(UNSIGNED-BYTE 64))
; 
; caught WARNING:
;   Error during compiler-macroexpansion of (TYPE-CODE-FROM-TYPE-SPECIFIER (QUOTE #)). Use *BREAK-ON-SIGNALS* to intercept.
;    The function PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER is undefined.It is defined earlier in the file but is not available at compile-time.

; --> TYPECASE LET COND IF IF IF IF IF IF IF IF IF IF IF IF PROGN 
; ==>
;   (PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER '(SIGNED-BYTE 8))
; 
; caught WARNING:
;   Error during compiler-macroexpansion of (TYPE-CODE-FROM-TYPE-SPECIFIER (QUOTE #)). Use *BREAK-ON-SIGNALS* to intercept.
;    The function PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER is undefined.It is defined earlier in the file but is not available at compile-time.

; --> TYPECASE LET COND IF IF IF IF IF IF IF IF IF IF IF IF IF PROGN 
; ==>
;   (PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER '(SIGNED-BYTE 16))
; 
; caught WARNING:
;   Error during compiler-macroexpansion of (TYPE-CODE-FROM-TYPE-SPECIFIER (QUOTE #)). Use *BREAK-ON-SIGNALS* to intercept.
;    The function PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER is undefined.It is defined earlier in the file but is not available at compile-time.

; --> TYPECASE LET COND IF IF IF IF IF IF IF IF IF IF IF IF IF IF PROGN 
; ==>
;   (PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER '(SIGNED-BYTE 32))
; 
; caught WARNING:
;   Error during compiler-macroexpansion of (TYPE-CODE-FROM-TYPE-SPECIFIER (QUOTE #)). Use *BREAK-ON-SIGNALS* to intercept.
;    The function PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER is undefined.It is defined earlier in the file but is not available at compile-time.

; --> TYPECASE LET COND IF IF IF IF IF IF IF IF IF IF IF IF IF IF IF PROGN 
; ==>
;   (PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER '(SIGNED-BYTE 64))
; 
; caught WARNING:
;   Error during compiler-macroexpansion of (TYPE-CODE-FROM-TYPE-SPECIFIER (QUOTE #)). Use *BREAK-ON-SIGNALS* to intercept.
;    The function PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER is undefined.It is defined earlier in the file but is not available at compile-time.

; --> TYPECASE LET COND IF IF IF IF IF IF IF IF IF IF IF IF IF IF IF IF PROGN 
; ==>
;   (PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER '(COMPLEX SINGLE-FLOAT))
; 
; caught WARNING:
;   Error during compiler-macroexpansion of (TYPE-CODE-FROM-TYPE-SPECIFIER (QUOTE #)). Use *BREAK-ON-SIGNALS* to intercept.
;    The function PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER is undefined.It is defined earlier in the file but is not available at compile-time.

; --> TYPECASE LET COND IF IF IF IF IF IF IF IF IF IF IF IF IF IF IF IF IF 
; --> PROGN 
; ==>
;   (PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER '(COMPLEX DOUBLE-FLOAT))
; 
; caught WARNING:
;   Error during compiler-macroexpansion of (TYPE-CODE-FROM-TYPE-SPECIFIER (QUOTE #)). Use *BREAK-ON-SIGNALS* to intercept.
;    The function PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER is undefined.It is defined earlier in the file but is not available at compile-time.

; --> TYPECASE LET COND IF IF IF IF IF IF IF IF IF IF IF IF IF IF IF IF IF IF 
; --> PROGN 
; ==>
;   (PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER 'T)
; 
; caught WARNING:
;   Error during compiler-macroexpansion of (TYPE-CODE-FROM-TYPE-SPECIFIER (QUOTE T)). Use *BREAK-ON-SIGNALS* to intercept.
;    The function PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER is undefined.It is defined earlier in the file but is not available at compile-time.

; --> TYPECASE LET COND IF IF IF IF IF IF IF IF IF IF IF IF IF IF IF IF IF IF 
; --> THE PROGN 
; ==>
;   (PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER 'T)
; 
; caught WARNING:
;   Error during compiler-macroexpansion of (TYPE-CODE-FROM-TYPE-SPECIFIER (QUOTE T)). Use *BREAK-ON-SIGNALS* to intercept.
;    The function PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER is undefined.It is defined earlier in the file but is not available at compile-time.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/petalisp/3f31683ec5220b6f821802aae10da8c6a7243d75/petalisp-20190509-git/code/type-codes/type-codes.lisp
; in: DEFUN EMPTY-TYPE-CODE-P
;     (PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER 'NIL)
; 
; caught WARNING:
;   Error during compiler-macroexpansion of (TYPE-CODE-FROM-TYPE-SPECIFIER (QUOTE NIL)). Use *BREAK-ON-SIGNALS* to intercept.
;    The function PETALISP.TYPE-CODES:TYPE-CODE-FROM-TYPE-SPECIFIER is undefined.It is defined earlier in the file but is not available at compile-time.
Unhandled UIOP/LISP-BUILD:COMPILE-FILE-ERROR in thread #<SB-THREAD:THREAD "main thread" RUNNING {10005E05B3}>: COMPILE-FILE-ERROR while compiling #<CL-SOURCE-FILE "petalisp.type-codes" "type-codes">

Backtrace for: #<SB-THREAD:THREAD "main thread" RUNNING {10005E05B3}>
0: (SB-DEBUG::DEBUGGER-DISABLED-HOOK #<UIOP/LISP-BUILD:COMPILE-FILE-ERROR {100743A6E3}> #<unused argument> :QUIT T)
1: (SB-DEBUG::RUN-HOOK *INVOKE-DEBUGGER-HOOK* #<UIOP/LISP-BUILD:COMPILE-FILE-ERROR {100743A6E3}>)
2: (INVOKE-DEBUGGER #<UIOP/LISP-BUILD:COMPILE-FILE-ERROR {100743A6E3}>)
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 "petalisp.type-codes" "type-codes">)))
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 "petalisp.type-codes" "type-codes">)))
5: ((SB-PCL::EMF ASDF/ACTION:PERFORM) #<unused argument> #<unused argument> #<ASDF/LISP-ACTION:COMPILE-OP > #<ASDF/LISP-ACTION:CL-SOURCE-FILE "petalisp.type-codes" "type-codes">)
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 "petalisp.type-codes" "type-codes">) [fast-method]
8: ((:METHOD ASDF/PLAN:PERFORM-PLAN (T)) #<ASDF/PLAN:SEQUENTIAL-PLAN {1005B18933}>) [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 {1005B18933}>) [fast-method]
11: ((:METHOD ASDF/OPERATE:OPERATE (ASDF/OPERATION:OPERATION ASDF/COMPONENT:COMPONENT)) #<ASDF/LISP-ACTION:LOAD-OP > #<ASDF/SYSTEM:SYSTEM "petalisp.api"> :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 "petalisp.api">)
13: ((LAMBDA NIL :IN ASDF/OPERATE:OPERATE))
14: ((:METHOD ASDF/OPERATE:OPERATE :AROUND (T T)) #<ASDF/LISP-ACTION:LOAD-OP > #<ASDF/SYSTEM:SYSTEM "petalisp.api">) [fast-method]
15: ((SB-PCL::EMF ASDF/OPERATE:OPERATE) #<unused argument> #<unused argument> ASDF/LISP-ACTION:LOAD-OP "petalisp.api")
16: ((LAMBDA NIL :IN ASDF/OPERATE:OPERATE))
17: ((:METHOD ASDF/OPERATE:OPERATE :AROUND (T T)) ASDF/LISP-ACTION:LOAD-OP "petalisp.api") [fast-method]
18: (ASDF/SESSION:CALL-WITH-ASDF-SESSION #<CLOSURE (LAMBDA NIL :IN ASDF/OPERATE:OPERATE) {1005B12CAB}> :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) {1005AD023B}> :OVERRIDE NIL :KEY NIL :OVERRIDE-CACHE NIL :OVERRIDE-FORCING NIL)
21: ((:METHOD ASDF/OPERATE:OPERATE :AROUND (T T)) ASDF/LISP-ACTION:LOAD-OP "petalisp.api") [fast-method]
22: (DEPCHECK::COMPUTE-DEPENDENCIES "petalisp.api" "petalisp.api")
23: (DEPCHECK::MAGIC "petalisp.api" "petalisp.api" "/home/quicklisp/quicklisp-controller/tmp/anonymous/anonymous-ifIP9sWw/depcheck-win.txt")
24: (DEPCHECK::MAIN ("depcheck" "/home/quicklisp/quicklisp-controller/dist/system-file-index" "petalisp.api" "petalisp.api" "/home/quicklisp/quicklisp-controller/tmp/anonymous/anonymous-ifIP9sWw/depcheck-win.txt" "/home/quicklisp/quicklisp-controller/tmp/anonymous/anonymous-ifIP9sWw/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 1 fatal ERROR condition
;   caught 20 WARNING conditions
;   caught 1 STYLE-WARNING condition
;   printed 9 notes