From e2b4fc178f0288e0e47b1b98bc442ad7c1eb554a Mon Sep 17 00:00:00 2001 From: Attila Lendvai Date: Thu, 9 Nov 2006 12:10:33 +0100 Subject: [PATCH] FIX: gentree typo/unsaved file --- src/random.lisp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/random.lisp b/src/random.lisp index 1052f35..53f423b 100644 --- a/src/random.lisp +++ b/src/random.lisp @@ -242,7 +242,7 @@ the approximate size of the tree, but don't try anything above 30, you have been warned. ELEMENTS must be a generator which will produce the elements." (labels ((rec (&optional (current-depth 0)) - (let ((key (random (+ 3 (- depth current-depth))))) + (let ((key (random (+ 3 (- size current-depth))))) (cond ((> key 2) (list (rec (+ current-depth 1)) (rec (+ current-depth 1)))) -- 1.7.10.4