From: Kevin Rosenberg <kevin@rosenberg.net>
Date: Tue, 18 May 2010 01:44:16 +0000 (-0600)
Subject: Ensure key is unique for btree test
X-Git-Tag: v1.103~1
X-Git-Url: http://git.kpe.io/?p=kmrcl.git;a=commitdiff_plain;h=5345da2a9bf3e0f10791b7e89e9caea66ccdc957

Ensure key is unique for btree test
---

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)