Update arrays.lsp

TeMPOraL · Mar 5, 2014 · 1e48039 · 1e48039
1 parent 13146b5
commit 1e48039
Showing 1 changed file with 2 additions and 3 deletions.
diff --git a/koans/arrays.lsp b/koans/arrays.lsp
@@ -57,8 +57,7 @@
     (assert-equal (aref x 1 0) 5)
     (assert-equal (array-dimensions x) '(2 2))
     (adjust-array x '(3 4))
-    (assert-equal (array-dimensions x) '(3 4))
-    (assert-equal (aref x 2 3) ____)))
+    (assert-equal (array-dimensions x) '(3 4))))
 
 
 (define-test test-make-array-from-list
@@ -76,4 +75,4 @@
     (dotimes (i (* 2 2 2 2))
       (setf (row-major-aref my-array i) i))
     (assert-equal (aref my-array 0 0 0 0) ____)
-    (assert-equal (aref my-array 1 1 1 1) ____)))
+    (assert-equal (aref my-array 1 1 1 1) ____)))