dufy

SBCL 1.4.4 / ASDF 3.3.1

dufy-test

WARNING: System definition file #P"/home/quicklisp/quicklisp-controller/dist/build-cache/cl-ppcre/3d57f1e446e4894097acebf36d52978ddaa62531/cl-ppcre-20180202-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.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/dufy/fea7f736103e47415a7a9e8b40def3461d030a79/dufy-20180202-git/dufy.lisp
; in: DEFUN FUNCTION-F
;     (DEFUN DUFY::FUNCTION-F (DUFY::X)
;       (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0))
;                (DOUBLE-FLOAT DUFY::X))
;       (IF (> DUFY::X 0.008856451679035631d0)
;           (EXPT DUFY::X 0.3333333333333333d0)
;           (+ (* 7.787037037037037d0 DUFY::X) 0.13793103448275862d0)))
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA DUFY::FUNCTION-F
;         (DUFY::X)
;       (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0))
;                (DOUBLE-FLOAT DUFY::X))
;       (BLOCK DUFY::FUNCTION-F
;         (IF (> DUFY::X 0.008856451679035631d0)
;             (EXPT DUFY::X 0.3333333333333333d0)
;             (+ (* 7.787037037037037d0 DUFY::X) 0.13793103448275862d0))))
; 
; note: doing float to pointer coercion (cost 13) to "<return value>"

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/dufy/fea7f736103e47415a7a9e8b40def3461d030a79/dufy-20180202-git/dufy.lisp
; in: DEFUN HSV-TO-RGB
;     (FLOAT DUFY::HUE 1.0d0)
; ==>
;   (SB-KERNEL:%DOUBLE-FLOAT SB-C::N)
; 
; note: unable to optimize due to type uncertainty: The first argument is a REAL, not a DOUBLE-FLOAT.

;     (MOD (FLOAT DUFY::HUE 1.0d0) 360.0d0)
; --> LET REM NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL TRUNCATE LET* 
; --> SB-KERNEL:%UNARY-TRUNCATE/DOUBLE-FLOAT 
; ==>
;   (/ SB-C::X SB-C::F)
; 
; note: unable to convert to multiplication by reciprocal because: 360.0d0 does not have an exact reciprocal

;     (FLOAT DUFY::SAT 1.0d0)
; ==>
;   (SB-KERNEL:%DOUBLE-FLOAT SB-C::N)
; 
; note: unable to optimize due to type uncertainty: The first argument is a REAL, not a DOUBLE-FLOAT.

;     (FLOAT DUFY::VAL 1.0d0)
; ==>
;   (SB-KERNEL:%DOUBLE-FLOAT SB-C::N)
; 
; note: unable to optimize due to type uncertainty: The first argument is a REAL, not a DOUBLE-FLOAT.

;     (FLOAT DUFY::HUE 1.0d0)
; ==>
;   (SB-KERNEL:%DOUBLE-FLOAT SB-C::N)
; 
; note: forced to do full call
;       unable to do inline float coercion (cost 2) because:
;       The first argument is a T, not a SINGLE-FLOAT.
;       unable to do inline float coercion (cost 5) because:
;       The first argument is a T, not a (SIGNED-BYTE 64).

;     (MOD (FLOAT DUFY::HUE 1.0d0) 360.0d0)
; --> LET REM NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL TRUNCATE LET* 
; ==>
;   (SB-KERNEL:%UNARY-TRUNCATE/DOUBLE-FLOAT (/ SB-C::X SB-C::F))
; 
; note: forced to do full call
;       unable to do inline float truncate (cost 5) because:
;       The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &REST T).

; --> LET REM NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL TRUNCATE LET* 
; --> VALUES - * LOCALLY 
; ==>
;   (SB-KERNEL:%DOUBLE-FLOAT SB-C::RES)
; 
; note: forced to do full call
;       unable to do inline float coercion (cost 5) because:
;       The first argument is a INTEGER, not a (SIGNED-BYTE 64).

;     (FLOAT DUFY::SAT 1.0d0)
; ==>
;   (SB-KERNEL:%DOUBLE-FLOAT SB-C::N)
; 
; note: forced to do full call
;       unable to do inline float coercion (cost 2) because:
;       The first argument is a T, not a SINGLE-FLOAT.
;       unable to do inline float coercion (cost 5) because:
;       The first argument is a T, not a (SIGNED-BYTE 64).

;     (FLOAT DUFY::VAL 1.0d0)
; ==>
;   (SB-KERNEL:%DOUBLE-FLOAT SB-C::N)
; 
; note: forced to do full call
;       unable to do inline float coercion (cost 2) because:
;       The first argument is a T, not a SINGLE-FLOAT.
;       unable to do inline float coercion (cost 5) because:
;       The first argument is a T, not a (SIGNED-BYTE 64).

;     (MOD (FLOAT DUFY::HUE 1.0d0) 360.0d0)
; --> LET REM NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL TRUNCATE LET* 
; ==>
;   (SB-KERNEL:%UNARY-TRUNCATE/DOUBLE-FLOAT (/ SB-C::X SB-C::F))
; 
; note: doing float to pointer coercion (cost 13)

;     (- DUFY::VAL DUFY::C)
; 
; note: doing float to pointer coercion (cost 13), for:
;       the first result of inline float arithmetic

;     (LIST (+ DUFY::BASE DUFY::X) (+ DUFY::BASE DUFY::C) DUFY::BASE)
; 
; note: doing float to pointer coercion (cost 13)
; 
; note: doing float to pointer coercion (cost 13)

;     (LIST DUFY::BASE (+ DUFY::BASE DUFY::C) (+ DUFY::BASE DUFY::X))
; 
; note: doing float to pointer coercion (cost 13)
; 
; note: doing float to pointer coercion (cost 13)

;     (LIST DUFY::BASE (+ DUFY::BASE DUFY::X) (+ DUFY::BASE DUFY::C))
; 
; note: doing float to pointer coercion (cost 13)
; 
; note: doing float to pointer coercion (cost 13)

;     (LIST (+ DUFY::BASE DUFY::X) DUFY::BASE (+ DUFY::BASE DUFY::C))
; 
; note: doing float to pointer coercion (cost 13)
; 
; note: doing float to pointer coercion (cost 13)

;     (LIST (+ DUFY::BASE DUFY::C) DUFY::BASE (+ DUFY::BASE DUFY::X))
; 
; note: doing float to pointer coercion (cost 13)
; 
; note: doing float to pointer coercion (cost 13)

;     (LIST (+ DUFY::BASE DUFY::C) (+ DUFY::BASE DUFY::X) DUFY::BASE)
; 
; note: doing float to pointer coercion (cost 13)
; 
; note: doing float to pointer coercion (cost 13)

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/dufy/fea7f736103e47415a7a9e8b40def3461d030a79/dufy-20180202-git/deltae.lisp
; in: DEFUN DELTAE
;     (FLOAT DUFY::L1 1.0d0)
; ==>
;   (SB-KERNEL:%DOUBLE-FLOAT SB-C::N)
; 
; note: unable to optimize due to type uncertainty: The first argument is a REAL, not a DOUBLE-FLOAT.

;     (FLOAT DUFY::A1 1.0d0)
; ==>
;   (SB-KERNEL:%DOUBLE-FLOAT SB-C::N)
; 
; note: unable to optimize due to type uncertainty: The first argument is a REAL, not a DOUBLE-FLOAT.

;     (FLOAT DUFY::B1 1.0d0)
; ==>
;   (SB-KERNEL:%DOUBLE-FLOAT SB-C::N)
; 
; note: unable to optimize due to type uncertainty: The first argument is a REAL, not a DOUBLE-FLOAT.

;     (FLOAT DUFY::L2 1.0d0)
; ==>
;   (SB-KERNEL:%DOUBLE-FLOAT SB-C::N)
; 
; note: unable to optimize due to type uncertainty: The first argument is a REAL, not a DOUBLE-FLOAT.

;     (FLOAT DUFY::A2 1.0d0)
; ==>
;   (SB-KERNEL:%DOUBLE-FLOAT SB-C::N)
; 
; note: unable to optimize due to type uncertainty: The first argument is a REAL, not a DOUBLE-FLOAT.

;     (FLOAT DUFY::B2 1.0d0)
; ==>
;   (SB-KERNEL:%DOUBLE-FLOAT SB-C::N)
; 
; note: unable to optimize due to type uncertainty: The first argument is a REAL, not a DOUBLE-FLOAT.

;     (FLOAT DUFY::L1 1.0d0)
; ==>
;   (SB-KERNEL:%DOUBLE-FLOAT SB-C::N)
; 
; note: forced to do full call
;       unable to do inline float coercion (cost 2) because:
;       The first argument is a T, not a SINGLE-FLOAT.
;       unable to do inline float coercion (cost 5) because:
;       The first argument is a T, not a (SIGNED-BYTE 64).

;     (FLOAT DUFY::A1 1.0d0)
; ==>
;   (SB-KERNEL:%DOUBLE-FLOAT SB-C::N)
; 
; note: forced to do full call
;       unable to do inline float coercion (cost 2) because:
;       The first argument is a T, not a SINGLE-FLOAT.
;       unable to do inline float coercion (cost 5) because:
;       The first argument is a T, not a (SIGNED-BYTE 64).

;     (FLOAT DUFY::B1 1.0d0)
; ==>
;   (SB-KERNEL:%DOUBLE-FLOAT SB-C::N)
; 
; note: forced to do full call
;       unable to do inline float coercion (cost 2) because:
;       The first argument is a T, not a SINGLE-FLOAT.
;       unable to do inline float coercion (cost 5) because:
;       The first argument is a T, not a (SIGNED-BYTE 64).

;     (FLOAT DUFY::L2 1.0d0)
; ==>
;   (SB-KERNEL:%DOUBLE-FLOAT SB-C::N)
; 
; note: forced to do full call
;       unable to do inline float coercion (cost 2) because:
;       The first argument is a T, not a SINGLE-FLOAT.
;       unable to do inline float coercion (cost 5) because:
;       The first argument is a T, not a (SIGNED-BYTE 64).

;     (FLOAT DUFY::A2 1.0d0)
; ==>
;   (SB-KERNEL:%DOUBLE-FLOAT SB-C::N)
; 
; note: forced to do full call
;       unable to do inline float coercion (cost 2) because:
;       The first argument is a T, not a SINGLE-FLOAT.
;       unable to do inline float coercion (cost 5) because:
;       The first argument is a T, not a (SIGNED-BYTE 64).

;     (FLOAT DUFY::B2 1.0d0)
; ==>
;   (SB-KERNEL:%DOUBLE-FLOAT SB-C::N)
; 
; note: forced to do full call
;       unable to do inline float coercion (cost 2) because:
;       The first argument is a T, not a SINGLE-FLOAT.
;       unable to do inline float coercion (cost 5) because:
;       The first argument is a T, not a (SIGNED-BYTE 64).

;     (DEFUN DUFY:DELTAE (DUFY::L1 DUFY::A1 DUFY::B1 DUFY::L2 DUFY::A2 DUFY::B2)
;       (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 1)))
;       (LET ((DUFY::L1 (FLOAT DUFY::L1 1.0d0))
;             (DUFY::A1 (FLOAT DUFY::A1 1.0d0))
;             (DUFY::B1 (FLOAT DUFY::B1 1.0d0))
;             (DUFY::L2 (FLOAT DUFY::L2 1.0d0))
;             (DUFY::A2 (FLOAT DUFY::A2 1.0d0))
;             (DUFY::B2 (FLOAT DUFY::B2 1.0d0)))
;         (LET ((DUFY::DELTAL #) (DUFY::DELTAA #) (DUFY::DELTAB #))
;           (SQRT (+ # # #)))))
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA DUFY:DELTAE
;         (DUFY::L1 DUFY::A1 DUFY::B1 DUFY::L2 DUFY::A2 DUFY::B2)
;       (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 1)))
;       (BLOCK DUFY:DELTAE
;         (LET ((DUFY::L1 #)
;               (DUFY::A1 #)
;               (DUFY::B1 #)
;               (DUFY::L2 #)
;               (DUFY::A2 #)
;               (DUFY::B2 #))
;           (LET (# # #)
;             (SQRT #)))))
; 
; note: doing float to pointer coercion (cost 13) to "<return value>"

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/dufy/fea7f736103e47415a7a9e8b40def3461d030a79/dufy-20180202-git/deltae.lisp
; in: DEFUN DELTAE94
;     (FLOAT DUFY::L1 1.0d0)
; ==>
;   (SB-KERNEL:%DOUBLE-FLOAT SB-C::N)
; 
; note: unable to optimize due to type uncertainty: The first argument is a REAL, not a DOUBLE-FLOAT.

;     (FLOAT DUFY::A1 1.0d0)
; ==>
;   (SB-KERNEL:%DOUBLE-FLOAT SB-C::N)
; 
; note: unable to optimize due to type uncertainty: The first argument is a REAL, not a DOUBLE-FLOAT.

;     (FLOAT DUFY::B1 1.0d0)
; ==>
;   (SB-KERNEL:%DOUBLE-FLOAT SB-C::N)
; 
; note: unable to optimize due to type uncertainty: The first argument is a REAL, not a DOUBLE-FLOAT.

;     (FLOAT DUFY::L2 1.0d0)
; ==>
;   (SB-KERNEL:%DOUBLE-FLOAT SB-C::N)
; 
; note: unable to optimize due to type uncertainty: The first argument is a REAL, not a DOUBLE-FLOAT.

;     (FLOAT DUFY::A2 1.0d0)
; ==>
;   (SB-KERNEL:%DOUBLE-FLOAT SB-C::N)
; 
; note: unable to optimize due to type uncertainty: The first argument is a REAL, not a DOUBLE-FLOAT.

;     (FLOAT DUFY::B2 1.0d0)
; ==>
;   (SB-KERNEL:%DOUBLE-FLOAT SB-C::N)
; 
; note: unable to optimize due to type uncertainty: The first argument is a REAL, not a DOUBLE-FLOAT.

;     (FLOAT DUFY::L1 1.0d0)
; ==>
;   (SB-KERNEL:%DOUBLE-FLOAT SB-C::N)
; 
; note: forced to do full call
;       unable to do inline float coercion (cost 2) because:
;       The first argument is a T, not a SINGLE-FLOAT.
;       unable to do inline float coercion (cost 5) because:
;       The first argument is a T, not a (SIGNED-BYTE 64).

;     (FLOAT DUFY::A1 1.0d0)
; ==>
;   (SB-KERNEL:%DOUBLE-FLOAT SB-C::N)
; 
; note: forced to do full call
;       unable to do inline float coercion (cost 2) because:
;       The first argument is a T, not a SINGLE-FLOAT.
;       unable to do inline float coercion (cost 5) because:
;       The first argument is a T, not a (SIGNED-BYTE 64).

;     (FLOAT DUFY::B1 1.0d0)
; ==>
;   (SB-KERNEL:%DOUBLE-FLOAT SB-C::N)
; 
; note: forced to do full call
;       unable to do inline float coercion (cost 2) because:
;       The first argument is a T, not a SINGLE-FLOAT.
;       unable to do inline float coercion (cost 5) because:
;       The first argument is a T, not a (SIGNED-BYTE 64).

;     (FLOAT DUFY::L2 1.0d0)
; ==>
;   (SB-KERNEL:%DOUBLE-FLOAT SB-C::N)
; 
; note: forced to do full call
;       unable to do inline float coercion (cost 2) because:
;       The first argument is a T, not a SINGLE-FLOAT.
;       unable to do inline float coercion (cost 5) because:
;       The first argument is a T, not a (SIGNED-BYTE 64).

;     (FLOAT DUFY::A2 1.0d0)
; ==>
;   (SB-KERNEL:%DOUBLE-FLOAT SB-C::N)
; 
; note: forced to do full call
;       unable to do inline float coercion (cost 2) because:
;       The first argument is a T, not a SINGLE-FLOAT.
;       unable to do inline float coercion (cost 5) because:
;       The first argument is a T, not a (SIGNED-BYTE 64).

;     (FLOAT DUFY::B2 1.0d0)
; ==>
;   (SB-KERNEL:%DOUBLE-FLOAT SB-C::N)
; 
; note: forced to do full call
;       unable to do inline float coercion (cost 2) because:
;       The first argument is a T, not a SINGLE-FLOAT.
;       unable to do inline float coercion (cost 5) because:
;       The first argument is a T, not a (SIGNED-BYTE 64).

;     (DEFUN DUFY:DELTAE94
;            (DUFY::L1 DUFY::A1 DUFY::B1 DUFY::L2 DUFY::A2 DUFY::B2
;             &KEY (DUFY::APPLICATION :GRAPHIC-ARTS))
;       (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 1)))
;       (LET ((DUFY::L1 (FLOAT DUFY::L1 1.0d0))
;             (DUFY::A1 (FLOAT DUFY::A1 1.0d0))
;             (DUFY::B1 (FLOAT DUFY::B1 1.0d0))
;             (DUFY::L2 (FLOAT DUFY::L2 1.0d0))
;             (DUFY::A2 (FLOAT DUFY::A2 1.0d0))
;             (DUFY::B2 (FLOAT DUFY::B2 1.0d0)))
;         (LET ((DUFY::C1 #) (DUFY::C2 #))
;           (LET* (# # # # #)
;             (LET #
;               #
;               #)))))
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA DUFY:DELTAE94
;         (DUFY::L1 DUFY::A1 DUFY::B1 DUFY::L2 DUFY::A2 DUFY::B2 &KEY
;          (DUFY::APPLICATION :GRAPHIC-ARTS))
;       (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 1)))
;       (BLOCK DUFY:DELTAE94
;         (LET ((DUFY::L1 #)
;               (DUFY::A1 #)
;               (DUFY::B1 #)
;               (DUFY::L2 #)
;               (DUFY::A2 #)
;               (DUFY::B2 #))
;           (LET (# #)
;             (LET* #
;               #)))))
; 
; note: doing float to pointer coercion (cost 13) to "<return value>"

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/dufy/fea7f736103e47415a7a9e8b40def3461d030a79/dufy-20180202-git/deltae.lisp
; in: DEFUN DELTAE00
;     (FLOAT DUFY::L1 1.0d0)
; ==>
;   (SB-KERNEL:%DOUBLE-FLOAT SB-C::N)
; 
; note: unable to optimize due to type uncertainty: The first argument is a REAL, not a DOUBLE-FLOAT.

;     (FLOAT DUFY::A1 1.0d0)
; ==>
;   (SB-KERNEL:%DOUBLE-FLOAT SB-C::N)
; 
; note: unable to optimize due to type uncertainty: The first argument is a REAL, not a DOUBLE-FLOAT.

;     (FLOAT DUFY::B1 1.0d0)
; ==>
;   (SB-KERNEL:%DOUBLE-FLOAT SB-C::N)
; 
; note: unable to optimize due to type uncertainty: The first argument is a REAL, not a DOUBLE-FLOAT.

;     (FLOAT DUFY::L2 1.0d0)
; ==>
;   (SB-KERNEL:%DOUBLE-FLOAT SB-C::N)
; 
; note: unable to optimize due to type uncertainty: The first argument is a REAL, not a DOUBLE-FLOAT.

;     (FLOAT DUFY::A2 1.0d0)
; ==>
;   (SB-KERNEL:%DOUBLE-FLOAT SB-C::N)
; 
; note: unable to optimize due to type uncertainty: The first argument is a REAL, not a DOUBLE-FLOAT.

;     (FLOAT DUFY::B2 1.0d0)
; ==>
;   (SB-KERNEL:%DOUBLE-FLOAT SB-C::N)
; 
; note: unable to optimize due to type uncertainty: The first argument is a REAL, not a DOUBLE-FLOAT.

;     (MOD (* (ATAN DUFY::B1 DUFY::APRIME1) 57.29577951308232d0) 360.0d0)
; --> LET REM NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL TRUNCATE LET* 
; --> SB-KERNEL:%UNARY-TRUNCATE/DOUBLE-FLOAT 
; ==>
;   (/ SB-C::X SB-C::F)
; 
; note: unable to convert to multiplication by reciprocal because: 360.0d0 does not have an exact reciprocal

;     (MOD (* (ATAN DUFY::B2 DUFY::APRIME2) 57.29577951308232d0) 360.0d0)
; --> LET REM NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL TRUNCATE LET* 
; --> SB-KERNEL:%UNARY-TRUNCATE/DOUBLE-FLOAT 
; ==>
;   (/ SB-C::X SB-C::F)
; 
; note: unable to convert to multiplication by reciprocal because: 360.0d0 does not have an exact reciprocal

;     (FLOAT DUFY::L1 1.0d0)
; ==>
;   (SB-KERNEL:%DOUBLE-FLOAT SB-C::N)
; 
; note: forced to do full call
;       unable to do inline float coercion (cost 2) because:
;       The first argument is a T, not a SINGLE-FLOAT.
;       unable to do inline float coercion (cost 5) because:
;       The first argument is a T, not a (SIGNED-BYTE 64).

;     (FLOAT DUFY::A1 1.0d0)
; ==>
;   (SB-KERNEL:%DOUBLE-FLOAT SB-C::N)
; 
; note: forced to do full call
;       unable to do inline float coercion (cost 2) because:
;       The first argument is a T, not a SINGLE-FLOAT.
;       unable to do inline float coercion (cost 5) because:
;       The first argument is a T, not a (SIGNED-BYTE 64).

;     (FLOAT DUFY::B1 1.0d0)
; ==>
;   (SB-KERNEL:%DOUBLE-FLOAT SB-C::N)
; 
; note: forced to do full call
;       unable to do inline float coercion (cost 2) because:
;       The first argument is a T, not a SINGLE-FLOAT.
;       unable to do inline float coercion (cost 5) because:
;       The first argument is a T, not a (SIGNED-BYTE 64).

;     (FLOAT DUFY::L2 1.0d0)
; ==>
;   (SB-KERNEL:%DOUBLE-FLOAT SB-C::N)
; 
; note: forced to do full call
;       unable to do inline float coercion (cost 2) because:
;       The first argument is a T, not a SINGLE-FLOAT.
;       unable to do inline float coercion (cost 5) because:
;       The first argument is a T, not a (SIGNED-BYTE 64).

;     (FLOAT DUFY::A2 1.0d0)
; ==>
;   (SB-KERNEL:%DOUBLE-FLOAT SB-C::N)
; 
; note: forced to do full call
;       unable to do inline float coercion (cost 2) because:
;       The first argument is a T, not a SINGLE-FLOAT.
;       unable to do inline float coercion (cost 5) because:
;       The first argument is a T, not a (SIGNED-BYTE 64).

;     (FLOAT DUFY::B2 1.0d0)
; ==>
;   (SB-KERNEL:%DOUBLE-FLOAT SB-C::N)
; 
; note: forced to do full call
;       unable to do inline float coercion (cost 2) because:
;       The first argument is a T, not a SINGLE-FLOAT.
;       unable to do inline float coercion (cost 5) because:
;       The first argument is a T, not a (SIGNED-BYTE 64).

;     (DEFUN DUFY:DELTAE00 (DUFY::L1 DUFY::A1 DUFY::B1 DUFY::L2 DUFY::A2 DUFY::B2)
;       (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 1)))
;       (LET ((DUFY::L1 (FLOAT DUFY::L1 1.0d0))
;             (DUFY::A1 (FLOAT DUFY::A1 1.0d0))
;             (DUFY::B1 (FLOAT DUFY::B1 1.0d0))
;             (DUFY::L2 (FLOAT DUFY::L2 1.0d0))
;             (DUFY::A2 (FLOAT DUFY::A2 1.0d0))
;             (DUFY::B2 (FLOAT DUFY::B2 1.0d0)))
;         (LET ((DUFY::C1 #) (DUFY::C2 #))
;           (LET* (# # # # # # # # # # # # ...)
;             (SQRT #)))))
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA DUFY:DELTAE00
;         (DUFY::L1 DUFY::A1 DUFY::B1 DUFY::L2 DUFY::A2 DUFY::B2)
;       (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 1)))
;       (BLOCK DUFY:DELTAE00
;         (LET ((DUFY::L1 #)
;               (DUFY::A1 #)
;               (DUFY::B1 #)
;               (DUFY::L2 #)
;               (DUFY::A2 #)
;               (DUFY::B2 #))
;           (LET (# #)
;             (LET* #
;               #)))))
; 
; note: doing float to pointer coercion (cost 13) to "<return value>"

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/dufy/fea7f736103e47415a7a9e8b40def3461d030a79/dufy-20180202-git/munsell.lisp
; in: DEFUN MHVC-TO-LCHAB-SIMPLEST-CASE
;     (LIST (AREF DUFY::ARR DUFY::HUE40 DUFY::TMP-VALUE 25 0)
;           (* DUFY::CSTARAB DUFY::FACTOR)
;           (AREF DUFY::ARR DUFY::HUE40 DUFY::TMP-VALUE 25 2))
; 
; note: doing float to pointer coercion (cost 13)
; 
; note: doing float to pointer coercion (cost 13)
; 
; note: doing float to pointer coercion (cost 13)

;     (LIST (AREF DUFY::ARR DUFY::HUE40 DUFY::TMP-VALUE DUFY::HALF-CHROMA 0)
;           (AREF DUFY::ARR DUFY::HUE40 DUFY::TMP-VALUE DUFY::HALF-CHROMA 1)
;           (AREF DUFY::ARR DUFY::HUE40 DUFY::TMP-VALUE DUFY::HALF-CHROMA 2))
; 
; note: doing float to pointer coercion (cost 13)
; 
; note: doing float to pointer coercion (cost 13)
; 
; note: doing float to pointer coercion (cost 13)

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/dufy/fea7f736103e47415a7a9e8b40def3461d030a79/dufy-20180202-git/munsell.lisp
; in: DEFUN MHVC-TO-LCHAB-VALUE-CHROMA-INTEGER-CASE
;     (DUFY:CIRCULAR-LERP DUFY::HAB1 DUFY::HAB2 (- DUFY::HUE40 DUFY::HUE1) 360.0d0)
; 
; note: doing float to pointer coercion (cost 13)

;     (LIST DUFY::LSTAR DUFY::CSTARAB DUFY::HAB)
; 
; note: doing float to pointer coercion (cost 13)

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/dufy/fea7f736103e47415a7a9e8b40def3461d030a79/dufy-20180202-git/munsell.lisp
; in: DEFUN MHVC-TO-LCHAB-VALUE-INTEGER-CASE
;     (DUFY:LAB-TO-LCHAB DUFY::LSTAR DUFY::ASTAR DUFY::BSTAR)
; 
; note: doing float to pointer coercion (cost 13)
; 
; note: doing float to pointer coercion (cost 13)

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/dufy/fea7f736103e47415a7a9e8b40def3461d030a79/dufy-20180202-git/munsell.lisp
; in: DEFUN MHVC-TO-LCHAB-GENERAL-CASE
;     (DUFY::MUNSELL-VALUE-TO-LSTAR DUFY::TRUE-VALUE)
; 
; note: doing float to pointer coercion (cost 13)

;     (DUFY:LAB-TO-LCHAB DUFY::LSTAR DUFY::ASTAR DUFY::BSTAR)
; 
; note: doing float to pointer coercion (cost 13)
; 
; note: doing float to pointer coercion (cost 13)

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/dufy/fea7f736103e47415a7a9e8b40def3461d030a79/dufy-20180202-git/munsell.lisp
; in: DEFUN ROUGH-LCHAB-TO-MHVC
;     (LIST (* DUFY::HAB 0.1111111111111111d0)
;           (DUFY::LSTAR-TO-MUNSELL-VALUE DUFY::LSTAR)
;           (* DUFY::CSTARAB 0.18181818181818182d0))
; 
; note: doing float to pointer coercion (cost 13)
; 
; note: doing float to pointer coercion (cost 13)

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/dufy/fea7f736103e47415a7a9e8b40def3461d030a79/dufy-20180202-git/munsell.lisp
; in: DEFUN CIRCULAR-DELTA
;     (MOD (- DUFY::THETA1 DUFY::THETA2) 360.0d0)
; --> LET REM NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL TRUNCATE LET* 
; --> SB-KERNEL:%UNARY-TRUNCATE/DOUBLE-FLOAT 
; ==>
;   (/ SB-C::X SB-C::F)
; 
; note: unable to convert to multiplication by reciprocal because: 360.0d0 does not have an exact reciprocal

; --> LET REM NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL TRUNCATE LET* 
; ==>
;   (SB-KERNEL:%UNARY-TRUNCATE/DOUBLE-FLOAT (/ SB-C::X SB-C::F))
; 
; note: forced to do full call
;       unable to do inline float truncate (cost 5) because:
;       The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &REST T).

; --> LET REM NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL TRUNCATE LET* 
; --> VALUES - * LOCALLY 
; ==>
;   (SB-KERNEL:%DOUBLE-FLOAT SB-C::RES)
; 
; note: forced to do full call
;       unable to do inline float coercion (cost 5) because:
;       The first argument is a INTEGER, not a (SIGNED-BYTE 64).

; --> LET REM NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL TRUNCATE LET* 
; ==>
;   (SB-KERNEL:%UNARY-TRUNCATE/DOUBLE-FLOAT (/ SB-C::X SB-C::F))
; 
; note: doing float to pointer coercion (cost 13)

;     (DEFUN DUFY::CIRCULAR-DELTA (DUFY::THETA1 DUFY::THETA2)
;       (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0))
;                (DOUBLE-FLOAT DUFY::THETA1 DUFY::THETA2))
;       (LET ((DUFY::Z (MOD # 360.0d0)))
;         (IF (<= DUFY::Z 180)
;             DUFY::Z
;             (- DUFY::Z 360.0d0))))
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA DUFY::CIRCULAR-DELTA
;         (DUFY::THETA1 DUFY::THETA2)
;       (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0))
;                (DOUBLE-FLOAT DUFY::THETA1 DUFY::THETA2))
;       (BLOCK DUFY::CIRCULAR-DELTA
;         (LET ((DUFY::Z #))
;           (IF (<= DUFY::Z 180)
;               DUFY::Z
;               (- DUFY::Z 360.0d0)))))
; 
; note: doing float to pointer coercion (cost 13) to "<return value>"

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/dufy/fea7f736103e47415a7a9e8b40def3461d030a79/dufy-20180202-git/munsell.lisp
; in: DEFUN INVERT-MHVC-TO-LCHAB-WITH-INIT
;     (FLOAT DUFY::CSTARAB 1.0d0)
; ==>
;   (SB-KERNEL:%DOUBLE-FLOAT SB-C::N)
; 
; note: unable to optimize due to type uncertainty: The first argument is a REAL, not a DOUBLE-FLOAT.

;     (FLOAT DUFY::HAB 1.0d0)
; ==>
;   (SB-KERNEL:%DOUBLE-FLOAT SB-C::N)
; 
; note: unable to optimize due to type uncertainty: The first argument is a REAL, not a DOUBLE-FLOAT.

;     (FLOAT DUFY::FACTOR 1.0d0)
; ==>
;   (SB-KERNEL:%DOUBLE-FLOAT SB-C::N)
; 
; note: unable to optimize due to type uncertainty: The first argument is a REAL, not a DOUBLE-FLOAT.

;     (FLOAT DUFY::THRESHOLD 1.0d0)
; ==>
;   (SB-KERNEL:%DOUBLE-FLOAT SB-C::N)
; 
; note: unable to optimize due to type uncertainty: The first argument is a REAL, not a DOUBLE-FLOAT.

;     (FLOAT DUFY::INIT-HUE40 1.0d0)
; ==>
;   (SB-KERNEL:%DOUBLE-FLOAT SB-C::N)
; 
; note: unable to optimize due to type uncertainty: The first argument is a REAL, not a DOUBLE-FLOAT.

;     (FLOAT DUFY::INIT-CHROMA 1.0d0)
; ==>
;   (SB-KERNEL:%DOUBLE-FLOAT SB-C::N)
; 
; note: unable to optimize due to type uncertainty: The first argument is a REAL, not a DOUBLE-FLOAT.

;     (MOD DUFY::TMP-HUE40 40)
; --> LET REM NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL TRUNCATE LET* 
; --> SB-KERNEL:%UNARY-TRUNCATE/DOUBLE-FLOAT 
; ==>
;   (/ SB-C::X SB-C::F)
; 
; note: unable to convert to multiplication by reciprocal because: 40.0d0 does not have an exact reciprocal

;     (MOD DUFY::TMP-HUE40 40.0d0)
; --> LET REM NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL TRUNCATE LET* 
; --> SB-KERNEL:%UNARY-TRUNCATE/DOUBLE-FLOAT 
; ==>
;   (/ SB-C::X SB-C::F)
; 
; note: unable to convert to multiplication by reciprocal because: 40.0d0 does not have an exact reciprocal

;     (FLOAT DUFY::CSTARAB 1.0d0)
; ==>
;   (SB-KERNEL:%DOUBLE-FLOAT SB-C::N)
; 
; note: forced to do full call
;       unable to do inline float coercion (cost 2) because:
;       The first argument is a T, not a SINGLE-FLOAT.
;       unable to do inline float coercion (cost 5) because:
;       The first argument is a T, not a (SIGNED-BYTE 64).

;     (FLOAT DUFY::HAB 1.0d0)
; ==>
;   (SB-KERNEL:%DOUBLE-FLOAT SB-C::N)
; 
; note: forced to do full call
;       unable to do inline float coercion (cost 2) because:
;       The first argument is a T, not a SINGLE-FLOAT.
;       unable to do inline float coercion (cost 5) because:
;       The first argument is a T, not a (SIGNED-BYTE 64).

;     (FLOAT DUFY::FACTOR 1.0d0)
; ==>
;   (SB-KERNEL:%DOUBLE-FLOAT SB-C::N)
; 
; note: forced to do full call
;       unable to do inline float coercion (cost 2) because:
;       The first argument is a T, not a SINGLE-FLOAT.
;       unable to do inline float coercion (cost 5) because:
;       The first argument is a T, not a (SIGNED-BYTE 64).

;     (FLOAT DUFY::THRESHOLD 1.0d0)
; ==>
;   (SB-KERNEL:%DOUBLE-FLOAT SB-C::N)
; 
; note: forced to do full call
;       unable to do inline float coercion (cost 2) because:
;       The first argument is a T, not a SINGLE-FLOAT.
;       unable to do inline float coercion (cost 5) because:
;       The first argument is a T, not a (SIGNED-BYTE 64).

;     (FLOAT DUFY::INIT-HUE40 1.0d0)
; ==>
;   (SB-KERNEL:%DOUBLE-FLOAT SB-C::N)
; 
; note: forced to do full call
;       unable to do inline float coercion (cost 2) because:
;       The first argument is a T, not a SINGLE-FLOAT.
;       unable to do inline float coercion (cost 5) because:
;       The first argument is a T, not a (SIGNED-BYTE 64).

;     (FLOAT DUFY::INIT-CHROMA 1.0d0)
; ==>
;   (SB-KERNEL:%DOUBLE-FLOAT SB-C::N)
; 
; note: forced to do full call
;       unable to do inline float coercion (cost 2) because:
;       The first argument is a T, not a SINGLE-FLOAT.
;       unable to do inline float coercion (cost 5) because:
;       The first argument is a T, not a (SIGNED-BYTE 64).

;     (DOTIMES
;         (DUFY::I DUFY::MAX-ITERATION
;                  (LIST (LIST (MOD DUFY::TMP-HUE40 40) DUFY::V DUFY::TMP-C)
;                        DUFY::MAX-ITERATION))
;       (DESTRUCTURING-BIND
;           (DUFY::DISUSED DUFY::TMP-CSTARAB DUFY::TMP-HAB)
;           (DUFY:MHVC-TO-LCHAB DUFY::TMP-HUE40 DUFY::V DUFY::TMP-C)
;         (DECLARE (IGNORE DUFY::DISUSED)
;                  (DOUBLE-FLOAT DUFY::TMP-CSTARAB DUFY::TMP-HAB))
;         (LET* ((DUFY::DELTA-CSTARAB #)
;                (DUFY::DELTA-HAB #)
;                (DUFY::DELTA-HUE40 #)
;                (DUFY::DELTA-C #))
;           (IF (AND # #)
;               (RETURN #)
;               (SETF #)))))
; --> DO BLOCK LET TAGBODY UNLESS 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 UNSIGNED-BYTE, not a FIXNUM.
;       The second argument is a INTEGER, not a FIXNUM.

;     (MOD DUFY::TMP-HUE40 40)
; --> LET REM NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL TRUNCATE LET* 
; ==>
;   (SB-KERNEL:%UNARY-TRUNCATE/DOUBLE-FLOAT (/ SB-C::X SB-C::F))
; 
; note: forced to do full call
;       unable to do inline float truncate (cost 5) because:
;       The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &REST T).

; --> LET REM NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL TRUNCATE LET* 
; --> VALUES - * LOCALLY 
; ==>
;   (SB-KERNEL:%DOUBLE-FLOAT SB-C::RES)
; 
; note: forced to do full call
;       unable to do inline float coercion (cost 5) because:
;       The first argument is a INTEGER, not a (SIGNED-BYTE 64).

;     (MOD DUFY::TMP-HUE40 40.0d0)
; --> LET REM NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL TRUNCATE LET* 
; ==>
;   (SB-KERNEL:%UNARY-TRUNCATE/DOUBLE-FLOAT (/ SB-C::X SB-C::F))
; 
; note: forced to do full call
;       unable to do inline float truncate (cost 5) because:
;       The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &REST T).

; --> LET REM NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL TRUNCATE LET* 
; --> VALUES - * LOCALLY 
; ==>
;   (SB-KERNEL:%DOUBLE-FLOAT SB-C::RES)
; 
; note: forced to do full call
;       unable to do inline float coercion (cost 5) because:
;       The first argument is a INTEGER, not a (SIGNED-BYTE 64).

;     (DOTIMES
;         (DUFY::I DUFY::MAX-ITERATION
;                  (LIST (LIST (MOD DUFY::TMP-HUE40 40) DUFY::V DUFY::TMP-C)
;                        DUFY::MAX-ITERATION))
;       (DESTRUCTURING-BIND
;           (DUFY::DISUSED DUFY::TMP-CSTARAB DUFY::TMP-HAB)
;           (DUFY:MHVC-TO-LCHAB DUFY::TMP-HUE40 DUFY::V DUFY::TMP-C)
;         (DECLARE (IGNORE DUFY::DISUSED)
;                  (DOUBLE-FLOAT DUFY::TMP-CSTARAB DUFY::TMP-HAB))
;         (LET* ((DUFY::DELTA-CSTARAB #)
;                (DUFY::DELTA-HAB #)
;                (DUFY::DELTA-HUE40 #)
;                (DUFY::DELTA-C #))
;           (IF (AND # #)
;               (RETURN #)
;               (SETF #)))))
; --> DO BLOCK LET TAGBODY PSETQ PROGN SETQ THE 1+ 
; ==>
;   (+ DUFY::I 1)
; 
; note: forced to do GENERIC-+ (cost 10)
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The first argument is a UNSIGNED-BYTE, not a FIXNUM.
;       The result is a (VALUES (INTEGER 1) &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a UNSIGNED-BYTE, not a FIXNUM.
;       The result is a (VALUES (INTEGER 1) &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       etc.

;     (DUFY:MHVC-TO-LCHAB DUFY::TMP-HUE40 DUFY::V DUFY::TMP-C)
; ==>
;   DUFY::TMP-HUE40
; 
; note: doing float to pointer coercion (cost 13) from TMP-HUE40

;     (MAX (+ DUFY::TMP-C (* DUFY::FACTOR DUFY::DELTA-C)) 0.0d0)
; --> LET LET IF 
; ==>
;   #:ARG04
; 
; note: doing float to pointer coercion (cost 13)

;     (MOD DUFY::TMP-HUE40 40)
; --> LET REM NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL TRUNCATE LET* 
; ==>
;   (SB-KERNEL:%UNARY-TRUNCATE/DOUBLE-FLOAT (/ SB-C::X SB-C::F))
; 
; note: doing float to pointer coercion (cost 13)

;     (LIST (MOD DUFY::TMP-HUE40 40) DUFY::V DUFY::TMP-C)
; 
; note: doing float to pointer coercion (cost 13)

;     (MOD DUFY::TMP-HUE40 40.0d0)
; --> LET REM NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL TRUNCATE LET* 
; ==>
;   (SB-KERNEL:%UNARY-TRUNCATE/DOUBLE-FLOAT (/ SB-C::X SB-C::F))
; 
; note: doing float to pointer coercion (cost 13)

;     (LIST (MOD DUFY::TMP-HUE40 40.0d0) DUFY::V DUFY::TMP-C)
; 
; note: doing float to pointer coercion (cost 13)
Unhandled SB-KERNEL:SIMPLE-PACKAGE-ERROR in thread #<SB-THREAD:THREAD "main thread" RUNNING {10006105B3}>: The name "FIVEAM" does not designate any package.

Backtrace for: #<SB-THREAD:THREAD "main thread" RUNNING {10006105B3}>
0: (SB-DEBUG::DEBUGGER-DISABLED-HOOK #<SB-KERNEL:SIMPLE-PACKAGE-ERROR "The name ~S does not designate any package." {1005A20B13}> #<unused argument> :QUIT T)
1: (SB-DEBUG::RUN-HOOK *INVOKE-DEBUGGER-HOOK* #<SB-KERNEL:SIMPLE-PACKAGE-ERROR "The name ~S does not designate any package." {1005A20B13}>)
2: (INVOKE-DEBUGGER #<SB-KERNEL:SIMPLE-PACKAGE-ERROR "The name ~S does not designate any package." {1005A20B13}>)
3: (ERROR SB-KERNEL:SIMPLE-PACKAGE-ERROR :PACKAGE "FIVEAM" :FORMAT-CONTROL "The name ~S does not designate any package." :FORMAT-ARGUMENTS ("FIVEAM"))
4: (SB-INT:FIND-UNDELETED-PACKAGE-OR-LOSE "FIVEAM")
5: (SB-IMPL::USE-LIST-PACKAGES NIL ("CL" "FIVEAM"))
6: ((FLET SB-IMPL::THUNK :IN SB-IMPL::%DEFPACKAGE))
7: ((FLET "WITHOUT-INTERRUPTS-BODY-29" :IN SB-THREAD::CALL-WITH-RECURSIVE-LOCK))
8: (SB-THREAD::CALL-WITH-RECURSIVE-LOCK #<CLOSURE (FLET SB-THREAD::WITH-RECURSIVE-LOCK-THUNK :IN SB-IMPL::CALL-WITH-PACKAGE-GRAPH) {7FFFF6DA5D2B}> #<SB-THREAD:MUTEX "Package Graph Lock" owner: #<SB-THREAD:THREAD "main thread" RUNNING {10006105B3}>> T NIL)
9: (SB-IMPL::CALL-WITH-PACKAGE-GRAPH #<CLOSURE (FLET SB-IMPL::THUNK :IN SB-IMPL::%DEFPACKAGE) {7FFFF6DA5D6B}>)
10: (SB-IMPL::%DEFPACKAGE "DUFY-TEST" NIL NIL NIL NIL ("CL" "FIVEAM") NIL NIL NIL ("DUFY-TEST") NIL NIL #S(SB-C:DEFINITION-SOURCE-LOCATION :NAMESTRING "/home/quicklisp/quicklisp-controller/dist/build-cache/dufy/fea7f736103e47415a7a9e8b40def3461d030a79/dufy-20180202-git/dufy-test.lisp" :INDICES 65537) NIL)
11: (SB-INT:SIMPLE-EVAL-IN-LEXENV (SB-IMPL::%DEFPACKAGE #1="DUFY-TEST" (QUOTE NIL) (QUOTE NIL) (QUOTE NIL) (QUOTE NIL) (QUOTE ("CL" "FIVEAM")) (QUOTE NIL) (QUOTE NIL) (QUOTE NIL) (QUOTE (#1#)) (QUOTE NIL) ...) #<NULL-LEXENV>)
12: (SB-INT:SIMPLE-EVAL-IN-LEXENV (PROGN (SB-IMPL::%DEFPACKAGE #1="DUFY-TEST" (QUOTE NIL) (QUOTE NIL) (QUOTE NIL) (QUOTE NIL) (QUOTE ("CL" "FIVEAM")) (QUOTE NIL) (QUOTE NIL) (QUOTE NIL) (QUOTE (#1#)) (QUOTE NIL) ...)) #<NULL-LEXENV>)
13: (EVAL-TLF (PROGN (SB-IMPL::%DEFPACKAGE #1="DUFY-TEST" (QUOTE NIL) (QUOTE NIL) (QUOTE NIL) (QUOTE NIL) (QUOTE ("CL" "FIVEAM")) (QUOTE NIL) (QUOTE NIL) (QUOTE NIL) (QUOTE (#1#)) (QUOTE NIL) ...)) 1 #<NULL-LEXENV>)
14: ((FLET SB-C::FROB :IN SB-C::EVAL-COMPILE-TOPLEVEL))
15: ((FLET SB-C::DEFAULT-PROCESSOR :IN SB-C::PROCESS-TOPLEVEL-FORM) (SB-IMPL::%DEFPACKAGE #1="DUFY-TEST" (QUOTE NIL) (QUOTE NIL) (QUOTE NIL) (QUOTE NIL) (QUOTE ("CL" "FIVEAM")) (QUOTE NIL) (QUOTE NIL) (QUOTE NIL) (QUOTE (#1#)) (QUOTE NIL) ...))
16: (SB-C::PROCESS-TOPLEVEL-FORM (SB-IMPL::%DEFPACKAGE #1="DUFY-TEST" (QUOTE NIL) (QUOTE NIL) (QUOTE NIL) (QUOTE NIL) (QUOTE ("CL" "FIVEAM")) (QUOTE NIL) (QUOTE NIL) (QUOTE NIL) (QUOTE (#1#)) (QUOTE NIL) ...) ((EVAL-WHEN (:COMPILE-TOPLEVEL :LOAD-TOPLEVEL :EXECUTE) (SB-IMPL::%DEFPACKAGE #1="DUFY-TEST" (QUOTE NIL) (QUOTE NIL) (QUOTE NIL) (QUOTE NIL) (QUOTE ("CL" "FIVEAM")) (QUOTE NIL) (QUOTE NIL) (QUOTE NIL) (QUOTE (#1#)) (QUOTE NIL) ...)) SB-C::ORIGINAL-SOURCE-START 0 1) (:COMPILE-TOPLEVEL))
17: (SB-C::PROCESS-TOPLEVEL-PROGN ((SB-IMPL::%DEFPACKAGE #1="DUFY-TEST" (QUOTE NIL) (QUOTE NIL) (QUOTE NIL) (QUOTE NIL) (QUOTE ("CL" "FIVEAM")) (QUOTE NIL) (QUOTE NIL) (QUOTE NIL) (QUOTE (#1#)) (QUOTE NIL) ...)) ((EVAL-WHEN (:COMPILE-TOPLEVEL :LOAD-TOPLEVEL :EXECUTE) (SB-IMPL::%DEFPACKAGE #1="DUFY-TEST" (QUOTE NIL) (QUOTE NIL) (QUOTE NIL) (QUOTE NIL) (QUOTE ("CL" "FIVEAM")) (QUOTE NIL) (QUOTE NIL) (QUOTE NIL) (QUOTE (#1#)) (QUOTE NIL) ...)) SB-C::ORIGINAL-SOURCE-START 0 1) (:COMPILE-TOPLEVEL))
18: (SB-C::PROCESS-TOPLEVEL-FORM (EVAL-WHEN (:COMPILE-TOPLEVEL :LOAD-TOPLEVEL :EXECUTE) (SB-IMPL::%DEFPACKAGE #1="DUFY-TEST" (QUOTE NIL) (QUOTE NIL) (QUOTE NIL) (QUOTE NIL) (QUOTE ("CL" "FIVEAM")) (QUOTE NIL) (QUOTE NIL) (QUOTE NIL) (QUOTE (#1#)) (QUOTE NIL) ...)) (SB-C::ORIGINAL-SOURCE-START 0 1) NIL)
19: ((FLET SB-C::DEFAULT-PROCESSOR :IN SB-C::PROCESS-TOPLEVEL-FORM) (DEFPACKAGE DUFY-TEST (:USE :CL :FIVEAM)))
20: (SB-C::PROCESS-TOPLEVEL-FORM (DEFPACKAGE DUFY-TEST (:USE :CL :FIVEAM)) (SB-C::ORIGINAL-SOURCE-START 0 1) NIL)
21: ((LAMBDA (SB-KERNEL:FORM &KEY :CURRENT-INDEX &ALLOW-OTHER-KEYS) :IN SB-C::SUB-SUB-COMPILE-FILE) (DEFPACKAGE DUFY-TEST (:USE :CL :FIVEAM)) :CURRENT-INDEX 1)
22: (SB-C::%DO-FORMS-FROM-INFO #<FUNCTION (LAMBDA (SB-KERNEL:FORM &KEY :CURRENT-INDEX &ALLOW-OTHER-KEYS) :IN SB-C::SUB-SUB-COMPILE-FILE) {22248C2B}> #<SB-C::SOURCE-INFO {10059FAF23}> SB-C::INPUT-ERROR-IN-COMPILE-FILE)
23: (SB-C::SUB-SUB-COMPILE-FILE #<SB-C::SOURCE-INFO {10059FAF23}>)
24: ((FLET SB-THREAD::WITH-RECURSIVE-LOCK-THUNK :IN SB-C::SUB-COMPILE-FILE))
25: ((FLET "WITHOUT-INTERRUPTS-BODY-29" :IN SB-THREAD::CALL-WITH-RECURSIVE-LOCK))
26: (SB-THREAD::CALL-WITH-RECURSIVE-LOCK #<CLOSURE (FLET SB-THREAD::WITH-RECURSIVE-LOCK-THUNK :IN SB-C::SUB-COMPILE-FILE) {7FFFF6DA66DB}> #<SB-THREAD:MUTEX "World Lock" owner: #<SB-THREAD:THREAD "main thread" RUNNING {10006105B3}>> T NIL)
27: ((LAMBDA NIL :IN SB-C::SUB-COMPILE-FILE))
28: ((FLET SB-C::WITH-IT :IN SB-C::%WITH-COMPILATION-UNIT))
29: (SB-C::SUB-COMPILE-FILE #<SB-C::SOURCE-INFO {10059FAF23}>)
30: (COMPILE-FILE #P"/home/quicklisp/quicklisp-controller/dist/build-cache/dufy/fea7f736103e47415a7a9e8b40def3461d030a79/dufy-20180202-git/dufy-test.lisp" :OUTPUT-FILE #P"/home/quicklisp/.cache/common-lisp/sbcl-1.4.4-linux-x64/home/quicklisp/quicklisp-controller/dist/build-cache/dufy/fea7f736103e47415a7a9e8b40def3461d030a79/dufy-20180202-git/dufy-test-tmp1CXFJSK9.fasl" :VERBOSE NIL :PRINT NIL :EXTERNAL-FORMAT :UTF-8 :TRACE-FILE NIL :BLOCK-COMPILE NIL :EMIT-CFASL NIL)
31: (UIOP/UTILITY:CALL-WITH-MUFFLED-CONDITIONS #<CLOSURE (LAMBDA NIL :IN UIOP/LISP-BUILD:COMPILE-FILE*) {10059F854B}> NIL)
32: (UIOP/PATHNAME:CALL-WITH-ENOUGH-PATHNAME #P"/home/quicklisp/quicklisp-controller/dist/build-cache/dufy/fea7f736103e47415a7a9e8b40def3461d030a79/dufy-20180202-git/dufy-test.lisp" NIL #<CLOSURE (LAMBDA (UIOP/LISP-BUILD::INPUT-FILE) :IN UIOP/LISP-BUILD:COMPILE-FILE*) {10059F7E5B}>)
33: (UIOP/LISP-BUILD:COMPILE-FILE* #P"/home/quicklisp/quicklisp-controller/dist/build-cache/dufy/fea7f736103e47415a7a9e8b40def3461d030a79/dufy-20180202-git/dufy-test.lisp" :OUTPUT-FILE #P"/home/quicklisp/.cache/common-lisp/sbcl-1.4.4-linux-x64/home/quicklisp/quicklisp-controller/dist/build-cache/dufy/fea7f736103e47415a7a9e8b40def3461d030a79/dufy-20180202-git/dufy-test.fasl" :EXTERNAL-FORMAT :UTF-8 :WARNINGS-FILE NIL)
34: (ASDF/LISP-ACTION:PERFORM-LISP-COMPILATION #<ASDF/LISP-ACTION:COMPILE-OP > #<ASDF/LISP-ACTION:CL-SOURCE-FILE "dufy-test" "dufy-test">)
35: ((SB-PCL::EMF ASDF/ACTION:PERFORM) #<unused argument> #<unused argument> #<ASDF/LISP-ACTION:COMPILE-OP > #<ASDF/LISP-ACTION:CL-SOURCE-FILE "dufy-test" "dufy-test">)
36: ((LAMBDA NIL :IN ASDF/ACTION:CALL-WHILE-VISITING-ACTION))
37: ((:METHOD ASDF/ACTION:PERFORM-WITH-RESTARTS :AROUND (T T)) #<ASDF/LISP-ACTION:COMPILE-OP > #<ASDF/LISP-ACTION:CL-SOURCE-FILE "dufy-test" "dufy-test">) [fast-method]
38: ((:METHOD ASDF/PLAN:PERFORM-PLAN (T)) #<ASDF/PLAN:SEQUENTIAL-PLAN {1005A67403}>) [fast-method]
39: ((FLET SB-C::WITH-IT :IN SB-C::%WITH-COMPILATION-UNIT))
40: ((:METHOD ASDF/PLAN:PERFORM-PLAN :AROUND (T)) #<ASDF/PLAN:SEQUENTIAL-PLAN {1005A67403}>) [fast-method]
41: ((:METHOD ASDF/OPERATE:OPERATE (ASDF/OPERATION:OPERATION ASDF/COMPONENT:COMPONENT)) #<ASDF/LISP-ACTION:LOAD-OP > #<ASDF/SYSTEM:SYSTEM "dufy-test"> :PLAN-CLASS NIL :PLAN-OPTIONS NIL) [fast-method]
42: ((SB-PCL::EMF ASDF/OPERATE:OPERATE) #<unused argument> #<unused argument> #<ASDF/LISP-ACTION:LOAD-OP > #<ASDF/SYSTEM:SYSTEM "dufy-test">)
43: ((LAMBDA NIL :IN ASDF/OPERATE:OPERATE))
44: ((:METHOD ASDF/OPERATE:OPERATE :AROUND (T T)) #<ASDF/LISP-ACTION:LOAD-OP > #<ASDF/SYSTEM:SYSTEM "dufy-test">) [fast-method]
45: ((SB-PCL::EMF ASDF/OPERATE:OPERATE) #<unused argument> #<unused argument> ASDF/LISP-ACTION:LOAD-OP "dufy-test")
46: ((LAMBDA NIL :IN ASDF/OPERATE:OPERATE))
47: ((:METHOD ASDF/OPERATE:OPERATE :AROUND (T T)) ASDF/LISP-ACTION:LOAD-OP "dufy-test") [fast-method]
48: (ASDF/SESSION:CALL-WITH-ASDF-SESSION #<CLOSURE (LAMBDA NIL :IN ASDF/OPERATE:OPERATE) {1005A5F98B}> :OVERRIDE T :KEY NIL :OVERRIDE-CACHE T :OVERRIDE-FORCING NIL)
49: ((LAMBDA NIL :IN ASDF/OPERATE:OPERATE))
50: (ASDF/SESSION:CALL-WITH-ASDF-SESSION #<CLOSURE (LAMBDA NIL :IN ASDF/OPERATE:OPERATE) {1005A1CD8B}> :OVERRIDE NIL :KEY NIL :OVERRIDE-CACHE NIL :OVERRIDE-FORCING NIL)
51: ((:METHOD ASDF/OPERATE:OPERATE :AROUND (T T)) ASDF/LISP-ACTION:LOAD-OP "dufy-test") [fast-method]
52: (DEPCHECK::COMPUTE-DEPENDENCIES "dufy-test" "dufy-test")
53: (DEPCHECK::MAGIC "dufy-test" "dufy-test" "/home/quicklisp/quicklisp-controller/tmp/anonymous/anonymous-oqbuhDl3/depcheck-win.txt")
54: (DEPCHECK::MAIN ("depcheck" "/home/quicklisp/quicklisp-controller/dist/system-file-index" "dufy-test" "dufy-test" "/home/quicklisp/quicklisp-controller/tmp/anonymous/anonymous-oqbuhDl3/depcheck-win.txt" "/home/quicklisp/quicklisp-controller/tmp/anonymous/anonymous-oqbuhDl3/depcheck-fail.txt"))
55: ((LAMBDA NIL :IN "/home/quicklisp/src/quicklisp-controller/dumper-2SKVI5f7.lisp"))
56: ((FLET SB-UNIX::BODY :IN SAVE-LISP-AND-DIE))
57: ((FLET "WITHOUT-INTERRUPTS-BODY-36" :IN SAVE-LISP-AND-DIE))
58: ((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
;   printed 111 notes