SBCL 2.5.7.135-b5e53e27e / ASDF 3.3.5
; file: /home/quicklisp/quicklisp-controller/dist/build-cache/verlet/50600c8260938a374760ffd159e098f6c1505e50/verlet-20250831-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=907244 "main thread" RUNNING {1200F10003}>: The variable FORCE is unbound. Backtrace for: #<SB-THREAD:THREAD tid=907244 "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/50600c8260938a374760ffd159e098f6c1505e50/verlet-20250831-git/sour... {120D426E8F}> {120D426FC3}> :TABLE #(171 #1="/home/quicklisp/quicklisp-controller/dist/build-cache/verlet/50600c8260938a374760ffd159e098f6c1505e50/verlet-20250831-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" {120CA7985B}> DEFORCE #S(SB-C:DEFINITION-SOURCE-LOCATION :NAMESTRING #1# :INDICES 163841) #<FUNCTION (MACRO-FUNCTION DEFORCE) {B800DBD73B}> #S(SB-C::COMPILED-DEBUG-INFO :NAME #3# :SOURCE #4=#S(SB-C::DEBUG-SOURCE :NAMESTRING #1# :CREATED 3847802661 :START-POSITIONS NIL :PLIST NIL) :PACKAGE #2# :FUN-MAP #(12 103 0 23 0 5 71 47 3 69 48 3 ...) :CONTEXTS -2974 :REST #3#) 0 NIL 10092672 SB-C::%DEFMACRO 6684800 DEFINE-SYMBOL-LOCATIVE-TYPE ...) :NAME-BUFFER #("