From 1f44333fc075dde04f8906c6f9da325ec6b00822 Mon Sep 17 00:00:00 2001
From: Dan Ballard <dan.ballard@fcv.ca>
Date: Mon, 4 Jul 2011 13:11:45 -0700
Subject: [PATCH] fixed matrix*, now it works!

---
 3bb-1.lisp | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

diff --git a/3bb-1.lisp b/3bb-1.lisp
index 14da5d9..141bf42 100644
--- a/3bb-1.lisp
+++ b/3bb-1.lisp
@@ -57,9 +57,8 @@
 (defun rotate* (m v)
   (let ((result (make-array 3 :initial-element 0)))
     (dotimes (x 3)
-      (let ((cell (aref v x)))
-	(dotimes (y 3)
-	  (incf (aref result x) (* cell (aref m x y))))))
+      (dotimes (y 3)
+	(incf (aref result x) (* (aref v y) (aref m x y)))))
     result))