SBCL 2.5.7.135-b5e53e27e / ASDF 3.3.5
; file: /home/quicklisp/quicklisp-controller/dist/build-cache/verlet/a7015645a26cae7e4cebdf68e4e5584e2b04c536/verlet-20250925-git/utility/algebra.lisp ; in: DEFUN PROJECT ; (CHAIN:=> VERLET::V ; (RTG-MATH.VECTOR3:- VERLET::% VERLET::P) ; (RTG-MATH.VECTOR3:- VERLET::% ; (RTG-MATH.VECTOR3:*S VERLET::N ; (RTG-MATH.VECTOR3:DOT VERLET::% ; VERLET::N))) ; (RTG-MATH.VECTOR3:+ VERLET::% VERLET::P)) ; --> METABANG.BIND:BIND ; ==> ; (LET* ((CHAIN:<> VERLET::V)) ; (PROGN ; (MACROLET ((CHAIN::BAIL # ; `#) ; (CHAIN::FINISH # ; `#)) ; (METABANG.BIND:BIND (#) ; (METABANG.BIND:BIND # ; #))))) ; ; caught STYLE-WARNING: ; The variable <> is defined but never used. ; --> METABANG.BIND:BIND LET* PROGN MACROLET METABANG.BIND:BIND ; ==> ; (LET* ((CHAIN:<> (RTG-MATH.VECTOR3:- VERLET::% VERLET::P))) ; (PROGN ; (METABANG.BIND:BIND ((CHAIN:<> #)) ; (METABANG.BIND:BIND (#) ; CHAIN:<>)))) ; ; caught STYLE-WARNING: ; The variable <> is defined but never used. ; --> METABANG.BIND:BIND LET* PROGN MACROLET METABANG.BIND:BIND LET* PROGN ; --> METABANG.BIND:BIND ; ==> ; (LET* ((CHAIN:<> ; (RTG-MATH.VECTOR3:- VERLET::% (RTG-MATH.VECTOR3:*S VERLET::N #)))) ; (PROGN ; (METABANG.BIND:BIND ((CHAIN:<> #)) ; CHAIN:<>))) ; ; caught STYLE-WARNING: ; The variable <> is defined but never used. ; in: DEFUN ORTHOGONALIZE ; (CHAIN:=> VERLET::V ; (RTG-MATH.VECTOR3:- VERLET::% VERLET::P) ; (RTG-MATH.VECTOR3:*S VERLET::N (RTG-MATH.VECTOR3:DOT VERLET::% VERLET::N)) ; (RTG-MATH.VECTOR3:+ VERLET::% VERLET::P)) ; --> METABANG.BIND:BIND ; ==> ; (LET* ((CHAIN:<> VERLET::V)) ; (PROGN ; (MACROLET ((CHAIN::BAIL # ; `#) ; (CHAIN::FINISH # ; `#)) ; (METABANG.BIND:BIND (#) ; (METABANG.BIND:BIND # ; #))))) ; ; caught STYLE-WARNING: ; The variable <> is defined but never used. ; --> METABANG.BIND:BIND LET* PROGN MACROLET METABANG.BIND:BIND ; ==> ; (LET* ((CHAIN:<> (RTG-MATH.VECTOR3:- VERLET::% VERLET::P))) ; (PROGN ; (METABANG.BIND:BIND ((CHAIN:<> #)) ; (METABANG.BIND:BIND (#) ; CHAIN:<>)))) ; ; caught STYLE-WARNING: ; The variable <> is defined but never used. ; --> METABANG.BIND:BIND LET* PROGN MACROLET METABANG.BIND:BIND LET* PROGN ; --> METABANG.BIND:BIND ; ==> ; (LET* ((CHAIN:<> ; (RTG-MATH.VECTOR3:*S VERLET::N ; (RTG-MATH.VECTOR3:DOT VERLET::% VERLET::N)))) ; (PROGN ; (METABANG.BIND:BIND ((CHAIN:<> #)) ; CHAIN:<>))) ; ; caught STYLE-WARNING: ; The variable <> is defined but never used. ; in: DEFUN MIRROR ; (CHAIN:=> VERLET::V ; (RTG-MATH.VECTOR3:- VERLET::% VERLET::P) ; (RTG-MATH.VECTOR3:*S VERLET::N (RTG-MATH.VECTOR3:DOT VERLET::% VERLET::N)) ; (RTG-MATH.VECTOR3:- VERLET::V (RTG-MATH.VECTOR3:*S VERLET::% 2.0))) ; --> METABANG.BIND:BIND ; ==> ; (LET* ((CHAIN:<> VERLET::V)) ; (PROGN ; (MACROLET ((CHAIN::BAIL # ; `#) ; (CHAIN::FINISH # ; `#)) ; (METABANG.BIND:BIND (#) ; (METABANG.BIND:BIND # ; #))))) ; ; caught STYLE-WARNING: ; The variable <> is defined but never used. ; --> METABANG.BIND:BIND LET* PROGN MACROLET METABANG.BIND:BIND ; ==> ; (LET* ((CHAIN:<> (RTG-MATH.VECTOR3:- VERLET::% VERLET::P))) ; (PROGN ; (METABANG.BIND:BIND ((CHAIN:<> #)) ; (METABANG.BIND:BIND (#) ; CHAIN:<>)))) ; ; caught STYLE-WARNING: ; The variable <> is defined but never used. ; --> METABANG.BIND:BIND LET* PROGN MACROLET METABANG.BIND:BIND LET* PROGN ; --> METABANG.BIND:BIND ; ==> ; (LET* ((CHAIN:<> ; (RTG-MATH.VECTOR3:*S VERLET::N ; (RTG-MATH.VECTOR3:DOT VERLET::% VERLET::N)))) ; (PROGN ; (METABANG.BIND:BIND ((CHAIN:<> #)) ; CHAIN:<>))) ; ; caught STYLE-WARNING: ; The variable <> is defined but never used. ; in: DEFUN TOWARDS ; (CHAIN:=> VERLET::V ; (RTG-MATH.VECTOR3:- VERLET::TARGET VERLET::%) ; (RTG-MATH.VECTOR3:*S (RTG-MATH.VECTOR3:NORMALIZE VERLET::%) LENGTH) ; (RTG-MATH.VECTOR3:+ VERLET::V VERLET::%)) ; --> METABANG.BIND:BIND ; ==> ; (LET* ((CHAIN:<> VERLET::V)) ; (PROGN ; (MACROLET ((CHAIN::BAIL # ; `#) ; (CHAIN::FINISH # ; `#)) ; (METABANG.BIND:BIND (#) ; (METABANG.BIND:BIND # ; #))))) ; ; caught STYLE-WARNING: ; The variable <> is defined but never used. ; --> METABANG.BIND:BIND LET* PROGN MACROLET METABANG.BIND:BIND ; ==> ; (LET* ((CHAIN:<> (RTG-MATH.VECTOR3:- VERLET::TARGET VERLET::%))) ; (PROGN ; (METABANG.BIND:BIND ((CHAIN:<> #)) ; (METABANG.BIND:BIND (#) ; CHAIN:<>)))) ; ; caught STYLE-WARNING: ; The variable <> is defined but never used. ; --> METABANG.BIND:BIND LET* PROGN MACROLET METABANG.BIND:BIND LET* PROGN ; --> METABANG.BIND:BIND ; ==> ; (LET* ((CHAIN:<> ; (RTG-MATH.VECTOR3:*S (RTG-MATH.VECTOR3:NORMALIZE VERLET::%) LENGTH))) ; (PROGN ; (METABANG.BIND:BIND ((CHAIN:<> #)) ; CHAIN:<>))) ; ; caught STYLE-WARNING: ; The variable <> is defined but never used. WARNING: Lisp compilation had style-warnings while compiling #<CL-SOURCE-FILE "verlet" "utility" "algebra"> Unhandled UNBOUND-VARIABLE in thread #<SB-THREAD:THREAD tid=3426467 "main thread" RUNNING {1200F10003}>: The variable FORCE is unbound. Backtrace for: #<SB-THREAD:THREAD tid=3426467 "main thread" RUNNING {1200F10003}> 0: ("top level form") [toplevel] 1: (SB-FASL::LOAD-FASL-GROUP #S(SB-FASL::FASL-INPUT :STREAM #<SB-SYS:FD-STREAM for #<(SIMPLE-BASE-STRING 213) file /home/quicklisp/.cache/common-lisp/sbcl-2.5.7.135-b5e53e27e-linux-x64/home/quicklisp/quicklisp-controller/dist/build-cache/verlet/a7015645a26cae7e4cebdf68e4e5584e2b04c536/verlet-20250925-git/sour... {120D887F0F}> {120D888043}> :TABLE #(165 #1="/home/quicklisp/quicklisp-controller/dist/build-cache/verlet/a7015645a26cae7e4cebdf68e4e5584e2b04c536/verlet-20250925-git/source/force.lisp" "VERLET" *PACKAGE* #2=#<PACKAGE "VERLET"> @FORCE DEFORCE #<PACKAGE "MGL-PAX"> MACRO (DEFORCE MACRO) FORCE LOCATIVE ...) :STACK #(0 #<FUNCTION #3="top level form" {120CCECDBB}> %DEFORCE DEFORCE #S(SB-C:DEFINITION-SOURCE-LOCATION :NAMESTRING #1# :INDICES 196609) #<FUNCTION (MACRO-FUNCTION DEFORCE) {B800DDBE1B}> #S(SB-C::COMPILED-DEBUG-INFO :NAME #3# :SOURCE #4=#S(SB-C::DEBUG-SOURCE :NAMESTRING #1# :CREATED 3967003382 :START-POSITIONS NIL :PLIST NIL) :PACKAGE #2# :FUN-MAP #(12 103 0 37 0 7 71 39 3 69 52 3 ...) :CONTEXTS #(-5854 -3934 -3065) :REST #3#) 0 NIL 15728768 SB-C::%DEFMACRO 12320896 ...) :NAME-BUFFER #("