[funds-cvs] r44 - trunk/funds/tests/trees

[abaine at common-lisp.net]

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