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

[abaine at common-lisp.net]

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