Author: abaine Date: Thu Aug 2 12:14:58 2007 New Revision: 108
Modified: trunk/funds/src/trees/tree-insert.lisp Log: Corrected make-avl-tree to stitch-avl-tree.
Modified: trunk/funds/src/trees/tree-insert.lisp ============================================================================== --- trunk/funds/src/trees/tree-insert.lisp (original) +++ trunk/funds/src/trees/tree-insert.lisp Thu Aug 2 12:14:58 2007 @@ -55,10 +55,10 @@ (defmethod tree-insert ((tree avl-tree) key value &key (test #'eql) (order #'<)) (if (funcall test key (bt-key tree)) - (make-avl-tree :key key - :value value - :left (bt-left tree) - :right (bt-right tree)) + (stitch-avl-tree :key key + :value value + :left (bt-left tree) + :right (bt-right tree)) (let* ((temp (call-next-method)) (side (side-to-insert tree key :order order)) (outside (tree-child temp :side side))