From 860323d90710143ef3496e972fac59651e733b85 Mon Sep 17 00:00:00 2001 From: pfdietz Date: Sat, 12 Oct 2002 01:27:12 +0000 Subject: [PATCH] Fixed a broken test. REVERSE is supposed to return a SIMPLE-ARRAY when called on a nonsimple vector. --- ansi-tests/reverse.lsp | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) diff --git a/ansi-tests/reverse.lsp b/ansi-tests/reverse.lsp index 375fb82..67aa479 100644 --- a/ansi-tests/reverse.lsp +++ b/ansi-tests/reverse.lsp @@ -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 #*) -- GitLab