squirl

SBCL 1.4.3 / ASDF 3.3.1

squirl.demo-2

WARNING: PARSE-VERSION: "0.1 (unreleased)" doesn't follow asdf version numbering convention
WARNING: Invalid :version specifier "0.1 (unreleased)" for component "squirl" from file #P"/home/quicklisp/quicklisp-controller/dist/build-cache/squirl/07e00f0d5dc50fa9217bec0ac43b3e308417ea23/squirl-20180116-git/squirl.asd", using NIL instead
WARNING: Invalid :version specifier "0.1 (unreleased)" for component "squirl" from file #P"/home/quicklisp/quicklisp-controller/dist/build-cache/squirl/07e00f0d5dc50fa9217bec0ac43b3e308417ea23/squirl-20180116-git/squirl.asd", using NIL instead
WARNING: System definition file #P"/home/quicklisp/quicklisp-controller/dist/build-cache/squirl/07e00f0d5dc50fa9217bec0ac43b3e308417ea23/squirl-20180116-git/squirl.asd" contains definition for system "squirl.demo". Please only define "squirl" and secondary systems with a name starting with "squirl/" (e.g. "squirl/test") in that file.
WARNING: PARSE-VERSION: "0.1 (unreleased)" doesn't follow asdf version numbering convention
WARNING: Invalid :version specifier "0.1 (unreleased)" for component "squirl.demo" from file #P"/home/quicklisp/quicklisp-controller/dist/build-cache/squirl/07e00f0d5dc50fa9217bec0ac43b3e308417ea23/squirl-20180116-git/squirl.asd", using NIL instead
WARNING: Invalid :version specifier "0.1 (unreleased)" for component "squirl.demo" from file #P"/home/quicklisp/quicklisp-controller/dist/build-cache/squirl/07e00f0d5dc50fa9217bec0ac43b3e308417ea23/squirl-20180116-git/squirl.asd", using NIL instead
WARNING: System definition file #P"/home/quicklisp/quicklisp-controller/dist/build-cache/squirl/07e00f0d5dc50fa9217bec0ac43b3e308417ea23/squirl-20180116-git/squirl.asd" contains definition for system "squirl.demo-2". Please only define "squirl" and secondary systems with a name starting with "squirl/" (e.g. "squirl/test") in that file.
WARNING: PARSE-VERSION: "0.1 (unreleased)" doesn't follow asdf version numbering convention
WARNING: Invalid :version specifier "0.1 (unreleased)" for component "squirl.demo-2" from file #P"/home/quicklisp/quicklisp-controller/dist/build-cache/squirl/07e00f0d5dc50fa9217bec0ac43b3e308417ea23/squirl-20180116-git/squirl.asd", using NIL instead
WARNING: Invalid :version specifier "0.1 (unreleased)" for component "squirl.demo-2" from file #P"/home/quicklisp/quicklisp-controller/dist/build-cache/squirl/07e00f0d5dc50fa9217bec0ac43b3e308417ea23/squirl-20180116-git/squirl.asd", using NIL instead
WARNING: PARSE-VERSION: "0.1 (unreleased)" doesn't follow asdf version numbering convention
WARNING: Invalid :version specifier "0.1 (unreleased)" for component "squirl" from file #P"/home/quicklisp/quicklisp-controller/dist/build-cache/squirl/07e00f0d5dc50fa9217bec0ac43b3e308417ea23/squirl-20180116-git/squirl.asd", using NIL instead
WARNING: Invalid :version specifier "0.1 (unreleased)" for component "squirl" from file #P"/home/quicklisp/quicklisp-controller/dist/build-cache/squirl/07e00f0d5dc50fa9217bec0ac43b3e308417ea23/squirl-20180116-git/squirl.asd", using NIL instead
WARNING: System definition file #P"/home/quicklisp/quicklisp-controller/dist/build-cache/squirl/07e00f0d5dc50fa9217bec0ac43b3e308417ea23/squirl-20180116-git/squirl.asd" contains definition for system "squirl.demo". Please only define "squirl" and secondary systems with a name starting with "squirl/" (e.g. "squirl/test") in that file.
WARNING: PARSE-VERSION: "0.1 (unreleased)" doesn't follow asdf version numbering convention
WARNING: Invalid :version specifier "0.1 (unreleased)" for component "squirl.demo" from file #P"/home/quicklisp/quicklisp-controller/dist/build-cache/squirl/07e00f0d5dc50fa9217bec0ac43b3e308417ea23/squirl-20180116-git/squirl.asd", using NIL instead
WARNING: Invalid :version specifier "0.1 (unreleased)" for component "squirl.demo" from file #P"/home/quicklisp/quicklisp-controller/dist/build-cache/squirl/07e00f0d5dc50fa9217bec0ac43b3e308417ea23/squirl-20180116-git/squirl.asd", using NIL instead
WARNING: System definition file #P"/home/quicklisp/quicklisp-controller/dist/build-cache/squirl/07e00f0d5dc50fa9217bec0ac43b3e308417ea23/squirl-20180116-git/squirl.asd" contains definition for system "squirl.demo-2". Please only define "squirl" and secondary systems with a name starting with "squirl/" (e.g. "squirl/test") in that file.
WARNING: PARSE-VERSION: "0.1 (unreleased)" doesn't follow asdf version numbering convention
WARNING: Invalid :version specifier "0.1 (unreleased)" for component "squirl.demo-2" from file #P"/home/quicklisp/quicklisp-controller/dist/build-cache/squirl/07e00f0d5dc50fa9217bec0ac43b3e308417ea23/squirl-20180116-git/squirl.asd", using NIL instead
WARNING: Invalid :version specifier "0.1 (unreleased)" for component "squirl.demo-2" from file #P"/home/quicklisp/quicklisp-controller/dist/build-cache/squirl/07e00f0d5dc50fa9217bec0ac43b3e308417ea23/squirl-20180116-git/squirl.asd", using NIL instead
WARNING: PARSE-VERSION: "0.1 (unreleased)" doesn't follow asdf version numbering convention
WARNING: Invalid :version specifier "0.1 (unreleased)" for component "squirl" from file #P"/home/quicklisp/quicklisp-controller/dist/build-cache/squirl/07e00f0d5dc50fa9217bec0ac43b3e308417ea23/squirl-20180116-git/squirl.asd", using NIL instead
WARNING: Invalid :version specifier "0.1 (unreleased)" for component "squirl" from file #P"/home/quicklisp/quicklisp-controller/dist/build-cache/squirl/07e00f0d5dc50fa9217bec0ac43b3e308417ea23/squirl-20180116-git/squirl.asd", using NIL instead
WARNING: System definition file #P"/home/quicklisp/quicklisp-controller/dist/build-cache/squirl/07e00f0d5dc50fa9217bec0ac43b3e308417ea23/squirl-20180116-git/squirl.asd" contains definition for system "squirl.demo". Please only define "squirl" and secondary systems with a name starting with "squirl/" (e.g. "squirl/test") in that file.
WARNING: PARSE-VERSION: "0.1 (unreleased)" doesn't follow asdf version numbering convention
WARNING: Invalid :version specifier "0.1 (unreleased)" for component "squirl.demo" from file #P"/home/quicklisp/quicklisp-controller/dist/build-cache/squirl/07e00f0d5dc50fa9217bec0ac43b3e308417ea23/squirl-20180116-git/squirl.asd", using NIL instead
WARNING: Invalid :version specifier "0.1 (unreleased)" for component "squirl.demo" from file #P"/home/quicklisp/quicklisp-controller/dist/build-cache/squirl/07e00f0d5dc50fa9217bec0ac43b3e308417ea23/squirl-20180116-git/squirl.asd", using NIL instead
WARNING: System definition file #P"/home/quicklisp/quicklisp-controller/dist/build-cache/squirl/07e00f0d5dc50fa9217bec0ac43b3e308417ea23/squirl-20180116-git/squirl.asd" contains definition for system "squirl.demo-2". Please only define "squirl" and secondary systems with a name starting with "squirl/" (e.g. "squirl/test") in that file.
WARNING: PARSE-VERSION: "0.1 (unreleased)" doesn't follow asdf version numbering convention
WARNING: Invalid :version specifier "0.1 (unreleased)" for component "squirl.demo-2" from file #P"/home/quicklisp/quicklisp-controller/dist/build-cache/squirl/07e00f0d5dc50fa9217bec0ac43b3e308417ea23/squirl-20180116-git/squirl.asd", using NIL instead
WARNING: Invalid :version specifier "0.1 (unreleased)" for component "squirl.demo-2" from file #P"/home/quicklisp/quicklisp-controller/dist/build-cache/squirl/07e00f0d5dc50fa9217bec0ac43b3e308417ea23/squirl-20180116-git/squirl.asd", using NIL instead
WARNING: System definition file #P"/home/quicklisp/quicklisp-controller/dist/build-cache/trivial-garbage/8edc182c56fc03da3a83f6fb26d446c6f381abec/trivial-garbage-20180116-git/trivial-garbage.asd" contains definition for system "trivial-garbage-tests". Please only define "trivial-garbage" and secondary systems with a name starting with "trivial-garbage/" (e.g. "trivial-garbage/test") in that file.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/squirl/07e00f0d5dc50fa9217bec0ac43b3e308417ea23/squirl-20180116-git/src/vec.lisp
; in: DEFUN VEC
;     (FLOAT SQUIRL::X 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 SQUIRL::Y 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 SQUIRL::X 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 REAL, not a SINGLE-FLOAT.
;       unable to do inline float coercion (cost 5) because:
;       The first argument is a REAL, not a (SIGNED-BYTE 64).

;     (FLOAT SQUIRL::Y 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 REAL, not a SINGLE-FLOAT.
;       unable to do inline float coercion (cost 5) because:
;       The first argument is a REAL, not a (SIGNED-BYTE 64).

;     (DEFUN SQUIRL:VEC (SQUIRL::X SQUIRL::Y)
;       (COMPLEX (FLOAT SQUIRL::X 1.0d0) (FLOAT SQUIRL::Y 1.0d0)))
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA SQUIRL:VEC
;         (SQUIRL::X SQUIRL::Y)
;       (BLOCK SQUIRL:VEC
;         (COMPLEX (FLOAT SQUIRL::X 1.0d0) (FLOAT SQUIRL::Y 1.0d0))))
; 
; note: doing complex float to pointer coercion (cost 13) to "<return value>"

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/squirl/07e00f0d5dc50fa9217bec0ac43b3e308417ea23/squirl-20180116-git/src/vec.lisp
; in: DEFUN ANGLE->VEC
;     (DEFUN SQUIRL:ANGLE->VEC (SQUIRL::ANGLE)
;       "Convert an angle, in radians, to a normalized vector"
;       (CIS SQUIRL::ANGLE))
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA SQUIRL:ANGLE->VEC
;         (SQUIRL::ANGLE)
;       "Convert an angle, in radians, to a normalized vector"
;       (BLOCK SQUIRL:ANGLE->VEC (CIS SQUIRL::ANGLE)))
; 
; note: doing complex float to pointer coercion (cost 13) to "<return value>"

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/squirl/07e00f0d5dc50fa9217bec0ac43b3e308417ea23/squirl-20180116-git/src/vec.lisp
; in: DEFUN VEC->ANGLE
;     (ATAN SQUIRL::VEC.Y SQUIRL::VEC.X)
; --> SB-KERNEL:%ATAN2 BLOCK ALIEN-FUNCALL SB-ALIEN-INTERNALS:NATURALIZE 
; ==>
;   ALIEN
; 
; note: doing float to pointer coercion (cost 13) to "<return value>"

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/squirl/07e00f0d5dc50fa9217bec0ac43b3e308417ea23/squirl-20180116-git/src/vec.lisp
; in: DEFUN VEC*
;     (DEFUN SQUIRL:VEC* (SQUIRL:VEC SQUIRL::SCALAR)
;       "Multiplies VEC by SCALAR"
;       (DECLARE (SQUIRL:VEC SQUIRL:VEC))
;       (* SQUIRL:VEC SQUIRL::SCALAR))
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA SQUIRL:VEC*
;         (SQUIRL:VEC SQUIRL::SCALAR)
;       "Multiplies VEC by SCALAR"
;       (DECLARE (SQUIRL:VEC SQUIRL:VEC))
;       (BLOCK SQUIRL:VEC* (* SQUIRL:VEC SQUIRL::SCALAR)))
; 
; note: doing complex float to pointer coercion (cost 13) to "<return value>"

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/squirl/07e00f0d5dc50fa9217bec0ac43b3e308417ea23/squirl-20180116-git/src/vec.lisp
; in: DEFUN VEC.
;     (DEFUN SQUIRL:VEC. (SQUIRL::V1 SQUIRL::V2)
;       "Dot product of two vectors"
;       (DECLARE (SQUIRL:VEC SQUIRL::V1 SQUIRL::V2))
;       (SQUIRL::WITH-VECS (SQUIRL::V1 SQUIRL::V2)
;         (+ (* SQUIRL::V1.X SQUIRL::V2.X) (* SQUIRL::V1.Y SQUIRL::V2.Y))))
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA SQUIRL:VEC.
;         (SQUIRL::V1 SQUIRL::V2)
;       "Dot product of two vectors"
;       (DECLARE (SQUIRL:VEC SQUIRL::V1 SQUIRL::V2))
;       (BLOCK SQUIRL:VEC.
;         (SQUIRL::WITH-VECS (SQUIRL::V1 SQUIRL::V2)
;           (+ (* SQUIRL::V1.X SQUIRL::V2.X) (* SQUIRL::V1.Y SQUIRL::V2.Y)))))
; 
; note: doing float to pointer coercion (cost 13) to "<return value>"

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/squirl/07e00f0d5dc50fa9217bec0ac43b3e308417ea23/squirl-20180116-git/src/vec.lisp
; in: DEFUN VEC-CROSS
;     (DEFUN SQUIRL:VEC-CROSS (SQUIRL::V1 SQUIRL::V2)
;       "Cross product of two vectors"
;       (DECLARE (SQUIRL:VEC SQUIRL::V1 SQUIRL::V2))
;       (SQUIRL::WITH-VECS (SQUIRL::V1 SQUIRL::V2)
;         (- (* SQUIRL::V1.X SQUIRL::V2.Y) (* SQUIRL::V1.Y SQUIRL::V2.X))))
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA SQUIRL:VEC-CROSS
;         (SQUIRL::V1 SQUIRL::V2)
;       "Cross product of two vectors"
;       (DECLARE (SQUIRL:VEC SQUIRL::V1 SQUIRL::V2))
;       (BLOCK SQUIRL:VEC-CROSS
;         (SQUIRL::WITH-VECS (SQUIRL::V1 SQUIRL::V2)
;           (- (* SQUIRL::V1.X SQUIRL::V2.Y) (* SQUIRL::V1.Y SQUIRL::V2.X)))))
; 
; note: doing float to pointer coercion (cost 13) to "<return value>"

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/squirl/07e00f0d5dc50fa9217bec0ac43b3e308417ea23/squirl-20180116-git/src/vec.lisp
; in: DEFUN VEC-PERP
;     (DEFUN SQUIRL:VEC-PERP (SQUIRL:VEC)
;       "Returns a new vector rotated PI/2 counterclockwise from VEC"
;       (DECLARE (SQUIRL:VEC SQUIRL:VEC))
;       (SQUIRL::WITH-VEC SQUIRL:VEC
;         (SQUIRL:VEC (- SQUIRL::VEC.Y) SQUIRL::VEC.X)))
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA SQUIRL:VEC-PERP
;         (SQUIRL:VEC)
;       "Returns a new vector rotated PI/2 counterclockwise from VEC"
;       (DECLARE (SQUIRL:VEC SQUIRL:VEC))
;       (BLOCK SQUIRL:VEC-PERP
;         (SQUIRL::WITH-VEC SQUIRL:VEC
;           (SQUIRL:VEC (- SQUIRL::VEC.Y) SQUIRL::VEC.X))))
; 
; note: doing complex float to pointer coercion (cost 13) to "<return value>"

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/squirl/07e00f0d5dc50fa9217bec0ac43b3e308417ea23/squirl-20180116-git/src/vec.lisp
; in: DEFUN VEC-RPERP
;     (DEFUN SQUIRL:VEC-RPERP (SQUIRL:VEC)
;       "Returns a new vector rotated PI/2 clockwise from VEC"
;       (DECLARE (SQUIRL:VEC SQUIRL:VEC))
;       (SQUIRL::WITH-VEC SQUIRL:VEC
;         (SQUIRL:VEC SQUIRL::VEC.Y (- SQUIRL::VEC.X))))
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA SQUIRL:VEC-RPERP
;         (SQUIRL:VEC)
;       "Returns a new vector rotated PI/2 clockwise from VEC"
;       (DECLARE (SQUIRL:VEC SQUIRL:VEC))
;       (BLOCK SQUIRL:VEC-RPERP
;         (SQUIRL::WITH-VEC SQUIRL:VEC
;           (SQUIRL:VEC SQUIRL::VEC.Y (- SQUIRL::VEC.X)))))
; 
; note: doing complex float to pointer coercion (cost 13) to "<return value>"

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/squirl/07e00f0d5dc50fa9217bec0ac43b3e308417ea23/squirl-20180116-git/src/vec.lisp
; in: DEFUN VEC-ROTATE
;     (DEFUN SQUIRL:VEC-ROTATE (SQUIRL:VEC SQUIRL::ROT)
;       "Rotates VEC by (vec->angle ROT) radians. ROT should be a unit vec.
;   This function is symmetric between VEC and ROT."
;       (DECLARE (SQUIRL:VEC SQUIRL:VEC SQUIRL::ROT))
;       (SQUIRL::WITH-VECS (SQUIRL:VEC SQUIRL::ROT)
;         (SQUIRL:VEC
;          (- (* SQUIRL::VEC.X SQUIRL::ROT.X) (* SQUIRL::VEC.Y SQUIRL::ROT.Y))
;          (+ (* SQUIRL::VEC.X SQUIRL::ROT.Y) (* SQUIRL::VEC.Y SQUIRL::ROT.X)))))
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA SQUIRL:VEC-ROTATE
;         (SQUIRL:VEC SQUIRL::ROT)
;       "Rotates VEC by (vec->angle ROT) radians. ROT should be a unit vec.
; This function is symmetric between VEC and ROT."
;       (DECLARE (SQUIRL:VEC SQUIRL:VEC SQUIRL::ROT))
;       (BLOCK SQUIRL:VEC-ROTATE
;         (SQUIRL::WITH-VECS (SQUIRL:VEC SQUIRL::ROT)
;           (SQUIRL:VEC (- # #) (+ # #)))))
; 
; note: doing complex float to pointer coercion (cost 13) to "<return value>"

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/squirl/07e00f0d5dc50fa9217bec0ac43b3e308417ea23/squirl-20180116-git/src/vec.lisp
; in: DEFUN VEC-UNROTATE
;     (DEFUN SQUIRL:VEC-UNROTATE (SQUIRL:VEC SQUIRL::ROT)
;       "Rotates VEC by (- (vec->angle ROT)) radians. ROT should be a unit vec.
;   This function is symmetric between VEC and ROT."
;       (DECLARE (SQUIRL:VEC SQUIRL:VEC SQUIRL::ROT))
;       (SQUIRL::WITH-VECS (SQUIRL:VEC SQUIRL::ROT)
;         (SQUIRL:VEC
;          (+ (* SQUIRL::VEC.X SQUIRL::ROT.X) (* SQUIRL::VEC.Y SQUIRL::ROT.Y))
;          (- (* SQUIRL::VEC.Y SQUIRL::ROT.X) (* SQUIRL::VEC.X SQUIRL::ROT.Y)))))
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA SQUIRL:VEC-UNROTATE
;         (SQUIRL:VEC SQUIRL::ROT)
;       "Rotates VEC by (- (vec->angle ROT)) radians. ROT should be a unit vec.
; This function is symmetric between VEC and ROT."
;       (DECLARE (SQUIRL:VEC SQUIRL:VEC SQUIRL::ROT))
;       (BLOCK SQUIRL:VEC-UNROTATE
;         (SQUIRL::WITH-VECS (SQUIRL:VEC SQUIRL::ROT)
;           (SQUIRL:VEC (+ # #) (- # #)))))
; 
; note: doing complex float to pointer coercion (cost 13) to "<return value>"

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/squirl/07e00f0d5dc50fa9217bec0ac43b3e308417ea23/squirl-20180116-git/src/vec.lisp
; in: DEFUN VEC-PROJECT
;     (SQUIRL:VEC* SQUIRL::V2
;      (/ (SQUIRL:VEC. SQUIRL::V1 SQUIRL::V2) (SQUIRL:VEC. SQUIRL::V2 SQUIRL::V2)))
; 
; note: doing complex float to pointer coercion (cost 13) to "<return value>"

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/squirl/07e00f0d5dc50fa9217bec0ac43b3e308417ea23/squirl-20180116-git/src/vec.lisp
; in: DEFUN VEC-LENGTH-SQ
;     (DEFUN SQUIRL:VEC-LENGTH-SQ (SQUIRL:VEC)
;       "Returns the square of a vector's length"
;       (SQUIRL:VEC. SQUIRL:VEC SQUIRL:VEC))
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA SQUIRL:VEC-LENGTH-SQ
;         (SQUIRL:VEC)
;       "Returns the square of a vector's length"
;       (BLOCK SQUIRL:VEC-LENGTH-SQ (SQUIRL:VEC. SQUIRL:VEC SQUIRL:VEC)))
; 
; note: doing float to pointer coercion (cost 13) to "<return value>"

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/squirl/07e00f0d5dc50fa9217bec0ac43b3e308417ea23/squirl-20180116-git/src/vec.lisp
; in: DEFUN VEC-LENGTH
;     (DEFUN SQUIRL:VEC-LENGTH (SQUIRL:VEC)
;       "Returns the vector's length"
;       (SQRT (SQUIRL:VEC-LENGTH-SQ SQUIRL:VEC)))
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA SQUIRL:VEC-LENGTH
;         (SQUIRL:VEC)
;       "Returns the vector's length"
;       (BLOCK SQUIRL:VEC-LENGTH (SQRT (SQUIRL:VEC-LENGTH-SQ SQUIRL:VEC))))
; 
; note: doing float to pointer coercion (cost 13) to "<return value>"

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/squirl/07e00f0d5dc50fa9217bec0ac43b3e308417ea23/squirl-20180116-git/src/vec.lisp
; in: DEFUN VEC-LERP
;     (FLOAT RATIO 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.
; 
; 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 SQUIRL:VEC-LERP (SQUIRL::V1 SQUIRL::V2 RATIO)
;       "Linear interpolation of the vectors and ratio"
;       (DECLARE (SQUIRL:VEC SQUIRL::V1 SQUIRL::V2))
;       (LET ((RATIO (FLOAT RATIO 1.0d0)))
;         (SQUIRL:VEC+ (SQUIRL:VEC* SQUIRL::V1 (- 1.0d0 RATIO))
;          (SQUIRL:VEC* SQUIRL::V2 RATIO))))
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA SQUIRL:VEC-LERP
;         (SQUIRL::V1 SQUIRL::V2 RATIO)
;       "Linear interpolation of the vectors and ratio"
;       (DECLARE (SQUIRL:VEC SQUIRL::V1 SQUIRL::V2))
;       (BLOCK SQUIRL:VEC-LERP
;         (LET ((RATIO #))
;           (SQUIRL:VEC+ (SQUIRL:VEC* SQUIRL::V1 #)
;            (SQUIRL:VEC* SQUIRL::V2 RATIO)))))
; 
; note: doing complex float to pointer coercion (cost 13) to "<return value>"

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/squirl/07e00f0d5dc50fa9217bec0ac43b3e308417ea23/squirl-20180116-git/src/vec.lisp
; in: DEFUN VEC-NORMALIZE
;     (SQUIRL:VEC* SQUIRL:VEC (/ (SQUIRL:VEC-LENGTH SQUIRL:VEC)))
; 
; note: doing complex float to pointer coercion (cost 13) to "<return value>"

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/squirl/07e00f0d5dc50fa9217bec0ac43b3e308417ea23/squirl-20180116-git/src/vec.lisp
; in: DEFUN VEC-CLAMP
;     (FLOAT SQUIRL::LEN 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.
; 
; 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).

;     (SQUIRL:VEC* (SQUIRL:VEC-NORMALIZE SQUIRL:VEC) SQUIRL::LEN)
; --> BLOCK 
; ==>
;   (* SQUIRL:VEC SQUIRL::SCALAR)
; 
; note: doing complex float to pointer coercion (cost 13) to "<return value>", for:
;       the first result of inline float arithmetic

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/squirl/07e00f0d5dc50fa9217bec0ac43b3e308417ea23/squirl-20180116-git/src/vec.lisp
; in: DEFUN VEC-DIST-SQ
;     (SQUIRL:VEC-LENGTH-SQ (SQUIRL:VEC- SQUIRL::V1 SQUIRL::V2))
; 
; note: doing float to pointer coercion (cost 13) to "<return value>"

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/squirl/07e00f0d5dc50fa9217bec0ac43b3e308417ea23/squirl-20180116-git/src/vec.lisp
; in: DEFUN VEC-DIST
;     (SQUIRL:VEC-LENGTH (SQUIRL:VEC- SQUIRL::V1 SQUIRL::V2))
; 
; note: doing float to pointer coercion (cost 13) to "<return value>"

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/squirl/07e00f0d5dc50fa9217bec0ac43b3e308417ea23/squirl-20180116-git/src/vec.lisp
; in: DEFUN VEC-NEAR
;     (FLOAT SQUIRL::DIST 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.
; 
; 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).

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/squirl/07e00f0d5dc50fa9217bec0ac43b3e308417ea23/squirl-20180116-git/src/shape.lisp
; in: DEFSTRUCT CIRCLE
;     (DEFSTRUCT
;         (SQUIRL:CIRCLE
;          (:CONSTRUCTOR SQUIRL::%MAKE-CIRCLE
;           (SQUIRL::RADIUS SQUIRL::CENTER SQUIRL::RESTITUTION SQUIRL::FRICTION
;            SQUIRL::ACTOR))
;          (:INCLUDE SQUIRL::SHAPE))
;       (SQUIRL::RADIUS (ASSERT NIL) :TYPE DOUBLE-FLOAT)
;       (SQUIRL::CENTER (ASSERT NIL) :TYPE SQUIRL:VEC)
;       (SQUIRL::TRANSFORMED-CENTER SQUIRL:+ZERO-VECTOR+ :TYPE SQUIRL:VEC))
; --> PROGN EVAL-WHEN 
; ==>
;   (SB-KERNEL::%COMPILER-DEFSTRUCT
;    '#<SB-KERNEL:DEFSTRUCT-DESCRIPTION SQUIRL:CIRCLE {100B4DF0E3}>
;    '#(#<SB-KERNEL:LAYOUT for T {20300003}>
;       #<SB-KERNEL:LAYOUT for STRUCTURE-OBJECT {20300103}>
;       #<SB-KERNEL:LAYOUT for SQUIRL::SHAPE {204E1603}>))
; 
; caught STYLE-WARNING:
;   Previously compiled calls to SQUIRL:CIRCLE-RADIUS and SQUIRL::CIRCLE-CENTER could not be inlined because the structure definition for SQUIRL:CIRCLE 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.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/squirl/07e00f0d5dc50fa9217bec0ac43b3e308417ea23/squirl-20180116-git/src/shape.lisp
; in: DEFSTRUCT SEGMENT
;     (DEFSTRUCT
;         (SQUIRL:SEGMENT
;          (:CONSTRUCTOR SQUIRL::%MAKE-SEGMENT
;           (SQUIRL::A SQUIRL::B SQUIRL::FRICTION SQUIRL::RESTITUTION
;            SQUIRL::RADIUS &AUX (SQUIRL::NORMAL #)))
;          (:INCLUDE SQUIRL::SHAPE))
;       SQUIRL::RADIUS
;       SQUIRL::A
;       SQUIRL::B
;       SQUIRL::NORMAL
;       SQUIRL::TRANS-A
;       SQUIRL::TRANS-B
;       SQUIRL::TRANS-NORMAL)
; --> PROGN EVAL-WHEN 
; ==>
;   (SB-KERNEL::%COMPILER-DEFSTRUCT
;    '#<SB-KERNEL:DEFSTRUCT-DESCRIPTION SQUIRL:SEGMENT {100BF96FB3}>
;    '#(#<SB-KERNEL:LAYOUT for T {20300003}>
;       #<SB-KERNEL:LAYOUT for STRUCTURE-OBJECT {20300103}>
;       #<SB-KERNEL:LAYOUT for SQUIRL::SHAPE {204E1603}>))
; 
; caught STYLE-WARNING:
;   Previously compiled calls to SQUIRL::SEGMENT-A and SQUIRL::SEGMENT-B could not be inlined because the structure definition for SQUIRL:SEGMENT 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.
WARNING: Lisp compilation had style-warnings while compiling #<CL-SOURCE-FILE "squirl" "src" "shape">

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/squirl/07e00f0d5dc50fa9217bec0ac43b3e308417ea23/squirl-20180116-git/src/poly-shape.lisp
; in: DEFSTRUCT POLY
;     (DEFSTRUCT
;         (SQUIRL:POLY (:INCLUDE SQUIRL::SHAPE)
;          (:CONSTRUCTOR SQUIRL::%MAKE-POLY
;           (LENGTH SQUIRL::RESTITUTION SQUIRL::FRICTION SQUIRL::ACTOR &AUX
;                   (SQUIRL::TRANSFORMED-VERTICES #)
;                   (SQUIRL::TRANSFORMED-AXES #))))
;       (SQUIRL::VERTICES (MAKE-ARRAY 0 :ELEMENT-TYPE 'SQUIRL:VEC) :TYPE
;        (SIMPLE-ARRAY SQUIRL:VEC (*)))
;       (SQUIRL::AXES (MAKE-ARRAY 0 :ELEMENT-TYPE 'SQUIRL::POLY-AXIS) :TYPE
;        (SIMPLE-ARRAY SQUIRL::POLY-AXIS (*)))
;       (SQUIRL::TRANSFORMED-VERTICES (ASSERT NIL) :TYPE
;        (SIMPLE-ARRAY SQUIRL:VEC (*)))
;       (SQUIRL::TRANSFORMED-AXES (ASSERT NIL) :TYPE
;        (SIMPLE-ARRAY SQUIRL::POLY-AXIS (*))))
; --> PROGN EVAL-WHEN 
; ==>
;   (SB-KERNEL::%COMPILER-DEFSTRUCT
;    '#<SB-KERNEL:DEFSTRUCT-DESCRIPTION SQUIRL:POLY {100D1B66D3}>
;    '#(#<SB-KERNEL:LAYOUT for T {20300003}>
;       #<SB-KERNEL:LAYOUT for STRUCTURE-OBJECT {20300103}>
;       #<SB-KERNEL:LAYOUT for SQUIRL::SHAPE {204E1603}>))
; 
; caught STYLE-WARNING:
;   Previously compiled call to SQUIRL::POLY-VERTICES could not be inlined because the structure definition for SQUIRL:POLY 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.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/squirl/07e00f0d5dc50fa9217bec0ac43b3e308417ea23/squirl-20180116-git/src/poly-shape.lisp
; in: DEFUN COMPUTE-NEW-VERTICES
;     (MAKE-ARRAY (1+ SQUIRL::LIMIT) :FILL-POINTER 0 :ELEMENT-TYPE
;                 'SQUIRL::POLY-AXIS)
; 
; caught STYLE-WARNING:
;   The default initial element 0 is not a POLY-AXIS.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/squirl/07e00f0d5dc50fa9217bec0ac43b3e308417ea23/squirl-20180116-git/src/poly-shape.lisp
; in: DEFUN POLY-VALUE-ON-AXIS
;     (DEFUN SQUIRL::POLY-VALUE-ON-AXIS
;            (SQUIRL:POLY SQUIRL::NORMAL SQUIRL::DISTANCE)
;       "Returns the minimum distance of the polygon to the axis."
;       (DECLARE (OPTIMIZE SPEED)
;                (DOUBLE-FLOAT SQUIRL::DISTANCE)
;                (SQUIRL:VEC SQUIRL::NORMAL))
;       (PROG* ((SQUIRL::TRANSFORMED-VERTICES
;                (SQUIRL:POLY-TRANSFORMED-VERTICES SQUIRL:POLY))
;               (MIN (SQUIRL:VEC. SQUIRL::NORMAL #))
;               (SQUIRL::LIMIT (LENGTH SQUIRL::TRANSFORMED-VERTICES))
;               (SQUIRL::INDEX 1) (SQUIRL::DOT (SQUIRL:VEC. SQUIRL::NORMAL #)))
;         (DECLARE (FIXNUM SQUIRL::INDEX SQUIRL::LIMIT)
;                  (DOUBLE-FLOAT MIN SQUIRL::DOT))
;        LOOP
;         (WHEN (< SQUIRL::DOT MIN) (SETF MIN SQUIRL::DOT))
;         (INCF SQUIRL::INDEX)
;         (WHEN (= SQUIRL::INDEX SQUIRL::LIMIT) (GO SQUIRL::EXIT))
;         (SETF SQUIRL::DOT (SQUIRL:VEC. SQUIRL::NORMAL #))
;         (GO LOOP)
;        SQUIRL::EXIT
;         (RETURN (- MIN SQUIRL::DISTANCE))))
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA SQUIRL::POLY-VALUE-ON-AXIS
;         (SQUIRL:POLY SQUIRL::NORMAL SQUIRL::DISTANCE)
;       "Returns the minimum distance of the polygon to the axis."
;       (DECLARE (OPTIMIZE SPEED)
;                (DOUBLE-FLOAT SQUIRL::DISTANCE)
;                (SQUIRL:VEC SQUIRL::NORMAL))
;       (BLOCK SQUIRL::POLY-VALUE-ON-AXIS
;         (PROG* ((SQUIRL::TRANSFORMED-VERTICES #) (MIN #) (SQUIRL::LIMIT #)
;                 (SQUIRL::INDEX 1) (SQUIRL::DOT #))
;           (DECLARE (FIXNUM SQUIRL::INDEX SQUIRL::LIMIT)
;                    (DOUBLE-FLOAT MIN SQUIRL::DOT))
;          LOOP
;           (WHEN (< SQUIRL::DOT MIN) (SETF #))
;           (INCF SQUIRL::INDEX)
;           (WHEN (= SQUIRL::INDEX SQUIRL::LIMIT) (GO SQUIRL::EXIT))
;           (SETF SQUIRL::DOT #)
;           (GO LOOP)
;          SQUIRL::EXIT
;           (RETURN (- MIN SQUIRL::DISTANCE)))))
; 
; note: doing float to pointer coercion (cost 13) to "<return value>"
WARNING: Lisp compilation had style-warnings while compiling #<CL-SOURCE-FILE "squirl" "src" "poly-shape">

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/squirl/07e00f0d5dc50fa9217bec0ac43b3e308417ea23/squirl-20180116-git/src/collision.lisp
; in: DEFUN CIRCLE-TO-CIRCLE-QUERY
;     (SQUIRL::MAKE-CONTACT
;      (SQUIRL:VEC+ SQUIRL::P1
;                   (SQUIRL:VEC* SQUIRL::DELTA
;                                (+ 0.5d0 (SQUIRL.UTILS:MAYBE/ # SQUIRL::DIST))))
;      (SQUIRL:VEC* SQUIRL::DELTA (SQUIRL.UTILS:MAYBE/ 1.0d0 SQUIRL::DIST))
;      (- SQUIRL::DIST SQUIRL::MINDIST))
; 
; note: doing complex float to pointer coercion (cost 13)
; 
; note: doing complex float to pointer coercion (cost 13)
; 
; note: doing float to pointer coercion (cost 13)

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/squirl/07e00f0d5dc50fa9217bec0ac43b3e308417ea23/squirl-20180116-git/src/collision.lisp
; in: DEFUN FIND-VERTICES
;     (SQUIRL::MAKE-CONTACT SQUIRL::VERTEX SQUIRL::NORMAL SQUIRL::DISTANCE
;                           (SQUIRL::HASH-PAIR (SQUIRL::SHAPE-ID SQUIRL::POLY1)
;                            SQUIRL::I))
; 
; note: doing complex float to pointer coercion (cost 13) from VERTEX

;     (SQUIRL::MAKE-CONTACT SQUIRL::VERTEX SQUIRL::NORMAL SQUIRL::DISTANCE
;                           (SQUIRL::HASH-PAIR (SQUIRL::SHAPE-ID SQUIRL::POLY2)
;                            SQUIRL::I))
; 
; note: doing complex float to pointer coercion (cost 13) from VERTEX

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/squirl/07e00f0d5dc50fa9217bec0ac43b3e308417ea23/squirl-20180116-git/src/arbiter.lisp
; in: DEFUN ARBITER-APPLY-IMPULSE
;     (LET* ((SQUIRL::N (SQUIRL::CONTACT-NORMAL SQUIRL::CONTACT))
;            (SQUIRL::R1 (SQUIRL::CONTACT-R1 SQUIRL::CONTACT))
;            (SQUIRL::R2 (SQUIRL::CONTACT-R2 SQUIRL::CONTACT))
;            (SQUIRL::VB1
;             (SQUIRL::RELATIVE-BIAS-VELOCITY SQUIRL::VB-A SQUIRL::R1
;              SQUIRL::AVB-A))
;            (SQUIRL::VB2
;             (SQUIRL::RELATIVE-BIAS-VELOCITY SQUIRL::VB-B SQUIRL::R2
;              SQUIRL::AVB-B))
;            (SQUIRL::VBN
;             (SQUIRL:VEC. (SQUIRL:VEC- SQUIRL::VB2 SQUIRL::VB1) SQUIRL::N)))
;       (LET ((SQUIRL::JBN (* # #))
;             (SQUIRL::JBN-OLD (SQUIRL::CONTACT-IMPULSE-BIAS SQUIRL::CONTACT)))
;         (SETF (SQUIRL::CONTACT-IMPULSE-BIAS SQUIRL::CONTACT) (MAX 0.0d0 #)
;               SQUIRL::JBN (- # SQUIRL::JBN-OLD))
;         (SQUIRL::BODY-APPLY-BIAS-IMPULSE SQUIRL:BODY-A
;                                          (SQUIRL:VEC* SQUIRL::N (- SQUIRL::JBN))
;                                          SQUIRL::R1)
;         (SQUIRL::BODY-APPLY-BIAS-IMPULSE SQUIRL:BODY-B
;                                          (SQUIRL:VEC* SQUIRL::N SQUIRL::JBN)
;                                          SQUIRL::R2))
;       (LET* ((SQUIRL::RELATIVE-VELOCITY
;               (SQUIRL::RELATIVE-VELOCITY SQUIRL:BODY-A SQUIRL:BODY-B SQUIRL::R1
;                SQUIRL::R2))
;              (SQUIRL::N-RELATIVE-VELOCITY
;               (SQUIRL:VEC. SQUIRL::RELATIVE-VELOCITY SQUIRL::N)))
;         (FLET ((SQUIRL::CALCULATE-NORMAL-IMPULSE #
;                  #))
;           (LET (# #)
;             (SETF #)
;             (LET* #
;               #
;               #)))))
; 
; note: doing complex float to pointer coercion (cost 13) to R1
; 
; note: doing complex float to pointer coercion (cost 13) to R2

;     (SQUIRL::BODY-APPLY-BIAS-IMPULSE SQUIRL:BODY-A
;                                      (SQUIRL:VEC* SQUIRL::N (- SQUIRL::JBN))
;                                      SQUIRL::R1)
; 
; note: doing complex float to pointer coercion (cost 13)

;     (SQUIRL::BODY-APPLY-BIAS-IMPULSE SQUIRL:BODY-B
;                                      (SQUIRL:VEC* SQUIRL::N SQUIRL::JBN)
;                                      SQUIRL::R2)
; 
; note: doing complex float to pointer coercion (cost 13)

;     (SQUIRL::APPLY-IMPULSES SQUIRL:BODY-A SQUIRL:BODY-B SQUIRL::R1 SQUIRL::R2
;      (SQUIRL:VEC-ROTATE SQUIRL::N (SQUIRL:VEC SQUIRL::JN SQUIRL::JT)))
; 
; note: doing complex float to pointer coercion (cost 13)

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/squirl/07e00f0d5dc50fa9217bec0ac43b3e308417ea23/squirl-20180116-git/src/hash-set.lisp
; in: DEFUN HASH-SET-REMOVE
;     (SQUIRL.UTILS:DELETEF (SQUIRL::HASH-SET-CHAIN SET SQUIRL::INDEX)
;                           SQUIRL::DATUM :TEST #'EQ :KEY #'CDR)
; --> LET* SQUIRL.UTILS::DELETE/SWAPPED-ARGUMENTS BLOCK APPLY 
; --> MULTIPLE-VALUE-CALL 
; ==>
;   (SB-C::%FUNCALL
;    #<SB-C::GLOBAL-VAR
;      :%SOURCE-NAME DELETE
;      :TYPE #<SB-KERNEL:FUN-TYPE (FUNCTION # #)>
;      :DEFINED-TYPE #<SB-KERNEL:FUN-TYPE (FUNCTION # #)>
;      :WHERE-FROM :DECLARED
;      :KIND :GLOBAL-FUNCTION {10063D4803}>
;    #:G32 #:G33 #:G34 #:G35 #:G36 #:G37)
; 
; note: The third argument (in keyword position) is not a constant, weakening keyword argument checking.
; 
; note: The fifth argument (in keyword position) is not a constant, weakening keyword argument checking.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/squirl/07e00f0d5dc50fa9217bec0ac43b3e308417ea23/squirl-20180116-git/src/hash-set.lisp
; in: DEFUN HASH-SET-DELETE-IF
;     (SQUIRL.UTILS:DELETE-IFF (SQUIRL::HASH-SET-CHAIN SET SQUIRL::INDEX)
;                              SQUIRL::PREDICATE :KEY #'CDR)
; --> LET* SQUIRL.UTILS::DELETE-IF/SWAPPED-ARGUMENTS BLOCK APPLY 
; --> MULTIPLE-VALUE-CALL 
; ==>
;   (SB-C::%FUNCALL
;    #<SB-C::GLOBAL-VAR
;      :%SOURCE-NAME DELETE-IF
;      :TYPE #<SB-KERNEL:FUN-TYPE (FUNCTION # #)>
;      :DEFINED-TYPE #<SB-KERNEL:FUN-TYPE (FUNCTION # #)>
;      :WHERE-FROM :DECLARED
;      :KIND :GLOBAL-FUNCTION {10065691B3}>
;    #:G21 #:G22 #:G23 #:G24)
; 
; note: The third argument (in keyword position) is not a constant, weakening keyword argument checking.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/squirl/07e00f0d5dc50fa9217bec0ac43b3e308417ea23/squirl-20180116-git/src/constraints/constraints.lisp
; in: DEFSTRUCT CONSTRAINT
;     (DEFSTRUCT SQUIRL::CONSTRAINT
;       SQUIRL:BODY-A
;       SQUIRL:BODY-B
;       (SQUIRL::MAX-FORCE MOST-POSITIVE-DOUBLE-FLOAT)
;       (SQUIRL::BIAS-COEFFICIENT SQUIRL::*CONSTRAINT-BIAS-COEFFICIENT*)
;       (SQUIRL::MAX-BIAS MOST-POSITIVE-DOUBLE-FLOAT)
;       SQUIRL::DATA)
; --> PROGN EVAL-WHEN 
; ==>
;   (SB-KERNEL::%COMPILER-DEFSTRUCT
;    '#<SB-KERNEL:DEFSTRUCT-DESCRIPTION SQUIRL::CONSTRAINT {100A31A763}>
;    '#(#<SB-KERNEL:LAYOUT for T {20300003}>
;       #<SB-KERNEL:LAYOUT for STRUCTURE-OBJECT {20300103}>))
; 
; caught STYLE-WARNING:
;   Previously compiled call to SQUIRL::CONSTRAINT-MAX-FORCE could not be inlined because the structure definition for SQUIRL::CONSTRAINT 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.
WARNING: Lisp compilation had style-warnings while compiling #<CL-SOURCE-FILE "squirl" "src" "constraints" "constraints">
WARNING: redefining LISPBUILDER-SDL-BASE::READ-PIXEL in DEFUN
WARNING: PARSE-VERSION: "0.1 (unreleased)" doesn't follow asdf version numbering convention
WARNING: Invalid :version specifier "0.1 (unreleased)" for component "squirl" from file #P"/home/quicklisp/quicklisp-controller/dist/build-cache/squirl/07e00f0d5dc50fa9217bec0ac43b3e308417ea23/squirl-20180116-git/squirl.asd", using NIL instead
WARNING: Invalid :version specifier "0.1 (unreleased)" for component "squirl" from file #P"/home/quicklisp/quicklisp-controller/dist/build-cache/squirl/07e00f0d5dc50fa9217bec0ac43b3e308417ea23/squirl-20180116-git/squirl.asd", using NIL instead
WARNING: System definition file #P"/home/quicklisp/quicklisp-controller/dist/build-cache/squirl/07e00f0d5dc50fa9217bec0ac43b3e308417ea23/squirl-20180116-git/squirl.asd" contains definition for system "squirl.demo". Please only define "squirl" and secondary systems with a name starting with "squirl/" (e.g. "squirl/test") in that file.
WARNING: PARSE-VERSION: "0.1 (unreleased)" doesn't follow asdf version numbering convention
WARNING: Invalid :version specifier "0.1 (unreleased)" for component "squirl.demo" from file #P"/home/quicklisp/quicklisp-controller/dist/build-cache/squirl/07e00f0d5dc50fa9217bec0ac43b3e308417ea23/squirl-20180116-git/squirl.asd", using NIL instead
WARNING: Invalid :version specifier "0.1 (unreleased)" for component "squirl.demo" from file #P"/home/quicklisp/quicklisp-controller/dist/build-cache/squirl/07e00f0d5dc50fa9217bec0ac43b3e308417ea23/squirl-20180116-git/squirl.asd", using NIL instead
WARNING: System definition file #P"/home/quicklisp/quicklisp-controller/dist/build-cache/squirl/07e00f0d5dc50fa9217bec0ac43b3e308417ea23/squirl-20180116-git/squirl.asd" contains definition for system "squirl.demo-2". Please only define "squirl" and secondary systems with a name starting with "squirl/" (e.g. "squirl/test") in that file.
WARNING: PARSE-VERSION: "0.1 (unreleased)" doesn't follow asdf version numbering convention
WARNING: Invalid :version specifier "0.1 (unreleased)" for component "squirl.demo-2" from file #P"/home/quicklisp/quicklisp-controller/dist/build-cache/squirl/07e00f0d5dc50fa9217bec0ac43b3e308417ea23/squirl-20180116-git/squirl.asd", using NIL instead
WARNING: Invalid :version specifier "0.1 (unreleased)" for component "squirl.demo-2" from file #P"/home/quicklisp/quicklisp-controller/dist/build-cache/squirl/07e00f0d5dc50fa9217bec0ac43b3e308417ea23/squirl-20180116-git/squirl.asd", using NIL instead
WARNING: Computing just-done stamp in plan NIL for action (ASDF/LISP-ACTION:PREPARE-OP "squirl.demo-2"), but dependency (ASDF/LISP-ACTION:LOAD-OP "squirl") wasn't done yet!

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/squirl/07e00f0d5dc50fa9217bec0ac43b3e308417ea23/squirl-20180116-git/demo/demo.lisp
; in: DEFUN WORLD-BOX
;     (SQUIRL:MAKE-SEGMENT SQUIRL-DEMO-2::STATIC-BODY SQUIRL-DEMO-2::A1
;                          SQUIRL-DEMO-2::B1 1.0)
; 
; note: The third argument (in keyword position) is not a constant, weakening keyword argument checking.

;     (SETF (SQUIRL:SHAPE-FRICTION SQUIRL-DEMO-2::SHAPE) 1.0)
; --> SB-KERNEL:%RAW-INSTANCE-SET/DOUBLE THE 
; ==>
;   SQUIRL-DEMO-2::SHAPE
; 
; note: deleting unreachable code

;     (SETF (SQUIRL:SHAPE-RESTITUTION SQUIRL-DEMO-2::SHAPE) 1.0)
; --> SB-KERNEL:%RAW-INSTANCE-SET/DOUBLE 
; ==>
;   (SB-KERNEL:THE*
;    (DOUBLE-FLOAT :CONTEXT (:STRUCT SQUIRL::SHAPE . SQUIRL::RESTITUTION)) 1.0)
; 
; caught WARNING:
;   Constant 1.0 conflicts with its asserted type DOUBLE-FLOAT.
;   See also:
;     The SBCL Manual, Node "Handling of Types"

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/squirl/07e00f0d5dc50fa9217bec0ac43b3e308417ea23/squirl-20180116-git/demo/demo.lisp
; in: DEFUN INIT-WORLD
;     (SQUIRL:MAKE-BODY MOST-POSITIVE-SHORT-FLOAT MOST-POSITIVE-SHORT-FLOAT 0 0)
; 
; caught STYLE-WARNING:
;   3.4028235e38 and 0 are not a known argument keywords.

;     (SQUIRL:MAKE-BODY 100.0 10000.0 0 1 1)
; 
; caught STYLE-WARNING:
;   The function has an odd number of arguments in the keyword portion.

;     (SQUIRL:MAKE-SEGMENT SQUIRL:BODY (SQUIRL:VEC -75 0) (SQUIRL:VEC 75 0) 5)
; 
; caught STYLE-WARNING:
;   #C(75.0d0 0.0d0) is not a known argument keyword.

;     (SETF (SQUIRL:SHAPE-FRICTION SQUIRL-DEMO-2::SHAPE) 1.0)
; --> SB-KERNEL:%RAW-INSTANCE-SET/DOUBLE THE 
; ==>
;   SQUIRL-DEMO-2::SHAPE
; 
; note: deleting unreachable code

;     (SQUIRL:VEC 0 0)
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code

;     (SQUIRL:MAKE-PIVOT-JOINT SQUIRL:BODY SQUIRL-DEMO-2::STATIC-BODY
;                              (SQUIRL:VEC 0 0) (SQUIRL:VEC 0 0))
; 
; note: deleting unreachable code

;     (SETF (SQUIRL:SHAPE-RESTITUTION SQUIRL-DEMO-2::SHAPE) 1.0)
; --> SB-KERNEL:%RAW-INSTANCE-SET/DOUBLE 
; ==>
;   (SB-KERNEL:THE*
;    (DOUBLE-FLOAT :CONTEXT (:STRUCT SQUIRL::SHAPE . SQUIRL::RESTITUTION)) 1.0)
; 
; caught WARNING:
;   Constant 1.0 conflicts with its asserted type DOUBLE-FLOAT.
;   See also:
;     The SBCL Manual, Node "Handling of Types"

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/squirl/07e00f0d5dc50fa9217bec0ac43b3e308417ea23/squirl-20180116-git/demo/demo.lisp
; in: DEFUN ADD-CIRCLE
;     (SQUIRL:MAKE-BODY SQUIRL-DEMO-2::MASS
;                       (SQUIRL-DEMO-2::MOMENT-FOR-CIRCLE SQUIRL-DEMO-2::MASS 1.0
;                        SQUIRL-DEMO-2::SIZE)
;                       0 0)
; 
; caught STYLE-WARNING:
;   1.0 and 0 are not a known argument keywords.

;     (SQUIRL:VEC* (SQUIRL:VEC (- (* 2 (/ 1.0 #)) 1) (- (* 2 (/ 1.0 #)) 1)) 200)
; 
; note: deleting unreachable code
; 
; caught WARNING:
;   Constant 200 conflicts with its asserted type DOUBLE-FLOAT.
;   See also:
;     The SBCL Manual, Node "Handling of Types"

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/squirl/07e00f0d5dc50fa9217bec0ac43b3e308417ea23/squirl-20180116-git/demo/demo.lisp
; in: DEFUN ADD-BOX
;     (SQUIRL:MAKE-BODY SQUIRL-DEMO-2::MASS
;                       (SQUIRL-DEMO-2::MOMENT-FOR-POLY SQUIRL-DEMO-2::MASS 4
;                        SQUIRL-DEMO-2::VERTS)
;                       0 0)
; 
; caught STYLE-WARNING:
;   1.0 and 0 are not a known argument keywords.

;     (SQUIRL:VEC* (SQUIRL:VEC (- (* 2 (/ 1.0 #)) 1) (- (* 2 (/ 1.0 #)) 1)) 200)
; 
; note: deleting unreachable code
; 
; caught WARNING:
;   Constant 200 conflicts with its asserted type DOUBLE-FLOAT.
;   See also:
;     The SBCL Manual, Node "Handling of Types"
Unhandled UIOP/LISP-BUILD:COMPILE-FILE-ERROR in thread #<SB-THREAD:THREAD "main thread" RUNNING {1001DB0083}>: COMPILE-FILE-ERROR while compiling #<CL-SOURCE-FILE "squirl.demo-2" "demo" "demo">

Backtrace for: #<SB-THREAD:THREAD "main thread" RUNNING {1001DB0083}>
0: (SB-DEBUG::DEBUGGER-DISABLED-HOOK #<UIOP/LISP-BUILD:COMPILE-FILE-ERROR {100C20C563}> #<unused argument> :QUIT T)
1: (SB-DEBUG::RUN-HOOK *INVOKE-DEBUGGER-HOOK* #<UIOP/LISP-BUILD:COMPILE-FILE-ERROR {100C20C563}>)
2: (INVOKE-DEBUGGER #<UIOP/LISP-BUILD:COMPILE-FILE-ERROR {100C20C563}>)
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 "squirl.demo-2" "demo" "demo">)))
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 "squirl.demo-2" "demo" "demo">)))
5: ((SB-PCL::EMF ASDF/ACTION:PERFORM) #<unused argument> #<unused argument> #<ASDF/LISP-ACTION:COMPILE-OP > #<ASDF/LISP-ACTION:CL-SOURCE-FILE "squirl.demo-2" "demo" "demo">)
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 "squirl.demo-2" "demo" "demo">) [fast-method]
8: ((:METHOD ASDF/PLAN:PERFORM-PLAN (T)) #<ASDF/PLAN:SEQUENTIAL-PLAN {1005D2AEF3}>) [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 {1005D2AEF3}>) [fast-method]
11: ((:METHOD ASDF/OPERATE:OPERATE (ASDF/OPERATION:OPERATION ASDF/COMPONENT:COMPONENT)) #<ASDF/LISP-ACTION:LOAD-OP > #<ASDF/SYSTEM:SYSTEM "squirl.demo-2"> :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 "squirl.demo-2">)
13: ((LAMBDA NIL :IN ASDF/OPERATE:OPERATE))
14: ((:METHOD ASDF/OPERATE:OPERATE :AROUND (T T)) #<ASDF/LISP-ACTION:LOAD-OP > #<ASDF/SYSTEM:SYSTEM "squirl.demo-2">) [fast-method]
15: ((SB-PCL::EMF ASDF/OPERATE:OPERATE) #<unused argument> #<unused argument> ASDF/LISP-ACTION:LOAD-OP "squirl.demo-2")
16: ((LAMBDA NIL :IN ASDF/OPERATE:OPERATE))
17: ((:METHOD ASDF/OPERATE:OPERATE :AROUND (T T)) ASDF/LISP-ACTION:LOAD-OP "squirl.demo-2") [fast-method]
18: (ASDF/SESSION:CALL-WITH-ASDF-SESSION #<CLOSURE (LAMBDA NIL :IN ASDF/OPERATE:OPERATE) {1005D23DDB}> :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) {1005D2136B}> :OVERRIDE NIL :KEY NIL :OVERRIDE-CACHE NIL :OVERRIDE-FORCING NIL)
21: ((:METHOD ASDF/OPERATE:OPERATE :AROUND (T T)) ASDF/LISP-ACTION:LOAD-OP "squirl.demo-2") [fast-method]
22: (DEPCHECK::COMPUTE-DEPENDENCIES "squirl" "squirl.demo-2")
23: (DEPCHECK::MAGIC "squirl" "squirl.demo-2" "/home/quicklisp/quicklisp-controller/tmp/anonymous/anonymous-VCzuq7rK/depcheck-win.txt")
24: (DEPCHECK::MAIN ("depcheck" "/home/quicklisp/quicklisp-controller/dist/system-file-index" "squirl" "squirl.demo-2" "/home/quicklisp/quicklisp-controller/tmp/anonymous/anonymous-VCzuq7rK/depcheck-win.txt" "/home/quicklisp/quicklisp-controller/tmp/anonymous/anonymous-VCzuq7rK/depcheck-fail.txt"))
25: ((LAMBDA NIL :IN "/home/quicklisp/src/quicklisp-controller/dumper-2SKVI5f7.lisp"))
26: ((FLET SB-UNIX::BODY :IN SAVE-LISP-AND-DIE))
27: ((FLET "WITHOUT-INTERRUPTS-BODY-36" :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 1 fatal ERROR condition
;   caught 4 WARNING conditions
;   caught 10 STYLE-WARNING conditions
;   printed 50 notes