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

[abaine at common-lisp.net]

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