From f2eb4cea36459e9a08b363650c592ab26dea0fe8 Mon Sep 17 00:00:00 2001 From: Dan Ballard Date: Wed, 17 Aug 2011 22:01:11 -0700 Subject: [PATCH] fix an error --- engine.lisp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/engine.lisp b/engine.lisp index 4a2a01e..f1cd482 100644 --- a/engine.lisp +++ b/engine.lisp @@ -51,7 +51,7 @@ (defmethod get-accel ((src engine-object) (target game-object)) - (let* ((scalar-proj (scalar-proj (scale-vector-1 (direction (force (body src)))) (scale-vector-1 (coords (body src))))) + (let* ((scalar-proj (scalar-proj (scale-vector-1 (direction (force src))) (scale-vector-1 (coords (body src))))) (accel (/ (newtons (force src)) (mass (body target)))) (accel-vec (scale-vector scalar-proj accel))) accel-vec))