html-sugar

SBCL 1.4.11.105-54ce935 / ASDF 3.3.1

html-sugar

WARNING: System definition file #P"/home/quicklisp/quicklisp-controller/dist/build-cache/portableaserve/52bf14f263411e743de4007909a92165045fa5a3/portableaserve-20181014-git/aserve/aserve.asd" contains definition for system "aserve-test". Please only define "aserve" and secondary systems with a name starting with "aserve/" (e.g. "aserve/test") in that file.
WARNING: System definition file #P"/home/quicklisp/quicklisp-controller/dist/build-cache/puri/79053c86ebabe7ec8aab7ef175e13c9f3a9f0960/puri-20181014-git/puri.asd" contains definition for system "puri-tests". Please only define "puri" and secondary systems with a name starting with "puri/" (e.g. "puri/test") in that file.
WARNING: System definition file #P"/home/quicklisp/quicklisp-controller/dist/build-cache/cl-ppcre/303f5a11b3d38e3d07c5da54d8f8bdba573c9460/cl-ppcre-20181014-git/cl-ppcre.asd" contains definition for system "cl-ppcre-test". Please only define "cl-ppcre" and secondary systems with a name starting with "cl-ppcre/" (e.g. "cl-ppcre/test") in that file.
WARNING: System definition file #P"/home/quicklisp/quicklisp-controller/dist/build-cache/cl-fad/e389592fd6c0af849f4f420657cd784036c44bc5/cl-fad-20181014-git/cl-fad.asd" contains definition for system "cl-fad-test". Please only define "cl-fad" and secondary systems with a name starting with "cl-fad/" (e.g. "cl-fad/test") in that file.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/portableaserve/52bf14f263411e743de4007909a92165045fa5a3/portableaserve-20181014-git/acl-compat/acl-excl-common.lisp
; in: DEFUN ACL-COMPAT.SYSTEM:MAKE-TEMP-FILE-NAME
;     (DEFUN ACL-COMPAT.SYSTEM:MAKE-TEMP-FILE-NAME (ACL-COMPAT.EXCL::NAME)
;       (CL-FAD:WITH-OPEN-TEMPORARY-FILE (ACL-COMPAT.EXCL::S)
;         (PATHNAME ACL-COMPAT.EXCL::S)))
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA ACL-COMPAT.SYSTEM:MAKE-TEMP-FILE-NAME
;         (ACL-COMPAT.EXCL::NAME)
;       (DECLARE (SB-C::TOP-LEVEL-FORM))
;       (BLOCK ACL-COMPAT.SYSTEM:MAKE-TEMP-FILE-NAME
;         (CL-FAD:WITH-OPEN-TEMPORARY-FILE (ACL-COMPAT.EXCL::S)
;           (PATHNAME ACL-COMPAT.EXCL::S))))
; 
; caught STYLE-WARNING:
;   The variable NAME is defined but never used.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/portableaserve/52bf14f263411e743de4007909a92165045fa5a3/portableaserve-20181014-git/acl-compat/acl-excl-common.lisp
; in: DEFUN MD5-UPDATE
;     (DEFUN ACL-COMPAT.EXCL:MD5-UPDATE
;            (ACL-COMPAT.EXCL::CONTEXT ACL-COMPAT.EXCL::DATA
;             &REST ACL-COMPAT.EXCL::ARGS
;             &KEY ACL-COMPAT.EXCL::START ACL-COMPAT.EXCL::END
;             ACL-COMPAT.EXCL::EXTERNAL-FORMAT)
;       (APPLY #'IRONCLAD:UPDATE-DIGEST ACL-COMPAT.EXCL::CONTEXT
;              ACL-COMPAT.EXCL::DATA ACL-COMPAT.EXCL::ARGS))
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA ACL-COMPAT.EXCL:MD5-UPDATE
;         (ACL-COMPAT.EXCL::CONTEXT ACL-COMPAT.EXCL::DATA &REST
;          ACL-COMPAT.EXCL::ARGS &KEY ACL-COMPAT.EXCL::START ACL-COMPAT.EXCL::END
;          ACL-COMPAT.EXCL::EXTERNAL-FORMAT)
;       (DECLARE (SB-C::TOP-LEVEL-FORM))
;       (BLOCK ACL-COMPAT.EXCL:MD5-UPDATE
;         (APPLY #'IRONCLAD:UPDATE-DIGEST ACL-COMPAT.EXCL::CONTEXT
;                ACL-COMPAT.EXCL::DATA ACL-COMPAT.EXCL::ARGS)))
; 
; caught STYLE-WARNING:
;   The variable START is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable END is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable EXTERNAL-FORMAT is defined but never used.
WARNING: Lisp compilation had style-warnings while compiling #<CL-SOURCE-FILE "acl-compat" "acl-excl-common">

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/portableaserve/52bf14f263411e743de4007909a92165045fa5a3/portableaserve-20181014-git/acl-compat/sbcl/acl-mp.lisp
; in: DEFUN/SB-THREAD PROCESS-LOCK
;     (SB-THREAD:GET-MUTEX ACL-COMPAT.MP::LOCK ACL-COMPAT.MP::LOCK-VALUE)
; 
; caught STYLE-WARNING:
;   The function SB-THREAD:GET-MUTEX has been deprecated as of SBCL version 1.0.37.33.
;   
;   Use SB-THREAD:GRAB-MUTEX instead.
;   In future SBCL versions SB-THREAD:GET-MUTEX will signal a full warning at compile-time.
;   See also:
;     The SBCL Manual, Node "Deprecation Conditions"
WARNING: Lisp compilation had style-warnings while compiling #<UNPORTABLE-CL-SOURCE-FILE "acl-compat" "acl-mp">
WARNING: Reference to deprecated function (SB-THREAD:GET-MUTEX) from PROCESS-LOCK

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/portableaserve/52bf14f263411e743de4007909a92165045fa5a3/portableaserve-20181014-git/aserve/htmlgen/htmlgen.cl
; in: DEFUN WRITE-HTML-STRING
;     (DEFUN NET.HTML.GENERATOR::WRITE-HTML-STRING
;            (STRING
;             &OPTIONAL STREAM
;             &KEY (NET.HTML.GENERATOR::START 0) NET.HTML.GENERATOR::END)
;       (IF (AND STREAM (EQUAL (STREAM-ELEMENT-TYPE STREAM) '(UNSIGNED-BYTE 8)))
;           (LOOP :FOR NET.HTML.GENERATOR::I :FROM NET.HTML.GENERATOR::START :BELOW (OR
;                                                                                    NET.HTML.GENERATOR::END
;                                                                                    (LENGTH
;                                                                                     STRING))
;                 :DO (WRITE-BYTE (CHAR-CODE #) STREAM))
;           (WRITE-STRING STRING STREAM :START NET.HTML.GENERATOR::START :END
;                         (OR NET.HTML.GENERATOR::END (LENGTH STRING)))))
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA NET.HTML.GENERATOR::WRITE-HTML-STRING
;         (STRING &OPTIONAL STREAM &KEY (NET.HTML.GENERATOR::START 0)
;                 NET.HTML.GENERATOR::END)
;       (DECLARE (SB-C::TOP-LEVEL-FORM))
;       (BLOCK NET.HTML.GENERATOR::WRITE-HTML-STRING
;         (IF (AND STREAM (EQUAL # '#))
;             (LOOP :FOR NET.HTML.GENERATOR::I :FROM NET.HTML.GENERATOR::START :BELOW (OR
;                                                                                      NET.HTML.GENERATOR::END
;                                                                                      #)
;                   :DO (WRITE-BYTE # STREAM))
;             (WRITE-STRING STRING STREAM :START NET.HTML.GENERATOR::START :END
;                           (OR NET.HTML.GENERATOR::END #)))))
; 
; caught STYLE-WARNING:
;   &OPTIONAL and &KEY found in the same lambda list: (STRING &OPTIONAL STREAM &KEY (START 0) END)
WARNING: Lisp compilation had style-warnings while compiling #<ACL-FILE "htmlgen" "htmlgen">

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/portableaserve/52bf14f263411e743de4007909a92165045fa5a3/portableaserve-20181014-git/aserve/headers.cl
; in: DEFCONSTANT *HEADER-BLOCK-SIZE*
;     (DEFCONSTANT NET.ASERVE::*HEADER-BLOCK-SIZE* 4096)
; --> EVAL-WHEN 
; ==>
;   (SB-C::%DEFCONSTANT 'NET.ASERVE::*HEADER-BLOCK-SIZE* 4096
;                       (SB-C:SOURCE-LOCATION))
; 
; caught STYLE-WARNING:
;   Defining (*HEADER-BLOCK-SIZE*) as a constant, even though the name follows
;   the usual naming convention (names like *FOO*) for special variables

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/portableaserve/52bf14f263411e743de4007909a92165045fa5a3/portableaserve-20181014-git/aserve/headers.cl
; in: DEFCONSTANT *HEADER-BLOCK-USED-SIZE-INDEX*
;     (DEFCONSTANT NET.ASERVE::*HEADER-BLOCK-USED-SIZE-INDEX*
;       (- NET.ASERVE::*HEADER-BLOCK-SIZE* 2))
; --> EVAL-WHEN 
; ==>
;   (SB-C::%DEFCONSTANT 'NET.ASERVE::*HEADER-BLOCK-USED-SIZE-INDEX*
;                       (- NET.ASERVE::*HEADER-BLOCK-SIZE* 2)
;                       (SB-C:SOURCE-LOCATION))
; 
; caught STYLE-WARNING:
;   Defining (*HEADER-BLOCK-USED-SIZE-INDEX*) as a constant, even though the name follows
;   the usual naming convention (names like *FOO*) for special variables

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/portableaserve/52bf14f263411e743de4007909a92165045fa5a3/portableaserve-20181014-git/aserve/headers.cl
; in: DEFCONSTANT *HEADER-BLOCK-DATA-START-INDEX*
;     (DEFCONSTANT NET.ASERVE::*HEADER-BLOCK-DATA-START-INDEX*
;       (- NET.ASERVE::*HEADER-BLOCK-SIZE* 4))
; --> EVAL-WHEN 
; ==>
;   (SB-C::%DEFCONSTANT 'NET.ASERVE::*HEADER-BLOCK-DATA-START-INDEX*
;                       (- NET.ASERVE::*HEADER-BLOCK-SIZE* 4)
;                       (SB-C:SOURCE-LOCATION))
; 
; caught STYLE-WARNING:
;   Defining (*HEADER-BLOCK-DATA-START-INDEX*) as a constant, even though the name follows
;   the usual naming convention (names like *FOO*) for special variables

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/portableaserve/52bf14f263411e743de4007909a92165045fa5a3/portableaserve-20181014-git/aserve/headers.cl
; in: EVAL-WHEN (COMPILE EVAL)
;     (EVAL-WHEN (COMPILE EVAL)
;       (DEFPARAMETER NET.ASERVE::*HTTP-HEADERS*
;         '(("Accept" :P :NF :MP) ("Accept-Charset" :P :NF :MP)
;           ("Accept-Encoding" :P :NF :MP) ("Accept-Language" :P :NF :MP)
;           ("Accept-Ranges" :P :NF :MX) ("Age" :NF :P NIL) ("Allow" :NF :P NIL)
;           ("Authorization" :P :NF :MX) ("Cache-control" :P :P :MP)
;           ("Connection" :NP :NP NIL) ("Content-Disposition" :NF :NF NIL)
;           ("Content-Encoding" :P :P :MX) ...)))
; 
; caught STYLE-WARNING:
;   using deprecated EVAL-WHEN situation names EVAL COMPILE

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/portableaserve/52bf14f263411e743de4007909a92165045fa5a3/portableaserve-20181014-git/aserve/headers.cl
; in: DEFCONSTANT *HEADERS-COUNT*
;     (DEFCONSTANT NET.ASERVE::*HEADERS-COUNT* 51)
; --> EVAL-WHEN 
; ==>
;   (SB-C::%DEFCONSTANT 'NET.ASERVE::*HEADERS-COUNT* 51 (SB-C:SOURCE-LOCATION))
; 
; caught STYLE-WARNING:
;   Defining (*HEADERS-COUNT*) as a constant, even though the name follows
;   the usual naming convention (names like *FOO*) for special variables

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/portableaserve/52bf14f263411e743de4007909a92165045fa5a3/portableaserve-20181014-git/aserve/headers.cl
; in: EVAL-WHEN (COMPILE EVAL)
;     (EVAL-WHEN (COMPILE EVAL)
;       (DEFMACRO NET.ASERVE::BUILD-HEADER-LOOKUP-TABLE ()
;         (LET ((NET.ASERVE::MAX-LENGTH 0) (NET.ASERVE::TOTAL-LENGTH 0))
;           (DOLIST (NET.ASERVE::HEADER NET.ASERVE::*HTTP-HEADERS*)
;             (SETQ #)
;             (LET #
;               #
;               #))
;           (LET (# #)
;             (LET #
;               #
;               `#)))))
; 
; caught STYLE-WARNING:
;   using deprecated EVAL-WHEN situation names EVAL COMPILE
WARNING: Lisp compilation had style-warnings while compiling #<CL-SOURCE-FILE.CL "aserve" "headers">
STYLE-WARNING: Defining (*HEADER-BLOCK-SIZE*) as a constant, even though the name follows
the usual naming convention (names like *FOO*) for special variables
STYLE-WARNING: Defining (*HEADER-BLOCK-USED-SIZE-INDEX*) as a constant, even though the name follows
the usual naming convention (names like *FOO*) for special variables
STYLE-WARNING: Defining (*HEADER-BLOCK-DATA-START-INDEX*) as a constant, even though the name follows
the usual naming convention (names like *FOO*) for special variables
STYLE-WARNING: Defining (*HEADERS-COUNT*) as a constant, even though the name follows
the usual naming convention (names like *FOO*) for special variables

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/portableaserve/52bf14f263411e743de4007909a92165045fa5a3/portableaserve-20181014-git/aserve/proxy.cl
; in: DEFCONSTANT *BROWSER-LEVEL*
;     (DEFCONSTANT NET.ASERVE::*BROWSER-LEVEL* 100)
; --> EVAL-WHEN 
; ==>
;   (SB-C::%DEFCONSTANT 'NET.ASERVE::*BROWSER-LEVEL* 100 (SB-C:SOURCE-LOCATION))
; 
; caught STYLE-WARNING:
;   Defining (*BROWSER-LEVEL*) as a constant, even though the name follows
;   the usual naming convention (names like *FOO*) for special variables

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/portableaserve/52bf14f263411e743de4007909a92165045fa5a3/portableaserve-20181014-git/aserve/proxy.cl
; in: DEFUN PROXY-REQUEST
;     (ERROR "can't proxy protocol ~s" NET.ASERVE::PROTOCOL)
; ==>
;   "can't proxy protocol ~s"
; 
; note: deleting unreachable code
WARNING: Lisp compilation had style-warnings while compiling #<CL-SOURCE-FILE.CL "aserve" "proxy">
STYLE-WARNING: Defining (*BROWSER-LEVEL*) as a constant, even though the name follows
the usual naming convention (names like *FOO*) for special variables

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/portableaserve/52bf14f263411e743de4007909a92165045fa5a3/portableaserve-20181014-git/aserve/cgi.cl
; in: DEFUN RUN-CGI-PROGRAM
;     (IGNORE NET.ASERVE::IGNORE-THIS)
; 
; caught STYLE-WARNING:
;   IGNORE declaration for an unknown variable: IGNORE-THIS

;     (ACL-COMPAT.SYSTEM:REAP-OS-SUBPROCESS :PID NET.ASERVE::PID :WAIT NIL)
; 
; caught STYLE-WARNING:
;   :PID is not a known argument keyword.
; 
; caught STYLE-WARNING:
;   :PID is not a known argument keyword.
; 
; caught STYLE-WARNING:
;   :PID is not a known argument keyword.
WARNING: Lisp compilation had style-warnings while compiling #<CL-SOURCE-FILE.CL "aserve" "cgi">

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/portableaserve/52bf14f263411e743de4007909a92165045fa5a3/portableaserve-20181014-git/aserve/webactions/clpage.cl
; in: EVAL-WHEN (COMPILE LOAD EVAL)
;     (EVAL-WHEN (COMPILE LOAD EVAL) (REQUIRE :ASERVE))
; 
; caught STYLE-WARNING:
;   using deprecated EVAL-WHEN situation names EVAL LOAD COMPILE

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/portableaserve/52bf14f263411e743de4007909a92165045fa5a3/portableaserve-20181014-git/aserve/webactions/clpage.cl
; in: DEFUN PARSE-CLP-FILENAME
;     (DEFUN NET.ASERVE::PARSE-CLP-FILENAME
;            (NET.ASERVE::FILENAME NET.ASERVE::EXTERNAL-FORMAT)
;       (HANDLER-CASE
;        (WITH-OPEN-FILE (NET.ASERVE::P NET.ASERVE::FILENAME :DIRECTION :INPUT)
;          (NET.ASERVE::PARSE-CLP-GUTS NET.ASERVE::P NET.ASERVE::FILENAME))
;        (ERROR (NET.ASERVE::C)
;               (NET.ASERVE::LOGMESS
;                (FORMAT NIL "processing clp file ~s got error ~a"
;                        NET.ASERVE::FILENAME NET.ASERVE::C)))))
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA NET.ASERVE::PARSE-CLP-FILENAME
;         (NET.ASERVE::FILENAME NET.ASERVE::EXTERNAL-FORMAT)
;       (DECLARE (SB-C::TOP-LEVEL-FORM))
;       (BLOCK NET.ASERVE::PARSE-CLP-FILENAME
;         (HANDLER-CASE
;          (WITH-OPEN-FILE (NET.ASERVE::P NET.ASERVE::FILENAME :DIRECTION :INPUT)
;            (NET.ASERVE::PARSE-CLP-GUTS NET.ASERVE::P NET.ASERVE::FILENAME))
;          (ERROR (NET.ASERVE::C) (NET.ASERVE::LOGMESS #)))))
; 
; caught STYLE-WARNING:
;   The variable EXTERNAL-FORMAT is defined but never used.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/portableaserve/52bf14f263411e743de4007909a92165045fa5a3/portableaserve-20181014-git/aserve/webactions/clpage.cl
; in: EVAL-WHEN (COMPILE LOAD EVAL)
;     (EVAL-WHEN (COMPILE LOAD EVAL)
;       (DEFPARAMETER NET.ASERVE::*CLP-WHITE-SPACE*
;         '(#\  #\Tab #\Return #\Newline))
;       (DEFPARAMETER NET.ASERVE::*CLP-END-TAGNAME*
;         '(#\  #\Tab #\Return #\Newline #\/ #\>)))
; 
; caught STYLE-WARNING:
;   using deprecated EVAL-WHEN situation names EVAL LOAD COMPILE
WARNING: Lisp compilation had style-warnings while compiling #<ACL-FILE "webactions" "clpage">
WARNING: redefining NET.ASERVE:REQUEST-VARIABLE-VALUE in DEFUN
WARNING: redefining NET.ASERVE::.INV-REQUEST-VARIABLE-VALUE in DEFUN

; 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 {100A60A2C3}>.

; --> 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 {1008A42323}>
;    '#(#<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 {1008FFAA63}> #<unused argument> :QUIT T)
1: (SB-DEBUG::RUN-HOOK *INVOKE-DEBUGGER-HOOK* #<UIOP/LISP-BUILD:COMPILE-FILE-ERROR {1008FFAA63}>)
2: (INVOKE-DEBUGGER #<UIOP/LISP-BUILD:COMPILE-FILE-ERROR {1008FFAA63}>)
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 {100545BE43}>) [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 {100545BE43}>) [fast-method]
11: ((:METHOD ASDF/OPERATE:OPERATE (ASDF/OPERATION:OPERATION ASDF/COMPONENT:COMPONENT)) #<ASDF/LISP-ACTION:LOAD-OP > #<ASDF/SYSTEM:SYSTEM "html-sugar"> :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 "html-sugar">)
13: ((LAMBDA NIL :IN ASDF/OPERATE:OPERATE))
14: ((:METHOD ASDF/OPERATE:OPERATE :AROUND (T T)) #<ASDF/LISP-ACTION:LOAD-OP > #<ASDF/SYSTEM:SYSTEM "html-sugar">) [fast-method]
15: ((SB-PCL::EMF ASDF/OPERATE:OPERATE) #<unused argument> #<unused argument> ASDF/LISP-ACTION:LOAD-OP "html-sugar")
16: ((LAMBDA NIL :IN ASDF/OPERATE:OPERATE))
17: ((:METHOD ASDF/OPERATE:OPERATE :AROUND (T T)) ASDF/LISP-ACTION:LOAD-OP "html-sugar") [fast-method]
18: (ASDF/SESSION:CALL-WITH-ASDF-SESSION #<CLOSURE (LAMBDA NIL :IN ASDF/OPERATE:OPERATE) {10054531EB}> :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) {100541049B}> :OVERRIDE NIL :KEY NIL :OVERRIDE-CACHE NIL :OVERRIDE-FORCING NIL)
21: ((:METHOD ASDF/OPERATE:OPERATE :AROUND (T T)) ASDF/LISP-ACTION:LOAD-OP "html-sugar") [fast-method]
22: (DEPCHECK::COMPUTE-DEPENDENCIES "html-sugar" "html-sugar")
23: (DEPCHECK::MAGIC "html-sugar" "html-sugar" "/home/quicklisp/quicklisp-controller/tmp/anonymous/anonymous-hxz1NvWW/depcheck-win.txt")
24: (DEPCHECK::MAIN ("depcheck" "/home/quicklisp/quicklisp-controller/dist/system-file-index" "html-sugar" "html-sugar" "/home/quicklisp/quicklisp-controller/tmp/anonymous/anonymous-hxz1NvWW/depcheck-win.txt" "/home/quicklisp/quicklisp-controller/tmp/anonymous/anonymous-hxz1NvWW/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 22 STYLE-WARNING conditions
;   printed 21 notes