From 5345da2a9bf3e0f10791b7e89e9caea66ccdc957 Mon Sep 17 00:00:00 2001
From: Kevin Rosenberg <kevin@rosenberg.net>
Date: Mon, 17 May 2010 19:44:16 -0600
Subject: [PATCH] Ensure key is unique for btree test

---
 tests.lisp | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

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)
-- 
GitLab