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

Author: abaine Date: Tue Jul 10 23:17:18 2007 New Revision: 79

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

Modified: trunk/funds/src/trees/bt.lisp ============================================================================== --- trunk/funds/src/trees/bt.lisp (original) +++ trunk/funds/src/trees/bt.lisp Tue Jul 10 23:17:18 2007 @@ -32,3 +32,10 @@ tree (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))