From c5bb27d154a6c3013971418e84bd3d557170312f Mon Sep 17 00:00:00 2001 From: pfdietz <pfdietz@localhost> Date: Mon, 11 Nov 2002 01:48:33 +0000 Subject: [PATCH] fixed problem in random input generator that was breaking the remove duplicates tests. --- ansi-tests/remove-aux.lsp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/ansi-tests/remove-aux.lsp b/ansi-tests/remove-aux.lsp index c8e91ef7..da01abe4 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) -- GitLab