d79f5a56b014 — Nolan Prescott 5 years ago 
rename `transpose-matrix` to just `transpose`

because I like it better this way
patch browse 
1 files changed, 3 insertions(+), 3 deletions(-)

M tracer.lisp

M tracer.lisp +3 -3
@@ 181,7 181,7 @@ 
                             (0 0 1 0)
                             (0 0 0 1)))
 
-(defun transpose-matrix (m)
+(defun transpose (m)
   (let ((result (make-array (array-dimensions m))))
     (dotimes (i (array-dimension m 0) result)
       (dotimes (j (array-dimension m 1))

          
@@ 389,13 389,13 @@ 0 0 0 0 0 0 0 0 0 0
                (9 8 0 8)
                (1 8 5 3)
                (0 0 5 6))))
-    (check (equalp (transpose-matrix a) #2A((0 9 1 0)
+    (check (equalp (transpose a) #2A((0 9 1 0)
                                             (9 8 8 0)
                                             (3 0 5 5)
                                             (0 8 3 6))))))
 
 (deftest transpose-identity-matrix
-  (check (equalp (transpose-matrix identity-matrix)
+  (check (equalp (transpose identity-matrix)
                  identity-matrix)))
 
 (deftest verify-2x2-determinant