X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=tests.lisp;h=7ab59b369b08452956c9a92c4489e9026b593edb;hb=469b6701df91f6a97a862d6d1b3dd2893a923c2e;hp=fb6f977cc5c63481c8e242eb4552aebafa854f11;hpb=251043d4c96c996a35cd48c4452b03fbef2ea21a;p=kmrcl.git

diff --git a/tests.lisp b/tests.lisp
index fb6f977..7ab59b3 100644
--- 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)