Commit 860323d9 authored by pfdietz's avatar pfdietz

Fixed a broken test. REVERSE is supposed to return a SIMPLE-ARRAY when called...

Fixed a broken test.  REVERSE is supposed to return a SIMPLE-ARRAY when called on a nonsimple vector.
parent 786ab33f
......@@ -34,10 +34,9 @@
(let* ((x (make-array 5 :initial-contents '(1 2 3 4 5)
:fill-pointer t :adjustable t))
(y (reverse x)))
(values y x (equal (type-of x) (type-of y))))
(values y x))
#(5 4 3 2 1)
#(1 2 3 4 5)
nil)
#(1 2 3 4 5))
(deftest reverse-bitstring.1
(reverse #*)
......
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