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