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

[abaine at common-lisp.net]

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))