Ensure key is unique for btree test

[kmrcl.git] / tests.lisp

diff --git a/tests.lisp b/tests.lisp
index fb6f977cc5c63481c8e242eb4552aebafa854f11..7ab59b369b08452956c9a92c4489e9026b593edb 100644 (file)
--- a/tests.lisp
+++ b/tests.lisp
@@ -446,7 +446,9 @@
                                    :element-type 'fixnum
                                    :initial-element 0))
   (dotimes (i (length *btree-vector*))
-    (setf (aref *btree-vector* i) (random most-positive-fixnum)))
+    (do ((rand (random most-positive-fixnum) (random most-positive-fixnum)))
+        ((not (find rand *btree-vector* :end i))
+         (setf (aref *btree-vector* i) rand))))
   (setq *btree-vector* (sort *btree-vector* #'<)))
 
 (defun test-btree-vector (len)