clot

SBCL 1.4.11.105-54ce935 / ASDF 3.3.1

clot

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/sclf/4417c4acc3b0ef5291e42a3b41a70555148947fc/sclf-20150207T213551/sclf.lisp
; in: DEFUN STRING-SOUNDEX=
;     (EVERY #'STRING= (MAPCAR #'SCLF:SOUNDEX SCLF::L1)
;            (MAPCAR #'SCLF:SOUNDEX SCLF::L2))
; --> BLOCK SB-INT:DX-FLET FLET SB-KERNEL:%MAP LET DO BLOCK LET TAGBODY TAGBODY 
; --> LET FUNCALL 
; ==>
;   (SB-C::%FUNCALL (SB-KERNEL:%COERCE-CALLABLE-FOR-CALL SB-C::FUN)
;                   (CAR #:INDEX43) (CAR #:INDEX44))
; 
; note: implementation limitation: couldn't inline expand because expansion refers to the optimized away object #<SB-C::CTRAN 1 {1007DC1873}>.

; --> BLOCK SB-INT:DX-FLET FLET SB-KERNEL:%MAP LET DO BLOCK LET TAGBODY TAGBODY 
; --> LET FUNCALL SB-C::%FUNCALL BLOCK 
; ==>
;   (LET ((#:VAL4 (FUNCALL #'STRING= #:G0 #:G1)))
;     (UNLESS #:VAL4 (RETURN-FROM #:BLOCK2 NIL)))
; 
; note: deleting unused function
;   (LET ((#:VAL4 (FUNCALL (FUNCTION STRING=) #:G0 #:G1))))

; --> BLOCK SB-INT:DX-FLET FLET SB-KERNEL:%MAP LET DO BLOCK LET TAGBODY TAGBODY 
; --> LET FUNCALL 
; ==>
;   (SB-C::%FUNCALL (SB-KERNEL:%COERCE-CALLABLE-FOR-CALL SB-C::FUN)
;                   (CAR #:INDEX43) (CAR #:INDEX44))
; 
; note: deleting unused function
;   (SB-C::LOCAL-INLINE (FLET "WRAPPER3" :IN STRING-SOUNDEX=))

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/sclf/4417c4acc3b0ef5291e42a3b41a70555148947fc/sclf-20150207T213551/sclf.lisp
; in: DEFUN FORMAT-AMOUNT
;     (MOD SCLF::INT 10)
; --> LET REM NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL 
; ==>
;   (TRUNCATE NUMBER SB-C::DIVISOR)
; 
; note: unable to convert integer division to multiplication due to type uncertainty: The first argument is a INTEGER, not a (UNSIGNED-BYTE 64).

;     (TRUNCATE SCLF::INT 10)
; 
; note: unable to convert integer division to multiplication due to type uncertainty: The first argument is a INTEGER, not a (UNSIGNED-BYTE 64).

;     (EXPT 10 SCLF::DECIMALS)
; 
; note: unable to optimize due to type uncertainty: The second argument is a FIXNUM, not a UNSIGNED-BYTE.

;     (* NUMBER (EXPT 10 SCLF::DECIMALS))
; 
; note: unable to convert x*2^k to shift due to type uncertainty: The first argument is a NUMBER, not a INTEGER.The second argument is a (RATIONAL 0), not a INTEGER.

;     (TRUNCATE (LOG SCLF::INT 10))
; --> TRUNCATE LET 
; ==>
;   (SB-KERNEL:%UNARY-TRUNCATE SB-C::X)
; 
; note: unable to optimize due to type uncertainty: The first argument is a FLOAT, not a SINGLE-FLOAT.
; 
; note: unable to optimize due to type uncertainty: The first argument is a FLOAT, not a DOUBLE-FLOAT.

;     (MOD SCLF::INT 10)
; --> LET IF AND IF IF MINUSP 
; ==>
;   (< NUMBER 0)
; 
; note: forced to do GENERIC-< (cost 10)
;       unable to do inline fixnum comparison (cost 3) because:
;       The first argument is a INTEGER, not a FIXNUM.
;       unable to do inline fixnum comparison (cost 4) because:
;       The first argument is a INTEGER, not a FIXNUM.
;       etc.

;     (* NUMBER (EXPT 10 SCLF::DECIMALS))
; 
; note: forced to do GENERIC-* (cost 30)
;       unable to do inline fixnum arithmetic (cost 4) because:
;       The first argument is a NUMBER, not a FIXNUM.
;       The second argument is a (RATIONAL 0), not a FIXNUM.
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       unable to do inline (signed-byte 64) arithmetic (cost 5) because:
;       The first argument is a NUMBER, not a (SIGNED-BYTE 64).
;       The second argument is a (RATIONAL 0), not a (SIGNED-BYTE 64).
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &REST T).
;       etc.

;     (< SCLF::INT 0)
; 
; note: forced to do GENERIC-< (cost 10)
;       unable to do inline fixnum comparison (cost 3) because:
;       The first argument is a INTEGER, not a FIXNUM.
;       unable to do inline fixnum comparison (cost 4) because:
;       The first argument is a INTEGER, not a FIXNUM.
;       etc.

;     (- SCLF::INT)
; ==>
;   (SB-KERNEL:%NEGATE (THE NUMBER SCLF::INT))
; 
; note: forced to do GENERIC-NEGATE (cost 10)
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The first argument is a INTEGER, not a FIXNUM.
;       The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       unable to do inline (signed-byte 64) arithmetic (cost 2) because:
;       The first argument is a INTEGER, not a (SIGNED-BYTE 64).
;       The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &REST T).
;       etc.

;     (1+
;      (IF (ZEROP SCLF::INT)
;          0
;          (TRUNCATE (LOG SCLF::INT 10))))
; ==>
;   (+
;    (IF (ZEROP SCLF::INT)
;        0
;        (TRUNCATE (LOG SCLF::INT 10)))
;    1)
; 
; note: forced to do GENERIC-+ (cost 10)
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The first argument is a INTEGER, not a FIXNUM.
;       The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a INTEGER, not a FIXNUM.
;       The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       etc.

;     (MAX (1+ SCLF::DECIMALS)
;          (1+
;           (IF (ZEROP SCLF::INT)
;               0
;               (TRUNCATE (LOG SCLF::INT 10)))))
; --> LET LET IF >= IF 
; ==>
;   (< SB-C::X SB-C::Y)
; 
; note: forced to do GENERIC-< (cost 10)
;       unable to do inline fixnum comparison (cost 4) because:
;       The first argument is a (INTEGER -4611686018427387903 4611686018427387904), not a FIXNUM.
;       The second argument is a INTEGER, not a FIXNUM.

;     (CEILING (- SCLF::DIGITS SCLF::DECIMALS) SCLF::COMMA-STANCE)
; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION IF VALUES 
; ==>
;   (+ SB-C::TRU 1)
; 
; note: forced to do GENERIC-+ (cost 10)
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM.
;       The result is a (VALUES (INTEGER -9223372036854775806 9223372036854775808) &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM.
;       The result is a (VALUES (INTEGER -9223372036854775806 9223372036854775808) &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       etc.

;     (1- (CEILING (- SCLF::DIGITS SCLF::DECIMALS) SCLF::COMMA-STANCE))
; ==>
;   (- (CEILING (- SCLF::DIGITS SCLF::DECIMALS) SCLF::COMMA-STANCE) 1)
; 
; note: forced to do GENERIC-- (cost 10)
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The first argument is a (INTEGER -9223372036854775807 9223372036854775808), not a FIXNUM.
;       The result is a (VALUES (SIGNED-BYTE 64) &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a (INTEGER -9223372036854775807 9223372036854775808), not a FIXNUM.
;       The result is a (VALUES (SIGNED-BYTE 64) &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       etc.

;     (+ SCLF::DIGITS
;        (IF SCLF::NEGATIVE
;            1
;            0)
;        (IF (ZEROP SCLF::DECIMALS)
;            0
;            1)
;        (1- (CEILING (- SCLF::DIGITS SCLF::DECIMALS) SCLF::COMMA-STANCE)))
; ==>
;   (+
;    (+
;     (+ SCLF::DIGITS
;        (IF SCLF::NEGATIVE
;            1
;            0))
;     (IF (ZEROP SCLF::DECIMALS)
;         0
;         1))
;    (1- (CEILING (- SCLF::DIGITS SCLF::DECIMALS) SCLF::COMMA-STANCE)))
; 
; note: forced to do GENERIC-+ (cost 10)
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a (INTEGER -4611686018427387903 4611686018427387905), not a FIXNUM.
;       The second argument is a (SIGNED-BYTE 64), not a FIXNUM.
;       The result is a (VALUES (INTEGER -13835058055282163711 13835058055282163712) &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       unable to do inline (signed-byte 64) arithmetic (cost 5) because:
;       The result is a (VALUES (INTEGER -13835058055282163711 13835058055282163712) &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &REST T).
;       etc.

;     (CEILING (- SCLF::DIGITS SCLF::DECIMALS) SCLF::COMMA-STANCE)
; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL 
; ==>
;   (TRUNCATE NUMBER SB-C::DIVISOR)
; 
; note: doing signed word to integer coercion (cost 20), for:
;       the first result of inline (signed-byte 64) arithmetic

;     (+ SCLF::DIGITS
;        (IF SCLF::NEGATIVE
;            1
;            0)
;        (IF (ZEROP SCLF::DECIMALS)
;            0
;            1)
;        (1- (CEILING (- SCLF::DIGITS SCLF::DECIMALS) SCLF::COMMA-STANCE)))
; ==>
;   (+
;    (+
;     (+ SCLF::DIGITS
;        (IF SCLF::NEGATIVE
;            1
;            0))
;     (IF (ZEROP SCLF::DECIMALS)
;         0
;         1))
;    (1- (CEILING (- SCLF::DIGITS SCLF::DECIMALS) SCLF::COMMA-STANCE)))
; 
; note: doing signed word to integer coercion (cost 20), for:
;       the first argument of GENERIC-+

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/sclf/4417c4acc3b0ef5291e42a3b41a70555148947fc/sclf-20150207T213551/directory.lisp
; in: DEFUN PARSE-NATIVE-NAMESTRING
;     (DEFUN SCLF:PARSE-NATIVE-NAMESTRING
;            (STRING
;             &OPTIONAL SCLF::HOST (SCLF::DEFAULTS *DEFAULT-PATHNAME-DEFAULTS*)
;             &KEY (SCLF::START 0) SCLF::END SCLF::JUNK-ALLOWED)
;       (PARSE-NATIVE-NAMESTRING STRING SCLF::HOST SCLF::DEFAULTS :START
;                                SCLF::START :END SCLF::END :JUNK-ALLOWED
;                                SCLF::JUNK-ALLOWED))
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA SCLF:PARSE-NATIVE-NAMESTRING
;         (STRING &OPTIONAL SCLF::HOST
;                 (SCLF::DEFAULTS *DEFAULT-PATHNAME-DEFAULTS*) &KEY
;                 (SCLF::START 0) SCLF::END SCLF::JUNK-ALLOWED)
;       (DECLARE (SB-C::TOP-LEVEL-FORM))
;       (BLOCK SCLF:PARSE-NATIVE-NAMESTRING
;         (PARSE-NATIVE-NAMESTRING STRING SCLF::HOST SCLF::DEFAULTS :START
;                                  SCLF::START :END SCLF::END :JUNK-ALLOWED
;                                  SCLF::JUNK-ALLOWED)))
; 
; caught STYLE-WARNING:
;   &OPTIONAL and &KEY found in the same lambda list: (STRING &OPTIONAL HOST (DEFAULTS *DEFAULT-PATHNAME-DEFAULTS*) &KEY (START 0) END JUNK-ALLOWED)

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/sclf/4417c4acc3b0ef5291e42a3b41a70555148947fc/sclf-20150207T213551/directory.lisp
; in: DEFSTRUCT UNIX-FILE-STAT
;     (DEFSTRUCT (SCLF:UNIX-FILE-STAT (:CONC-NAME SCLF::STAT-))
;       SCLF::DEVICE
;       SCLF::INODE
;       SCLF::LINKS
;       SCLF::ATIME
;       SCLF::MTIME
;       SCLF::CTIME
;       SCLF:SIZE
;       SCLF::BLKSIZE
;       SCLF::BLOCKS
;       SCLF::UID
;       ...)
; --> PROGN EVAL-WHEN 
; ==>
;   (SB-KERNEL::%COMPILER-DEFSTRUCT
;    '#<SB-KERNEL:DEFSTRUCT-DESCRIPTION SCLF:UNIX-FILE-STAT {1003E83B13}>
;    '#(#<SB-KERNEL:LAYOUT for T {50300003}>
;       #<SB-KERNEL:LAYOUT for STRUCTURE-OBJECT {50300103}>))
; 
; caught STYLE-WARNING:
;   Previously compiled call to SCLF:STAT-MODE could not be inlined because the structure definition for SCLF:UNIX-FILE-STAT was not yet seen. To avoid this warning, DEFSTRUCT should precede references to the affected functions, or they must be declared locally notinline at each call site.
; 
; caught ERROR:
;   READ error during COMPILE-FILE: Lock on package SB-IMPL violated when interning UNIX-TO-UNIVERSAL-TIME while in package SCLF.
;   See also:
;     The SBCL Manual, Node "Package Locks"(in form starting at line: 348, column: 0, position: 12369)
Unhandled UIOP/LISP-BUILD:COMPILE-FILE-ERROR in thread #<SB-THREAD:THREAD "main thread" RUNNING {10005305B3}>: COMPILE-FILE-ERROR while compiling #<CL-SOURCE-FILE "sclf" "directory">

Backtrace for: #<SB-THREAD:THREAD "main thread" RUNNING {10005305B3}>
0: (SB-DEBUG::DEBUGGER-DISABLED-HOOK #<UIOP/LISP-BUILD:COMPILE-FILE-ERROR {100441E8A3}> #<unused argument> :QUIT T)
1: (SB-DEBUG::RUN-HOOK *INVOKE-DEBUGGER-HOOK* #<UIOP/LISP-BUILD:COMPILE-FILE-ERROR {100441E8A3}>)
2: (INVOKE-DEBUGGER #<UIOP/LISP-BUILD:COMPILE-FILE-ERROR {100441E8A3}>)
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 "sclf" "directory">)))
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 "sclf" "directory">)))
5: ((SB-PCL::EMF ASDF/ACTION:PERFORM) #<unused argument> #<unused argument> #<ASDF/LISP-ACTION:COMPILE-OP > #<ASDF/LISP-ACTION:CL-SOURCE-FILE "sclf" "directory">)
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 "sclf" "directory">) [fast-method]
8: ((:METHOD ASDF/PLAN:PERFORM-PLAN (T)) #<ASDF/PLAN:SEQUENTIAL-PLAN {10054421B3}>) [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 {10054421B3}>) [fast-method]
11: ((:METHOD ASDF/OPERATE:OPERATE (ASDF/OPERATION:OPERATION ASDF/COMPONENT:COMPONENT)) #<ASDF/LISP-ACTION:LOAD-OP > #<ASDF/SYSTEM:SYSTEM "clot"> :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 "clot">)
13: ((LAMBDA NIL :IN ASDF/OPERATE:OPERATE))
14: ((:METHOD ASDF/OPERATE:OPERATE :AROUND (T T)) #<ASDF/LISP-ACTION:LOAD-OP > #<ASDF/SYSTEM:SYSTEM "clot">) [fast-method]
15: ((SB-PCL::EMF ASDF/OPERATE:OPERATE) #<unused argument> #<unused argument> ASDF/LISP-ACTION:LOAD-OP "clot")
16: ((LAMBDA NIL :IN ASDF/OPERATE:OPERATE))
17: ((:METHOD ASDF/OPERATE:OPERATE :AROUND (T T)) ASDF/LISP-ACTION:LOAD-OP "clot") [fast-method]
18: (ASDF/SESSION:CALL-WITH-ASDF-SESSION #<CLOSURE (LAMBDA NIL :IN ASDF/OPERATE:OPERATE) {100543974B}> :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) {10053F69EB}> :OVERRIDE NIL :KEY NIL :OVERRIDE-CACHE NIL :OVERRIDE-FORCING NIL)
21: ((:METHOD ASDF/OPERATE:OPERATE :AROUND (T T)) ASDF/LISP-ACTION:LOAD-OP "clot") [fast-method]
22: (DEPCHECK::COMPUTE-DEPENDENCIES "clot" "clot")
23: (DEPCHECK::MAGIC "clot" "clot" "/home/quicklisp/quicklisp-controller/tmp/anonymous/anonymous-7VSVKZPo/depcheck-win.txt")
24: (DEPCHECK::MAIN ("depcheck" "/home/quicklisp/quicklisp-controller/dist/system-file-index" "clot" "clot" "/home/quicklisp/quicklisp-controller/tmp/anonymous/anonymous-7VSVKZPo/depcheck-win.txt" "/home/quicklisp/quicklisp-controller/tmp/anonymous/anonymous-7VSVKZPo/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-27" :IN SAVE-LISP-AND-DIE))
28: ((LABELS SB-IMPL::RESTART-LISP :IN SAVE-LISP-AND-DIE))

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