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

Author: abaine Date: Thu Aug 2 15:35:51 2007 New Revision: 109

Modified: trunk/funds/src/trees/bt.lisp Log: Deleted attach-bt.

Modified: trunk/funds/src/trees/bt.lisp ============================================================================== --- trunk/funds/src/trees/bt.lisp (original) +++ trunk/funds/src/trees/bt.lisp Thu Aug 2 15:35:51 2007 @@ -33,13 +33,6 @@ (f (bt-left tree))))) (f (bt-right tree))))

-(defun attach-bt (root &key left right) - (make-instance 'binary-tree - :key (bt-key root) - :value (bt-value root) - :left left - :right right)) - (defun side-to-insert (tree key &key order) (if (funcall order key (bt-key tree)) :left