From 5345da2a9bf3e0f10791b7e89e9caea66ccdc957 Mon Sep 17 00:00:00 2001 From: Kevin Rosenberg 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) -- 2.34.1