paip-lisp

SBCL 1.4.5.211-da163c7 / ASDF 3.3.1

paip

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/paip-lisp/a69c9ae0c2bacc65f2875d5fbe42a2ebc0b239dd/paip-lisp-20180405-git/lisp/auxfns.lisp
; in: EVAL-WHEN (EVAL COMPILE LOAD)
;     (EVAL-WHEN (EVAL COMPILE LOAD))
; 
; caught STYLE-WARNING:
;   using deprecated EVAL-WHEN situation names LOAD COMPILE EVAL

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/paip-lisp/a69c9ae0c2bacc65f2875d5fbe42a2ebc0b239dd/paip-lisp-20180405-git/lisp/auxfns.lisp
; in: DEFPARAMETER *PAIP-DIRECTORY*
;     '*LOAD-TRUENAME*
; 
; note: deleting unreachable code

;     (AND (BOUNDP '*LOAD-TRUENAME*) *LOAD-TRUENAME*)
; --> IF 
; ==>
;   *LOAD-TRUENAME*
; 
; note: deleting unreachable code

;     (TRUENAME "")
; ==>
;   ""
; 
; note: deleting unreachable code

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/paip-lisp/a69c9ae0c2bacc65f2875d5fbe42a2ebc0b239dd/paip-lisp-20180405-git/lisp/auxfns.lisp
; in: EVAL-WHEN (LOAD EVAL COMPILE)
;     (EVAL-WHEN (LOAD EVAL COMPILE)
;       (DEFMACRO PAIP::ONCE-ONLY (PAIP::VARIABLES &REST PAIP::BODY)
;         "Returns the code built by BODY.  If any of VARIABLES
;     might have side effects, they are evaluated once and stored
;     in temporary variables that are then passed to BODY."
;         (ASSERT (EVERY #'SYMBOLP PAIP::VARIABLES))
;         (LET ((PAIP::TEMPS NIL))
;           (DOTIMES (PAIP::I #) (PUSH # PAIP::TEMPS))
;           `(IF (EVERY #'PAIP::SIDE-EFFECT-FREE? #)
;                (PROGN . ,PAIP::BODY)
;                (LIST 'LET ,`# #))))
;       (DEFUN PAIP::SIDE-EFFECT-FREE? (EXP)
;         "Is exp a constant, variable, or function,
;     or of the form (THE type x) where x is side-effect-free?"
;         (OR (ATOM EXP) (CONSTANTP EXP) (PAIP::STARTS-WITH EXP 'FUNCTION)
;             (AND (PAIP::STARTS-WITH EXP 'THE) (PAIP::SIDE-EFFECT-FREE? #))))
;       (DEFMACRO PAIP::FUNCALL-IF (PAIP::FN PAIP::ARG)
;         (PAIP::ONCE-ONLY (PAIP::FN)
;          `(IF ,PAIP::FN
;               (FUNCALL ,PAIP::FN ,PAIP::ARG)
;               ,PAIP::ARG)))
;       (DEFMACRO PAIP::READ-TIME-CASE (PAIP::FIRST-CASE &REST PAIP::OTHER-CASES)
;         "Do the first case, where normally cases are
;     specified with #+ or possibly #- marks."
;         (DECLARE (PAIP::IGNORE PAIP::OTHER-CASES))
;         PAIP::FIRST-CASE)
;       (DEFUN PAIP::REST2 (PAIP::X)
;         "The rest of a list after the first TWO elements."
;         (REST (REST PAIP::X)))
;       (DEFUN PAIP::FIND-ANYWHERE (PAIP::ITEM PAIP::TREE)
;         "Does item occur anywhere in tree?"
;         (IF (ATOM PAIP::TREE)
;             (IF (EQL PAIP::ITEM PAIP::TREE)
;                 PAIP::TREE)
;             (OR (PAIP::FIND-ANYWHERE PAIP::ITEM #)
;                 (PAIP::FIND-ANYWHERE PAIP::ITEM #))))
;       (DEFUN PAIP::STARTS-WITH (LIST PAIP::X)
;         "Is x a list whose first element is x?"
;         (AND (CONSP LIST) (EQL (FIRST LIST) PAIP::X))))
; 
; caught STYLE-WARNING:
;   using deprecated EVAL-WHEN situation names COMPILE EVAL LOAD

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/paip-lisp/a69c9ae0c2bacc65f2875d5fbe42a2ebc0b239dd/paip-lisp-20180405-git/lisp/auxfns.lisp
; in: DEFMACRO READ-TIME-CASE
;     (PAIP::IGNORE PAIP::OTHER-CASES)
; 
; caught WARNING:
;   unrecognized declaration (IGNORE OTHER-CASES)

; in: EVAL-WHEN (LOAD EVAL COMPILE)
;     (EVAL-WHEN (LOAD EVAL COMPILE)
;       (DEFMACRO PAIP::ONCE-ONLY (PAIP::VARIABLES &REST PAIP::BODY)
;         "Returns the code built by BODY.  If any of VARIABLES
;     might have side effects, they are evaluated once and stored
;     in temporary variables that are then passed to BODY."
;         (ASSERT (EVERY #'SYMBOLP PAIP::VARIABLES))
;         (LET ((PAIP::TEMPS NIL))
;           (DOTIMES (PAIP::I #) (PUSH # PAIP::TEMPS))
;           `(IF (EVERY #'PAIP::SIDE-EFFECT-FREE? #)
;                (PROGN . ,PAIP::BODY)
;                (LIST 'LET ,`# #))))
;       (DEFUN PAIP::SIDE-EFFECT-FREE? (EXP)
;         "Is exp a constant, variable, or function,
;     or of the form (THE type x) where x is side-effect-free?"
;         (OR (ATOM EXP) (CONSTANTP EXP) (PAIP::STARTS-WITH EXP 'FUNCTION)
;             (AND (PAIP::STARTS-WITH EXP 'THE) (PAIP::SIDE-EFFECT-FREE? #))))
;       (DEFMACRO PAIP::FUNCALL-IF (PAIP::FN PAIP::ARG)
;         (PAIP::ONCE-ONLY (PAIP::FN)
;                          `(IF ,PAIP::FN
;                               (FUNCALL ,PAIP::FN ,PAIP::ARG)
;                               ,PAIP::ARG)))
;       (DEFMACRO PAIP::READ-TIME-CASE (PAIP::FIRST-CASE &REST PAIP::OTHER-CASES)
;         "Do the first case, where normally cases are
;     specified with #+ or possibly #- marks."
;         (DECLARE (PAIP::IGNORE PAIP::OTHER-CASES))
;         PAIP::FIRST-CASE)
;       (DEFUN PAIP::REST2 (PAIP::X)
;         "The rest of a list after the first TWO elements."
;         (REST (REST PAIP::X)))
;       (DEFUN PAIP::FIND-ANYWHERE (PAIP::ITEM PAIP::TREE)
;         "Does item occur anywhere in tree?"
;         (IF (ATOM PAIP::TREE)
;             (IF (EQL PAIP::ITEM PAIP::TREE)
;                 PAIP::TREE)
;             (OR (PAIP::FIND-ANYWHERE PAIP::ITEM #)
;                 (PAIP::FIND-ANYWHERE PAIP::ITEM #))))
;       (DEFUN PAIP::STARTS-WITH (LIST PAIP::X)
;         "Is x a list whose first element is x?"
;         (AND (CONSP LIST) (EQL (FIRST LIST) PAIP::X))))
; --> SB-INT:NAMED-DS-BIND SB-INT:BINDING* 
; ==>
;   (LET* ((#:G0
;           (SB-C::CHECK-DS-LIST/&REST (CDR #:EXPR) 1 1
;                                      '(# PAIP::FIRST-CASE &REST
;                                        PAIP::OTHER-CASES)))
;          (PAIP::FIRST-CASE (POP #:G0))
;          (PAIP::OTHER-CASES #:G0))
;     (DECLARE (PAIP::IGNORE PAIP::OTHER-CASES))
;     (BLOCK PAIP::READ-TIME-CASE PAIP::FIRST-CASE))
; 
; caught STYLE-WARNING:
;   The variable OTHER-CASES is defined but never used.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/paip-lisp/a69c9ae0c2bacc65f2875d5fbe42a2ebc0b239dd/paip-lisp-20180405-git/lisp/auxfns.lisp
; in: DEFMACRO READ-TIME-CASE
;     (PAIP::IGNORE PAIP::OTHER-CASES)
; 
; caught WARNING:
;   unrecognized declaration (IGNORE OTHER-CASES)

;     (DEFMACRO PAIP::READ-TIME-CASE (PAIP::FIRST-CASE &REST PAIP::OTHER-CASES)
;       "Do the first case, where normally cases are
;     specified with #+ or possibly #- marks."
;       (DECLARE (PAIP::IGNORE PAIP::OTHER-CASES))
;       PAIP::FIRST-CASE)
; --> PROGN EVAL-WHEN SB-C::%DEFMACRO SB-C::%DEFMACRO SB-INT:NAMED-LAMBDA 
; --> FUNCTION SB-INT:NAMED-DS-BIND SB-INT:BINDING* 
; ==>
;   (LET* ((#:G167
;           (SB-C::CHECK-DS-LIST/&REST (CDR #:EXPR) 1 1
;                                      '(# PAIP::FIRST-CASE &REST
;                                        PAIP::OTHER-CASES)))
;          (PAIP::FIRST-CASE (POP #:G167))
;          (PAIP::OTHER-CASES #:G167))
;     (DECLARE (PAIP::IGNORE PAIP::OTHER-CASES))
;     (BLOCK PAIP::READ-TIME-CASE PAIP::FIRST-CASE))
; 
; caught STYLE-WARNING:
;   The variable OTHER-CASES is defined but never used.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/paip-lisp/a69c9ae0c2bacc65f2875d5fbe42a2ebc0b239dd/paip-lisp-20180405-git/lisp/auxfns.lisp
; in: DEFMACRO WITH-COMPILATION-UNIT
;     (PAIP::IGNORE PAIP::OPTIONS)
; 
; caught WARNING:
;   unrecognized declaration (IGNORE OPTIONS)

;     (DEFMACRO WITH-COMPILATION-UNIT (PAIP::OPTIONS &BODY PAIP::BODY)
;       "Do the body, but delay compiler warnings until the end."
;       (DECLARE (PAIP::IGNORE PAIP::OPTIONS))
;       `(,(PAIP::READ-TIME-CASE 'PROGN) . ,PAIP::BODY))
; --> PROGN EVAL-WHEN PROGN SB-C::%DEFMACRO SB-INT:NAMED-LAMBDA FUNCTION 
; --> SB-INT:NAMED-DS-BIND SB-INT:BINDING* 
; ==>
;   (LET* ((#:G0
;           (SB-C::CHECK-DS-LIST/&REST (CDR #:EXPR) 1 1
;                                      '(# PAIP::OPTIONS &BODY PAIP::BODY)))
;          (PAIP::OPTIONS (POP #:G0))
;          (PAIP::BODY #:G0))
;     (DECLARE (PAIP::IGNORE PAIP::OPTIONS))
;     (BLOCK WITH-COMPILATION-UNIT
;       `(,(PAIP::READ-TIME-CASE 'PROGN) . ,PAIP::BODY)))
; 
; caught STYLE-WARNING:
;   The variable OPTIONS is defined but never used.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/paip-lisp/a69c9ae0c2bacc65f2875d5fbe42a2ebc0b239dd/paip-lisp-20180405-git/lisp/auxfns.lisp
; in: DEFUN REDUCE-LIST
;     (FUNCALL PAIP::FN PAIP::RESULT (PAIP::FUNCALL-IF PAIP::KEY (POP PAIP::SEQ)))
; --> SB-C::%FUNCALL THE SB-KERNEL:%COERCE-CALLABLE-FOR-CALL 
; ==>
;   PAIP::FN
; 
; note: deleting unreachable code

;     (POP PAIP::SEQ)
; --> PROG1 LET CAR 
; ==>
;   PAIP::SEQ
; 
; note: deleting unreachable code

;     (PAIP::FUNCALL-IF PAIP::KEY (POP PAIP::SEQ))
; --> IF FUNCALL SB-C::%FUNCALL THE SB-KERNEL:%COERCE-CALLABLE-FOR-CALL 
; ==>
;   PAIP::KEY
; 
; note: deleting unreachable code

;     (LOOP PAIP::WHILE PAIP::SEQ
;           DO (SETF PAIP::RESULT
;                      (FUNCALL PAIP::FN PAIP::RESULT
;                               (PAIP::FUNCALL-IF PAIP::KEY #))))
; --> BLOCK TAGBODY UNLESS IF 
; ==>
;   PAIP::SEQ
; 
; note: deleting unreachable code
Unhandled UIOP/LISP-BUILD:COMPILE-FILE-ERROR in thread #<SB-THREAD:THREAD "main thread" RUNNING {10006105B3}>: COMPILE-FILE-ERROR while compiling #<PAIP-SOURCE-FILE "paip" "lisp" "auxfns">

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

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