diff --git a/ansi-tests/remove-aux.lsp b/ansi-tests/remove-aux.lsp index c8e91ef72c90f6855a2cd32ef2ac616d2eb9c60e..da01abe4f042cd230493e607b9fe6dc6bb54cb79 100644 --- a/ansi-tests/remove-aux.lsp +++ b/ansi-tests/remove-aux.lsp @@ -35,7 +35,7 @@ (let ((seq (if (and (subtypep type 'vector) (coin 3)) (make-array - (list (+ len (random len))) + (list (+ len (random (1+ len)))) :initial-element (make-random-element element-type) :fill-pointer len :element-type element-type)