[funds-cvs] r107 - trunk/funds/src/trees

[abaine at common-lisp.net]

Author: abaine
Date: Thu Aug  2 12:14:20 2007
New Revision: 107

Modified:
   trunk/funds/src/trees/avl.lisp
Log:
Corrected nesting problem.

Modified: trunk/funds/src/trees/avl.lisp
==============================================================================
--- trunk/funds/src/trees/avl.lisp	(original)
+++ trunk/funds/src/trees/avl.lisp	Thu Aug  2 12:14:20 2007
@@ -59,7 +59,7 @@
 		      (other-side side) new-outside)))
 
 (defun stitch-avl-tree (&key root (key (bt-key root)) (value (bt-value root))
-			 (left (make-avl-leaf)) (right make-avl-leaf))
+			 (left (make-avl-leaf)) (right (make-avl-leaf)))
   (make-instance 'avl-tree
 		 :key key :value value
 		 :left left :right right