Author: abaine Date: Thu Aug 2 11:39:01 2007 New Revision: 105
Modified: trunk/funds/src/trees/avl.lisp Log: Deleted attach-avl and make-avl-node, which are obviated by stitch-avl-tree.
Modified: trunk/funds/src/trees/avl.lisp ============================================================================== --- trunk/funds/src/trees/avl.lisp (original) +++ trunk/funds/src/trees/avl.lisp Thu Aug 2 11:39:01 2007 @@ -64,17 +64,3 @@ :key key :value value :left left :right right :height (parent-height left right))) - -(defun attach-avl (root &key (right (make-avl-tree)) (left (make-avl-tree))) - (make-avl-tree :key (bt-key root) - :value (bt-key root) - :right right - :left left)) - -(defun make-avl-node (&key key value (left make-avl-tree) (right make-avl-tree)) - (make-instance 'avl-tree - :key key - :value value - :left left - :right right - :height (parent-height left right)))