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

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