flare

SBCL 2.1.7.62-417920f09 / ASDF 3.3.5

flare

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/3d-vectors/301414d25a39d91907f98e3f91b0104bc0f64789/3d-vectors-20210923-git/struct.lisp
; in: DEFINE-VECX-ACCESSOR VX2
;     (3D-VECTORS::DEFINE-VECX-ACCESSOR 3D-VECTORS:VX2 3D-VECTORS::%VX2)
; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION 
; ==>
;   (SB-C::%FUNCALL #'VX2 #:G1)
; 
; note: can't open-code test of unknown type VEC

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/3d-vectors/301414d25a39d91907f98e3f91b0104bc0f64789/3d-vectors-20210923-git/struct.lisp
; in: DEFINE-VECX-ACCESSOR VY2
;     (3D-VECTORS::DEFINE-VECX-ACCESSOR 3D-VECTORS:VY2 3D-VECTORS::%VY2)
; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION 
; ==>
;   (SB-C::%FUNCALL #'VY2 #:G1)
; 
; note: can't open-code test of unknown type VEC

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/3d-vectors/301414d25a39d91907f98e3f91b0104bc0f64789/3d-vectors-20210923-git/struct.lisp
; in: DEFINE-OFUN VEC2-RANDOM
;     (- 3D-VECTORS::UPPER 3D-VECTORS::LOWER)
; 
; note: unable to open-code float conversion in mixed numeric operation due to type uncertainty: The first argument is a NUMBER, not a RATIONAL.The second argument is a NUMBER, not a FLOAT.
; 
; note: unable to open-code float conversion in mixed numeric operation due to type uncertainty: The first argument is a NUMBER, not a FLOAT.The second argument is a NUMBER, not a RATIONAL.
; 
; note: unable to open-code float conversion in mixed numeric operation due to type uncertainty: The first argument is a NUMBER, not a RATIONAL.The second argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) (COMPLEX DOUBLE-FLOAT)).
; 
; note: unable to open-code float conversion in mixed numeric operation due to type uncertainty: The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) (COMPLEX DOUBLE-FLOAT)).The second argument is a NUMBER, not a RATIONAL.
; 
; note: unable to open-code float conversion in mixed numeric operation due to type uncertainty: The first argument is a NUMBER, not a SINGLE-FLOAT.The second argument is a NUMBER, not a DOUBLE-FLOAT.
; 
; note: unable to open-code float conversion in mixed numeric operation due to type uncertainty: The first argument is a NUMBER, not a DOUBLE-FLOAT.The second argument is a NUMBER, not a SINGLE-FLOAT.
; 
; note: unable to open-code float conversion in mixed numeric operation due to type uncertainty: The first argument is a NUMBER, not a SINGLE-FLOAT.The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; 
; note: unable to open-code float conversion in mixed numeric operation due to type uncertainty: The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).The second argument is a NUMBER, not a SINGLE-FLOAT.
; 
; note: forced to do GENERIC-- (cost 10)
;       unable to do inline float arithmetic (cost 2) because:
;       The first argument is a T, not a DOUBLE-FLOAT.
;       The second argument is a T, not a DOUBLE-FLOAT.
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES DOUBLE-FLOAT &REST T).
;       unable to do inline float arithmetic (cost 2) because:
;       The first argument is a T, not a SINGLE-FLOAT.
;       The second argument is a T, not a SINGLE-FLOAT.
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT &REST T).
;       etc.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/3d-vectors/301414d25a39d91907f98e3f91b0104bc0f64789/3d-vectors-20210923-git/struct.lisp
; in: DEFMETHOD MAKE-LOAD-FORM (VEC2)
;     (3D-VECTORS:VX2 3D-VECTORS::V)
; 
; note: can't open-code test of unknown type VEC

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/3d-vectors/301414d25a39d91907f98e3f91b0104bc0f64789/3d-vectors-20210923-git/struct.lisp
; in: DEFINE-VECX-ACCESSOR VX3
;     (3D-VECTORS::DEFINE-VECX-ACCESSOR 3D-VECTORS:VX3 3D-VECTORS::%VX3)
; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION 
; ==>
;   (SB-C::%FUNCALL #'VX3 #:G1)
; 
; note: can't open-code test of unknown type VEC

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/3d-vectors/301414d25a39d91907f98e3f91b0104bc0f64789/3d-vectors-20210923-git/struct.lisp
; in: DEFINE-VECX-ACCESSOR VY3
;     (3D-VECTORS::DEFINE-VECX-ACCESSOR 3D-VECTORS:VY3 3D-VECTORS::%VY3)
; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION 
; ==>
;   (SB-C::%FUNCALL #'VY3 #:G1)
; 
; note: can't open-code test of unknown type VEC

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/3d-vectors/301414d25a39d91907f98e3f91b0104bc0f64789/3d-vectors-20210923-git/struct.lisp
; in: DEFINE-VECX-ACCESSOR VZ3
;     (3D-VECTORS::DEFINE-VECX-ACCESSOR 3D-VECTORS:VZ3 3D-VECTORS::%VZ3)
; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION 
; ==>
;   (SB-C::%FUNCALL #'VZ3 #:G1)
; 
; note: can't open-code test of unknown type VEC

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/3d-vectors/301414d25a39d91907f98e3f91b0104bc0f64789/3d-vectors-20210923-git/struct.lisp
; in: DEFINE-OFUN VEC3-RANDOM
;     (- 3D-VECTORS::UPPER 3D-VECTORS::LOWER)
; 
; note: unable to open-code float conversion in mixed numeric operation due to type uncertainty: The first argument is a NUMBER, not a RATIONAL.The second argument is a NUMBER, not a FLOAT.
; 
; note: unable to open-code float conversion in mixed numeric operation due to type uncertainty: The first argument is a NUMBER, not a FLOAT.The second argument is a NUMBER, not a RATIONAL.
; 
; note: unable to open-code float conversion in mixed numeric operation due to type uncertainty: The first argument is a NUMBER, not a RATIONAL.The second argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) (COMPLEX DOUBLE-FLOAT)).
; 
; note: unable to open-code float conversion in mixed numeric operation due to type uncertainty: The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) (COMPLEX DOUBLE-FLOAT)).The second argument is a NUMBER, not a RATIONAL.
; 
; note: unable to open-code float conversion in mixed numeric operation due to type uncertainty: The first argument is a NUMBER, not a SINGLE-FLOAT.The second argument is a NUMBER, not a DOUBLE-FLOAT.
; 
; note: unable to open-code float conversion in mixed numeric operation due to type uncertainty: The first argument is a NUMBER, not a DOUBLE-FLOAT.The second argument is a NUMBER, not a SINGLE-FLOAT.
; 
; note: unable to open-code float conversion in mixed numeric operation due to type uncertainty: The first argument is a NUMBER, not a SINGLE-FLOAT.The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; 
; note: unable to open-code float conversion in mixed numeric operation due to type uncertainty: The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).The second argument is a NUMBER, not a SINGLE-FLOAT.
; 
; note: forced to do GENERIC-- (cost 10)
;       unable to do inline float arithmetic (cost 2) because:
;       The first argument is a T, not a DOUBLE-FLOAT.
;       The second argument is a T, not a DOUBLE-FLOAT.
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES DOUBLE-FLOAT &REST T).
;       unable to do inline float arithmetic (cost 2) because:
;       The first argument is a T, not a SINGLE-FLOAT.
;       The second argument is a T, not a SINGLE-FLOAT.
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT &REST T).
;       etc.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/3d-vectors/301414d25a39d91907f98e3f91b0104bc0f64789/3d-vectors-20210923-git/struct.lisp
; in: DEFMETHOD MAKE-LOAD-FORM (VEC3)
;     (3D-VECTORS:VX3 3D-VECTORS::V)
; 
; note: can't open-code test of unknown type VEC

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/3d-vectors/301414d25a39d91907f98e3f91b0104bc0f64789/3d-vectors-20210923-git/struct.lisp
; in: DEFINE-VECX-ACCESSOR VX4
;     (3D-VECTORS::DEFINE-VECX-ACCESSOR 3D-VECTORS:VX4 3D-VECTORS::%VX4)
; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION 
; ==>
;   (SB-C::%FUNCALL #'VX4 #:G1)
; 
; note: can't open-code test of unknown type VEC

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/3d-vectors/301414d25a39d91907f98e3f91b0104bc0f64789/3d-vectors-20210923-git/struct.lisp
; in: DEFINE-VECX-ACCESSOR VY4
;     (3D-VECTORS::DEFINE-VECX-ACCESSOR 3D-VECTORS:VY4 3D-VECTORS::%VY4)
; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION 
; ==>
;   (SB-C::%FUNCALL #'VY4 #:G1)
; 
; note: can't open-code test of unknown type VEC

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/3d-vectors/301414d25a39d91907f98e3f91b0104bc0f64789/3d-vectors-20210923-git/struct.lisp
; in: DEFINE-VECX-ACCESSOR VZ4
;     (3D-VECTORS::DEFINE-VECX-ACCESSOR 3D-VECTORS:VZ4 3D-VECTORS::%VZ4)
; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION 
; ==>
;   (SB-C::%FUNCALL #'VZ4 #:G1)
; 
; note: can't open-code test of unknown type VEC

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/3d-vectors/301414d25a39d91907f98e3f91b0104bc0f64789/3d-vectors-20210923-git/struct.lisp
; in: DEFINE-VECX-ACCESSOR VW4
;     (3D-VECTORS::DEFINE-VECX-ACCESSOR 3D-VECTORS:VW4 3D-VECTORS::%VW4)
; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION 
; ==>
;   (SB-C::%FUNCALL #'VW4 #:G1)
; 
; note: can't open-code test of unknown type VEC

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/3d-vectors/301414d25a39d91907f98e3f91b0104bc0f64789/3d-vectors-20210923-git/struct.lisp
; in: DEFINE-OFUN VEC4-RANDOM
;     (- 3D-VECTORS::UPPER 3D-VECTORS::LOWER)
; 
; note: unable to open-code float conversion in mixed numeric operation due to type uncertainty: The first argument is a NUMBER, not a RATIONAL.The second argument is a NUMBER, not a FLOAT.
; 
; note: unable to open-code float conversion in mixed numeric operation due to type uncertainty: The first argument is a NUMBER, not a FLOAT.The second argument is a NUMBER, not a RATIONAL.
; 
; note: unable to open-code float conversion in mixed numeric operation due to type uncertainty: The first argument is a NUMBER, not a RATIONAL.The second argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) (COMPLEX DOUBLE-FLOAT)).
; 
; note: unable to open-code float conversion in mixed numeric operation due to type uncertainty: The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) (COMPLEX DOUBLE-FLOAT)).The second argument is a NUMBER, not a RATIONAL.
; 
; note: unable to open-code float conversion in mixed numeric operation due to type uncertainty: The first argument is a NUMBER, not a SINGLE-FLOAT.The second argument is a NUMBER, not a DOUBLE-FLOAT.
; 
; note: unable to open-code float conversion in mixed numeric operation due to type uncertainty: The first argument is a NUMBER, not a DOUBLE-FLOAT.The second argument is a NUMBER, not a SINGLE-FLOAT.
; 
; note: unable to open-code float conversion in mixed numeric operation due to type uncertainty: The first argument is a NUMBER, not a SINGLE-FLOAT.The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; 
; note: unable to open-code float conversion in mixed numeric operation due to type uncertainty: The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).The second argument is a NUMBER, not a SINGLE-FLOAT.
; 
; note: forced to do GENERIC-- (cost 10)
;       unable to do inline float arithmetic (cost 2) because:
;       The first argument is a T, not a DOUBLE-FLOAT.
;       The second argument is a T, not a DOUBLE-FLOAT.
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES DOUBLE-FLOAT &REST T).
;       unable to do inline float arithmetic (cost 2) because:
;       The first argument is a T, not a SINGLE-FLOAT.
;       The second argument is a T, not a SINGLE-FLOAT.
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT &REST T).
;       etc.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/3d-vectors/301414d25a39d91907f98e3f91b0104bc0f64789/3d-vectors-20210923-git/struct.lisp
; in: DEFMETHOD MAKE-LOAD-FORM (VEC4)
;     (3D-VECTORS:VX4 3D-VECTORS::V)
; 
; note: can't open-code test of unknown type VEC

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/3d-vectors/301414d25a39d91907f98e3f91b0104bc0f64789/3d-vectors-20210923-git/ops.lisp
; in: DEFINE-OFUN VPNORM
;     (3D-VECTORS::DEFINE-OFUN 3D-VECTORS:VPNORM
;         (3D-VECTORS::V 3D-VECTORS::P)
;       (LET ((3D-VECTORS::P (3D-VECTORS::ENSURE-FLOAT 3D-VECTORS::P)))
;         (ETYPECASE 3D-VECTORS::V
;           (3D-VECTORS:VEC2 (EXPT # #))
;           (3D-VECTORS:VEC3 (EXPT # #))
;           (3D-VECTORS:VEC4 (EXPT # #)))))
; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION SB-C::%FUNCALL MULTIPLE-VALUE-BIND LET UNLESS IF OR LET IF LET 
; --> IF 
; ==>
;   (TYPEP #:G76 '(RATIONAL 1))
; 
; note: forced to do GENERIC-< (cost 10)
;       unable to do inline fixnum comparison (cost 3) because:
;       The first argument is a RATIONAL, not a FIXNUM.
;       unable to do inline fixnum comparison (cost 4) because:
;       The first argument is a RATIONAL, not a FIXNUM.
;       etc.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/3d-vectors/301414d25a39d91907f98e3f91b0104bc0f64789/3d-vectors-20210923-git/ops.lisp
; in: DEFINE-VECOP V+
;     (3D-VECTORS::DEFINE-VECOP 3D-VECTORS:V+ 3D-VECTORS:NV+ +)
; --> PROGN 3D-VECTORS::DEFINE-OFUN PROGN DEFUN PROGN SB-IMPL::%DEFUN 
; --> SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA 3D-VECTORS:V+
;         (3D-VECTORS::VAL &REST 3D-VECTORS::VALS)
;       (DECLARE (SB-C::TOP-LEVEL-FORM))
;       (DECLARE (OPTIMIZE (COMPILATION-SPEED 0) (DEBUG 1) (SAFETY 1) SPEED))
;       (BLOCK 3D-VECTORS:V+
;         (COND ((CDR 3D-VECTORS::VALS) (APPLY #'3D-VECTORS:NV+ # #))
;               (3D-VECTORS::VALS (3D-VECTORS::2VEC-V+ 3D-VECTORS::VAL #))
;               (T (3D-VECTORS:VAPPLY 3D-VECTORS::VAL +)))))
; 
; note: Type assertion too complex to check:
; (VALUES (OR 3D-VECTORS:VEC2 3D-VECTORS:VEC3 3D-VECTORS:VEC4) &REST T).
; It allows an unknown number of values, consider using
; (VALUES (OR 3D-VECTORS:VEC2 3D-VECTORS:VEC3 3D-VECTORS:VEC4) &OPTIONAL).

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/3d-vectors/301414d25a39d91907f98e3f91b0104bc0f64789/3d-vectors-20210923-git/ops.lisp
; in: DEFINE-VECOP V-
;     (3D-VECTORS::DEFINE-VECOP 3D-VECTORS:V- 3D-VECTORS:NV- -)
; --> PROGN 3D-VECTORS::DEFINE-OFUN PROGN DEFUN PROGN SB-IMPL::%DEFUN 
; --> SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA 3D-VECTORS:V-
;         (3D-VECTORS::VAL &REST 3D-VECTORS::VALS)
;       (DECLARE (SB-C::TOP-LEVEL-FORM))
;       (DECLARE (OPTIMIZE (COMPILATION-SPEED 0) (DEBUG 1) (SAFETY 1) SPEED))
;       (BLOCK 3D-VECTORS:V-
;         (COND ((CDR 3D-VECTORS::VALS) (APPLY #'3D-VECTORS:NV- # #))
;               (3D-VECTORS::VALS (3D-VECTORS::2VEC-V- 3D-VECTORS::VAL #))
;               (T (3D-VECTORS:VAPPLY 3D-VECTORS::VAL -)))))
; 
; note: Type assertion too complex to check:
; (VALUES (OR 3D-VECTORS:VEC2 3D-VECTORS:VEC3 3D-VECTORS:VEC4) &REST T).
; It allows an unknown number of values, consider using
; (VALUES (OR 3D-VECTORS:VEC2 3D-VECTORS:VEC3 3D-VECTORS:VEC4) &OPTIONAL).

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/3d-vectors/301414d25a39d91907f98e3f91b0104bc0f64789/3d-vectors-20210923-git/ops.lisp
; in: DEFINE-VECOP V*
;     (3D-VECTORS::DEFINE-VECOP 3D-VECTORS:V* 3D-VECTORS:NV* *)
; --> PROGN 3D-VECTORS::DEFINE-OFUN PROGN DEFUN PROGN SB-IMPL::%DEFUN 
; --> SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA 3D-VECTORS:V*
;         (3D-VECTORS::VAL &REST 3D-VECTORS::VALS)
;       (DECLARE (SB-C::TOP-LEVEL-FORM))
;       (DECLARE (OPTIMIZE (COMPILATION-SPEED 0) (DEBUG 1) (SAFETY 1) SPEED))
;       (BLOCK 3D-VECTORS:V*
;         (COND ((CDR 3D-VECTORS::VALS) (APPLY #'3D-VECTORS:NV* # #))
;               (3D-VECTORS::VALS (3D-VECTORS::2VEC-V* 3D-VECTORS::VAL #))
;               (T (3D-VECTORS:VAPPLY 3D-VECTORS::VAL *)))))
; 
; note: Type assertion too complex to check:
; (VALUES (OR 3D-VECTORS:VEC2 3D-VECTORS:VEC3 3D-VECTORS:VEC4) &REST T).
; It allows an unknown number of values, consider using
; (VALUES (OR 3D-VECTORS:VEC2 3D-VECTORS:VEC3 3D-VECTORS:VEC4) &OPTIONAL).

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/3d-vectors/301414d25a39d91907f98e3f91b0104bc0f64789/3d-vectors-20210923-git/ops.lisp
; in: DEFINE-VECOP V/
;     (3D-VECTORS::DEFINE-VECOP 3D-VECTORS:V/ 3D-VECTORS:NV/ /)
; --> PROGN 3D-VECTORS::DEFINE-OFUN PROGN DEFUN PROGN SB-IMPL::%DEFUN 
; --> SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA 3D-VECTORS:V/
;         (3D-VECTORS::VAL &REST 3D-VECTORS::VALS)
;       (DECLARE (SB-C::TOP-LEVEL-FORM))
;       (DECLARE (OPTIMIZE (COMPILATION-SPEED 0) (DEBUG 1) (SAFETY 1) SPEED))
;       (BLOCK 3D-VECTORS:V/
;         (COND ((CDR 3D-VECTORS::VALS) (APPLY #'3D-VECTORS:NV/ # #))
;               (3D-VECTORS::VALS (3D-VECTORS::2VEC-V/ 3D-VECTORS::VAL #))
;               (T (3D-VECTORS:VAPPLY 3D-VECTORS::VAL /)))))
; 
; note: Type assertion too complex to check:
; (VALUES (OR 3D-VECTORS:VEC2 3D-VECTORS:VEC3 3D-VECTORS:VEC4) &REST T).
; It allows an unknown number of values, consider using
; (VALUES (OR 3D-VECTORS:VEC2 3D-VECTORS:VEC3 3D-VECTORS:VEC4) &OPTIONAL).

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/3d-vectors/301414d25a39d91907f98e3f91b0104bc0f64789/3d-vectors-20210923-git/ops.lisp
; in: DEFINE-OFUN VLIMIT
;     (- 3D-VECTORS::LIMIT)
; 
; note: unable to Eliminate %negate/%negate of rationals due to type uncertainty: The first argument is a REAL, not a RATIONAL.
; 
; note: forced to do GENERIC-NEGATE (cost 10)
;       unable to do inline float arithmetic (cost 1) because:
;       The first argument is a (OR REAL VEC2 VEC3 VEC4), not a DOUBLE-FLOAT.
;       The result is a (VALUES REAL &OPTIONAL), not a (VALUES DOUBLE-FLOAT &REST T).
;       unable to do inline float arithmetic (cost 1) because:
;       The first argument is a (OR REAL VEC2 VEC3 VEC4), not a SINGLE-FLOAT.
;       The result is a (VALUES REAL &OPTIONAL), not a (VALUES SINGLE-FLOAT &REST T).
;       etc.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/3d-vectors/301414d25a39d91907f98e3f91b0104bc0f64789/3d-vectors-20210923-git/ops.lisp
; in: DEFINE-OFUN NVLIMIT
;     (3D-VECTORS::DEFINE-OFUN 3D-VECTORS:NVLIMIT
;         (3D-VECTORS:VEC 3D-VECTORS::LIMIT)
;       (3D-VECTORS:NVCLAMP (- 3D-VECTORS::LIMIT) 3D-VECTORS:VEC 3D-VECTORS::LIMIT))
; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA 3D-VECTORS:NVLIMIT
;         (3D-VECTORS:VEC 3D-VECTORS::LIMIT)
;       (DECLARE (SB-C::TOP-LEVEL-FORM))
;       (DECLARE (OPTIMIZE (COMPILATION-SPEED 0) (DEBUG 1) (SAFETY 1) SPEED))
;       (BLOCK 3D-VECTORS:NVLIMIT
;         (3D-VECTORS:NVCLAMP (- 3D-VECTORS::LIMIT) 3D-VECTORS:VEC
;          3D-VECTORS::LIMIT)))
; 
; note: Type assertion too complex to check:
; (VALUES (OR 3D-VECTORS:VEC2 3D-VECTORS:VEC3 3D-VECTORS:VEC4) &REST T).
; It allows an unknown number of values, consider using
; (VALUES (OR 3D-VECTORS:VEC2 3D-VECTORS:VEC3 3D-VECTORS:VEC4) &OPTIONAL).

;     (- 3D-VECTORS::LIMIT)
; 
; note: unable to Eliminate %negate/%negate of rationals due to type uncertainty: The first argument is a REAL, not a RATIONAL.
; 
; note: forced to do GENERIC-NEGATE (cost 10)
;       unable to do inline float arithmetic (cost 1) because:
;       The first argument is a (OR REAL VEC2 VEC3 VEC4), not a DOUBLE-FLOAT.
;       The result is a (VALUES REAL &OPTIONAL), not a (VALUES DOUBLE-FLOAT &REST T).
;       unable to do inline float arithmetic (cost 1) because:
;       The first argument is a (OR REAL VEC2 VEC3 VEC4), not a SINGLE-FLOAT.
;       The result is a (VALUES REAL &OPTIONAL), not a (VALUES SINGLE-FLOAT &REST T).
;       etc.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/for/748b10d519194cb6d4fab7bad3eb14813a93e8f0/for-20210923-git/iterator.lisp
; in: DEFMETHOD HAS-MORE (SEQUENCE-ITERATOR)
;     (DESTRUCTURING-BIND
;         (FOR-ITERATOR::STATE FOR-ITERATOR:LIMIT FOR-ITERATOR::FROM-END STEP
;          ENDP . FOR-ITERATOR::_)
;         (FOR-ITERATOR:ITERATOR FOR-ITERATOR:ITERATOR)
;       (DECLARE (IGNORE FOR-ITERATOR::_))
;       (NOT
;        (FUNCALL ENDP (FOR-ITERATOR:OBJECT FOR-ITERATOR:ITERATOR)
;                 FOR-ITERATOR::STATE FOR-ITERATOR:LIMIT FOR-ITERATOR::FROM-END)))
; --> SB-INT:BINDING* 
; ==>
;   (LET* ((#:G8
;           (SB-C::CHECK-DS-LIST/&REST
;            (FOR-ITERATOR:ITERATOR FOR-ITERATOR:ITERATOR) 5 5
;            '(FOR-ITERATOR::STATE FOR-ITERATOR:LIMIT FOR-ITERATOR::FROM-END STEP
;              ENDP . FOR-ITERATOR::_)))
;          (FOR-ITERATOR::STATE (POP #:G8))
;          (FOR-ITERATOR:LIMIT (POP #:G8))
;          (FOR-ITERATOR::FROM-END (POP #:G8))
;          (STEP (POP #:G8))
;          (ENDP (POP #:G8))
;          (FOR-ITERATOR::_ #:G8))
;     (DECLARE (IGNORE FOR-ITERATOR::_))
;     (NOT
;      (FUNCALL ENDP (FOR-ITERATOR:OBJECT FOR-ITERATOR:ITERATOR)
;               FOR-ITERATOR::STATE FOR-ITERATOR:LIMIT FOR-ITERATOR::FROM-END)))
; 
; caught STYLE-WARNING:
;   The variable STEP is defined but never used.
WARNING: Lisp compilation had style-warnings while compiling #<CL-SOURCE-FILE "for" "iterator">

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/for/748b10d519194cb6d4fab7bad3eb14813a93e8f0/for-20210923-git/standard.lisp
; in: DEFINE-VALUE-BINDING ACROSS
;     (FOR:DEFINE-VALUE-BINDING FOR-MINIMAL:ACROSS
;         (FOR::VAR VECTOR &AUX (FOR::I 0) (LENGTH (LENGTH VECTOR)))
;       (DECLARE (TYPE VECTOR VECTOR)
;                (TYPE (INTEGER 0) FOR::I LENGTH))
;       `(COND ((= ,LENGTH ,FOR::I) (FOR-MINIMAL:END-FOR))
;              (T (FOR-MINIMAL:UPDATE ,FOR::VAR (AREF ,VECTOR ,FOR::I))
;               (INCF ,FOR::I))))
; 
; caught ERROR:
;   (during macroexpansion of (DEFINE-VALUE-BINDING ACROSS ...))
;   0 is not a string designator.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/for/748b10d519194cb6d4fab7bad3eb14813a93e8f0/for-20210923-git/standard.lisp
; in: DEFINE-SIMPLE-CLAUSE ALWAYS
;     (FOR::DEFINE-SIMPLE-CLAUSE FOR-MINIMAL:ALWAYS
;         (FOR::FORM &AUX (FOR::RESULT T))
;       (VALUES `(UNLESS ,FOR::FORM (SETF ,FOR::RESULT NIL) (FOR-MINIMAL:END-FOR))
;               FOR::RESULT))
; --> FOR::DEFINE-DIRECT-CLAUSE PROGN SETF LET* LET* LAMBDA FUNCTION LET LET 
; --> FOR::VALUES* VALUES-LIST 
; ==>
;   (LIST*
;    `(LET* ,(LIST (LIST #:T1 NIL))
;       (DECLARE (IGNORABLE ,#:T1)))
;    (MULTIPLE-VALUE-LIST
;     (LET ((T #:T1))
;       (DECLARE (IGNORABLE T))
;       (VALUES `(UNLESS ,FOR::FORM # #) FOR::RESULT))))
; 
; caught ERROR:
;   COMMON-LISP:T names a defined constant, and cannot be used in LET.

; --> FOR::DEFINE-DIRECT-CLAUSE PROGN SETF LET* LET* LAMBDA 
; ==>
;   #'(LAMBDA (FOR::FORM)
;       (LET ((#:ENVIRONMENT2 FOR::*ENVIRONMENT*))
;         (DECLARE (IGNORABLE #:ENVIRONMENT2))
;         (LET ((#:T1 #))
;           (FOR::VALUES*
;            `(LET* ,#
;               #)
;            (LET #
;              #
;              #)))))
; 
; caught STYLE-WARNING:
;   The variable FORM is defined but never used.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/for/748b10d519194cb6d4fab7bad3eb14813a93e8f0/for-20210923-git/standard.lisp
; in: DEFINE-SIMPLE-CLAUSE NEVER
;     (FOR::DEFINE-SIMPLE-CLAUSE FOR-MINIMAL:NEVER
;         (FOR::FORM &AUX (FOR::RESULT T))
;       (VALUES `(WHEN ,FOR::FORM (SETF ,FOR::RESULT NIL) (FOR-MINIMAL:END-FOR))
;               FOR::RESULT))
; --> FOR::DEFINE-DIRECT-CLAUSE PROGN SETF LET* LET* LAMBDA FUNCTION LET LET 
; --> FOR::VALUES* VALUES-LIST 
; ==>
;   (LIST*
;    `(LET* ,(LIST (LIST #:T1 NIL))
;       (DECLARE (IGNORABLE ,#:T1)))
;    (MULTIPLE-VALUE-LIST
;     (LET ((T #:T1))
;       (DECLARE (IGNORABLE T))
;       (VALUES `(WHEN ,FOR::FORM # #) FOR::RESULT))))
; 
; caught ERROR:
;   COMMON-LISP:T names a defined constant, and cannot be used in LET.

; --> FOR::DEFINE-DIRECT-CLAUSE PROGN SETF LET* LET* LAMBDA 
; ==>
;   #'(LAMBDA (FOR::FORM)
;       (LET ((#:ENVIRONMENT2 FOR::*ENVIRONMENT*))
;         (DECLARE (IGNORABLE #:ENVIRONMENT2))
;         (LET ((#:T1 #))
;           (FOR::VALUES*
;            `(LET* ,#
;               #)
;            (LET #
;              #
;              #)))))
; 
; caught STYLE-WARNING:
;   The variable FORM is defined but never used.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/for/748b10d519194cb6d4fab7bad3eb14813a93e8f0/for-20210923-git/standard.lisp
; in: DEFINE-SIMPLE-CLAUSE THEREIS
;     (FOR::DEFINE-SIMPLE-CLAUSE FOR-MINIMAL:THEREIS
;         (FOR::FORM &AUX (FOR::RESULT NIL))
;       (LET ((FOR::RES (GENSYM "RES")))
;         (VALUES
;          `(LET (#)
;             (WHEN ,FOR::RES # #))
;          FOR::RESULT)))
; --> FOR::DEFINE-DIRECT-CLAUSE PROGN SETF LET* LET* LAMBDA FUNCTION LET LET 
; --> FOR::VALUES* VALUES-LIST 
; ==>
;   (LIST*
;    `(LET* ,(LIST (LIST #:NIL1 NIL))
;       (DECLARE (IGNORABLE ,#:NIL1)))
;    (MULTIPLE-VALUE-LIST
;     (LET ((NIL #:NIL1))
;       (DECLARE (IGNORABLE NIL))
;       (LET (#)
;         (VALUES `# FOR::RESULT)))))
; 
; caught ERROR:
;   NIL cannot be used as a local variable.

; --> FOR::DEFINE-DIRECT-CLAUSE PROGN SETF LET* LET* LAMBDA 
; ==>
;   #'(LAMBDA (FOR::FORM)
;       (LET ((#:ENVIRONMENT2 FOR::*ENVIRONMENT*))
;         (DECLARE (IGNORABLE #:ENVIRONMENT2))
;         (LET ((#:NIL1 #))
;           (FOR::VALUES*
;            `(LET* ,#
;               #)
;            (LET #
;              #
;              #)))))
; 
; caught STYLE-WARNING:
;   The variable FORM is defined but never used.
Unhandled UIOP/LISP-BUILD:COMPILE-FILE-ERROR in thread #<SB-THREAD:THREAD "main thread" RUNNING {1040830693}>: COMPILE-FILE-ERROR while compiling #<CL-SOURCE-FILE "for" "standard">

Backtrace for: #<SB-THREAD:THREAD "main thread" RUNNING {1040830693}>
0: (SB-DEBUG::DEBUGGER-DISABLED-HOOK #<UIOP/LISP-BUILD:COMPILE-FILE-ERROR {1021087793}> #<unused argument> :QUIT T)
1: (SB-DEBUG::RUN-HOOK *INVOKE-DEBUGGER-HOOK* #<UIOP/LISP-BUILD:COMPILE-FILE-ERROR {1021087793}>)
2: (INVOKE-DEBUGGER #<UIOP/LISP-BUILD:COMPILE-FILE-ERROR {1021087793}>)
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 "for" "standard">)))
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 "for" "standard">)))
5: ((SB-PCL::EMF ASDF/ACTION:PERFORM) #<unused argument> #<unused argument> #<ASDF/LISP-ACTION:COMPILE-OP > #<ASDF/LISP-ACTION:CL-SOURCE-FILE "for" "standard">)
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 "for" "standard">) [fast-method]
8: ((:METHOD ASDF/PLAN:PERFORM-PLAN (T)) #<ASDF/PLAN:SEQUENTIAL-PLAN {1005783583}>) [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 {1005783583}>) [fast-method]
11: ((:METHOD ASDF/OPERATE:OPERATE (ASDF/OPERATION:OPERATION ASDF/COMPONENT:COMPONENT)) #<ASDF/LISP-ACTION:LOAD-OP > #<ASDF/SYSTEM:SYSTEM "flare"> :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 "flare">)
13: ((LAMBDA NIL :IN ASDF/OPERATE:OPERATE))
14: ((:METHOD ASDF/OPERATE:OPERATE :AROUND (T T)) #<ASDF/LISP-ACTION:LOAD-OP > #<ASDF/SYSTEM:SYSTEM "flare">) [fast-method]
15: ((SB-PCL::EMF ASDF/OPERATE:OPERATE) #<unused argument> #<unused argument> ASDF/LISP-ACTION:LOAD-OP "flare")
16: ((LAMBDA NIL :IN ASDF/OPERATE:OPERATE))
17: ((:METHOD ASDF/OPERATE:OPERATE :AROUND (T T)) ASDF/LISP-ACTION:LOAD-OP "flare") [fast-method]
18: (ASDF/SESSION:CALL-WITH-ASDF-SESSION #<FUNCTION (LAMBDA NIL :IN ASDF/OPERATE:OPERATE) {100577CF8B}> :OVERRIDE T :KEY NIL :OVERRIDE-CACHE T :OVERRIDE-FORCING NIL)
19: ((LAMBDA NIL :IN ASDF/OPERATE:OPERATE))
20: (ASDF/SESSION:CALL-WITH-ASDF-SESSION #<FUNCTION (LAMBDA NIL :IN ASDF/OPERATE:OPERATE) {100573F65B}> :OVERRIDE NIL :KEY NIL :OVERRIDE-CACHE NIL :OVERRIDE-FORCING NIL)
21: ((:METHOD ASDF/OPERATE:OPERATE :AROUND (T T)) ASDF/LISP-ACTION:LOAD-OP "flare") [fast-method]
22: (DEPCHECK::COMPUTE-DEPENDENCIES "flare" "flare")
23: (DEPCHECK::MAGIC "flare" "flare" "/home/quicklisp/quicklisp-controller/tmp/anonymous/anonymous-4sWsmfUl/depcheck-win.txt")
24: (DEPCHECK::MAIN ("depcheck" "/home/quicklisp/quicklisp-controller/dist/system-file-index" "flare" "flare" "/home/quicklisp/quicklisp-controller/tmp/anonymous/anonymous-4sWsmfUl/depcheck-win.txt" "/home/quicklisp/quicklisp-controller/tmp/anonymous/anonymous-4sWsmfUl/depcheck-fail.txt"))
25: ((LAMBDA NIL :IN "/home/quicklisp/quicklisp/local-projects/quicklisp-controller/dumper-2SKVI5f7.lisp"))
26: ((FLET SB-UNIX::BODY :IN SB-IMPL::START-LISP))
27: ((FLET "WITHOUT-INTERRUPTS-BODY-1" :IN SB-IMPL::START-LISP))
28: (SB-IMPL::START-LISP)

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

flare-viewer

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/qt-libs/a9369ba3a63377d6a612b71ab1ee313fdb8ac69c/qt-libs-20210923-git/linux.lisp
; in: DEFUN QT-LIB-GENERATOR:LDLIB-SET-DEPENDENCY-NAME
;     (QT-LIB-GENERATOR::SO-SET-OPTIONS PATHNAME :DEPENDENCIES
;      QT-LIB-GENERATOR::PAIRS)
; 
; caught STYLE-WARNING:
;   undefined function: QT-LIB-GENERATOR::SO-SET-OPTIONS
; 
; compilation unit finished
;   Undefined function:
;     QT-LIB-GENERATOR::SO-SET-OPTIONS
;   caught 1 STYLE-WARNING condition

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/for/748b10d519194cb6d4fab7bad3eb14813a93e8f0/for-20210923-git/standard.lisp
; in: DEFINE-VALUE-BINDING ACROSS
;     (FOR:DEFINE-VALUE-BINDING FOR-MINIMAL:ACROSS
;         (FOR::VAR VECTOR &AUX (FOR::I 0) (LENGTH (LENGTH VECTOR)))
;       (DECLARE (TYPE VECTOR VECTOR)
;                (TYPE (INTEGER 0) FOR::I LENGTH))
;       `(COND ((= ,LENGTH ,FOR::I) (FOR-MINIMAL:END-FOR))
;              (T (FOR-MINIMAL:UPDATE ,FOR::VAR (AREF ,VECTOR ,FOR::I))
;               (INCF ,FOR::I))))
; 
; caught ERROR:
;   (during macroexpansion of (DEFINE-VALUE-BINDING ACROSS ...))
;   0 is not a string designator.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/for/748b10d519194cb6d4fab7bad3eb14813a93e8f0/for-20210923-git/standard.lisp
; in: DEFINE-SIMPLE-CLAUSE ALWAYS
;     (FOR::DEFINE-SIMPLE-CLAUSE FOR-MINIMAL:ALWAYS
;         (FOR::FORM &AUX (FOR::RESULT T))
;       (VALUES `(UNLESS ,FOR::FORM (SETF ,FOR::RESULT NIL) (FOR-MINIMAL:END-FOR))
;               FOR::RESULT))
; --> FOR::DEFINE-DIRECT-CLAUSE PROGN SETF LET* LET* LAMBDA FUNCTION LET LET 
; --> FOR::VALUES* VALUES-LIST 
; ==>
;   (LIST*
;    `(LET* ,(LIST (LIST #:T1 NIL))
;       (DECLARE (IGNORABLE ,#:T1)))
;    (MULTIPLE-VALUE-LIST
;     (LET ((T #:T1))
;       (DECLARE (IGNORABLE T))
;       (VALUES `(UNLESS ,FOR::FORM # #) FOR::RESULT))))
; 
; caught ERROR:
;   COMMON-LISP:T names a defined constant, and cannot be used in LET.

; --> FOR::DEFINE-DIRECT-CLAUSE PROGN SETF LET* LET* LAMBDA 
; ==>
;   #'(LAMBDA (FOR::FORM)
;       (LET ((#:ENVIRONMENT2 FOR::*ENVIRONMENT*))
;         (DECLARE (IGNORABLE #:ENVIRONMENT2))
;         (LET ((#:T1 #))
;           (FOR::VALUES*
;            `(LET* ,#
;               #)
;            (LET #
;              #
;              #)))))
; 
; caught STYLE-WARNING:
;   The variable FORM is defined but never used.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/for/748b10d519194cb6d4fab7bad3eb14813a93e8f0/for-20210923-git/standard.lisp
; in: DEFINE-SIMPLE-CLAUSE NEVER
;     (FOR::DEFINE-SIMPLE-CLAUSE FOR-MINIMAL:NEVER
;         (FOR::FORM &AUX (FOR::RESULT T))
;       (VALUES `(WHEN ,FOR::FORM (SETF ,FOR::RESULT NIL) (FOR-MINIMAL:END-FOR))
;               FOR::RESULT))
; --> FOR::DEFINE-DIRECT-CLAUSE PROGN SETF LET* LET* LAMBDA FUNCTION LET LET 
; --> FOR::VALUES* VALUES-LIST 
; ==>
;   (LIST*
;    `(LET* ,(LIST (LIST #:T1 NIL))
;       (DECLARE (IGNORABLE ,#:T1)))
;    (MULTIPLE-VALUE-LIST
;     (LET ((T #:T1))
;       (DECLARE (IGNORABLE T))
;       (VALUES `(WHEN ,FOR::FORM # #) FOR::RESULT))))
; 
; caught ERROR:
;   COMMON-LISP:T names a defined constant, and cannot be used in LET.

; --> FOR::DEFINE-DIRECT-CLAUSE PROGN SETF LET* LET* LAMBDA 
; ==>
;   #'(LAMBDA (FOR::FORM)
;       (LET ((#:ENVIRONMENT2 FOR::*ENVIRONMENT*))
;         (DECLARE (IGNORABLE #:ENVIRONMENT2))
;         (LET ((#:T1 #))
;           (FOR::VALUES*
;            `(LET* ,#
;               #)
;            (LET #
;              #
;              #)))))
; 
; caught STYLE-WARNING:
;   The variable FORM is defined but never used.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/for/748b10d519194cb6d4fab7bad3eb14813a93e8f0/for-20210923-git/standard.lisp
; in: DEFINE-SIMPLE-CLAUSE THEREIS
;     (FOR::DEFINE-SIMPLE-CLAUSE FOR-MINIMAL:THEREIS
;         (FOR::FORM &AUX (FOR::RESULT NIL))
;       (LET ((FOR::RES (GENSYM "RES")))
;         (VALUES
;          `(LET (#)
;             (WHEN ,FOR::RES # #))
;          FOR::RESULT)))
; --> FOR::DEFINE-DIRECT-CLAUSE PROGN SETF LET* LET* LAMBDA FUNCTION LET LET 
; --> FOR::VALUES* VALUES-LIST 
; ==>
;   (LIST*
;    `(LET* ,(LIST (LIST #:NIL1 NIL))
;       (DECLARE (IGNORABLE ,#:NIL1)))
;    (MULTIPLE-VALUE-LIST
;     (LET ((NIL #:NIL1))
;       (DECLARE (IGNORABLE NIL))
;       (LET (#)
;         (VALUES `# FOR::RESULT)))))
; 
; caught ERROR:
;   NIL cannot be used as a local variable.

; --> FOR::DEFINE-DIRECT-CLAUSE PROGN SETF LET* LET* LAMBDA 
; ==>
;   #'(LAMBDA (FOR::FORM)
;       (LET ((#:ENVIRONMENT2 FOR::*ENVIRONMENT*))
;         (DECLARE (IGNORABLE #:ENVIRONMENT2))
;         (LET ((#:NIL1 #))
;           (FOR::VALUES*
;            `(LET* ,#
;               #)
;            (LET #
;              #
;              #)))))
; 
; caught STYLE-WARNING:
;   The variable FORM is defined but never used.
Unhandled UIOP/LISP-BUILD:COMPILE-FILE-ERROR in thread #<SB-THREAD:THREAD "main thread" RUNNING {1001BF0103}>: COMPILE-FILE-ERROR while compiling #<CL-SOURCE-FILE "for" "standard">

Backtrace for: #<SB-THREAD:THREAD "main thread" RUNNING {1001BF0103}>
0: (SB-DEBUG::DEBUGGER-DISABLED-HOOK #<UIOP/LISP-BUILD:COMPILE-FILE-ERROR {1013249803}> #<unused argument> :QUIT T)
1: (SB-DEBUG::RUN-HOOK *INVOKE-DEBUGGER-HOOK* #<UIOP/LISP-BUILD:COMPILE-FILE-ERROR {1013249803}>)
2: (INVOKE-DEBUGGER #<UIOP/LISP-BUILD:COMPILE-FILE-ERROR {1013249803}>)
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 "for" "standard">)))
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 "for" "standard">)))
5: ((SB-PCL::EMF ASDF/ACTION:PERFORM) #<unused argument> #<unused argument> #<ASDF/LISP-ACTION:COMPILE-OP > #<ASDF/LISP-ACTION:CL-SOURCE-FILE "for" "standard">)
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 "for" "standard">) [fast-method]
8: ((:METHOD ASDF/PLAN:PERFORM-PLAN (T)) #<ASDF/PLAN:SEQUENTIAL-PLAN {100577D003}>) [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 {100577D003}>) [fast-method]
11: ((:METHOD ASDF/OPERATE:OPERATE (ASDF/OPERATION:OPERATION ASDF/COMPONENT:COMPONENT)) #<ASDF/LISP-ACTION:LOAD-OP > #<ASDF/SYSTEM:SYSTEM "flare-viewer"> :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 "flare-viewer">)
13: ((LAMBDA NIL :IN ASDF/OPERATE:OPERATE))
14: ((:METHOD ASDF/OPERATE:OPERATE :AROUND (T T)) #<ASDF/LISP-ACTION:LOAD-OP > #<ASDF/SYSTEM:SYSTEM "flare-viewer">) [fast-method]
15: ((SB-PCL::EMF ASDF/OPERATE:OPERATE) #<unused argument> #<unused argument> ASDF/LISP-ACTION:LOAD-OP "flare-viewer")
16: ((LAMBDA NIL :IN ASDF/OPERATE:OPERATE))
17: ((:METHOD ASDF/OPERATE:OPERATE :AROUND (T T)) ASDF/LISP-ACTION:LOAD-OP "flare-viewer") [fast-method]
18: (ASDF/SESSION:CALL-WITH-ASDF-SESSION #<FUNCTION (LAMBDA NIL :IN ASDF/OPERATE:OPERATE) {100577678B}> :OVERRIDE T :KEY NIL :OVERRIDE-CACHE T :OVERRIDE-FORCING NIL)
19: ((LAMBDA NIL :IN ASDF/OPERATE:OPERATE))
20: (ASDF/SESSION:CALL-WITH-ASDF-SESSION #<FUNCTION (LAMBDA NIL :IN ASDF/OPERATE:OPERATE) {1005738DAB}> :OVERRIDE NIL :KEY NIL :OVERRIDE-CACHE NIL :OVERRIDE-FORCING NIL)
21: ((:METHOD ASDF/OPERATE:OPERATE :AROUND (T T)) ASDF/LISP-ACTION:LOAD-OP "flare-viewer") [fast-method]
22: (DEPCHECK::COMPUTE-DEPENDENCIES "flare-viewer" "flare-viewer")
23: (DEPCHECK::MAGIC "flare-viewer" "flare-viewer" "/home/quicklisp/quicklisp-controller/tmp/anonymous/anonymous-m0DP7Yhk/depcheck-win.txt")
24: (DEPCHECK::MAIN ("depcheck" "/home/quicklisp/quicklisp-controller/dist/system-file-index" "flare-viewer" "flare-viewer" "/home/quicklisp/quicklisp-controller/tmp/anonymous/anonymous-m0DP7Yhk/depcheck-win.txt" "/home/quicklisp/quicklisp-controller/tmp/anonymous/anonymous-m0DP7Yhk/depcheck-fail.txt"))
25: ((LAMBDA NIL :IN "/home/quicklisp/quicklisp/local-projects/quicklisp-controller/dumper-2SKVI5f7.lisp"))
26: ((FLET SB-UNIX::BODY :IN SB-IMPL::START-LISP))
27: ((FLET "WITHOUT-INTERRUPTS-BODY-1" :IN SB-IMPL::START-LISP))
28: (SB-IMPL::START-LISP)

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