Commit 560a875e authored by pfdietz's avatar pfdietz
Browse files

Fixed typo

parent 897955b7
......@@ -253,7 +253,7 @@
(a2 (adjust-array a1 '(2 3) :element-type 'character)))
(assert (if (adjustable-array-p a1)
(eq a1 a2)
(equal (array-dimensions a1) '(2 3))))
(equal (array-dimensions a2) '(2 3))))
(assert (not (typep 0 (array-element-type a2))))
a2)
#2a((#\1 #\2 #\3)(#\3 #\4 #\5)))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment