Author: abaine Date: Mon Jul 2 21:00:51 2007 New Revision: 44
Modified: trunk/funds/tests/trees/avl-tree-test.lisp Log: Removed print statement from random tree generation.
Modified: trunk/funds/tests/trees/avl-tree-test.lisp ============================================================================== --- trunk/funds/tests/trees/avl-tree-test.lisp (original) +++ trunk/funds/tests/trees/avl-tree-test.lisp Mon Jul 2 21:00:51 2007 @@ -2,10 +2,10 @@ (in-package :funds.tests.trees)
(defun random-tree (&key (test #'eql) (order #'<)) - (print (reduce #'(lambda (tr v) - (avl-insert tr v v :test test :order order)) + (reduce #'(lambda (tr v) + (avl-insert tr v v :test test :order order)) (loop for i below 40 collect (random 20)) - :initial-value (empty-avl-tree)))) + :initial-value (empty-avl-tree)))
(defconstant +never-equal+ #'(lambda (a b) (declare (ignore a b)) nil))