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

[abaine at common-lisp.net]

Author: abaine
Date: Tue Jul 31 11:47:57 2007
New Revision: 99

Modified:
   trunk/funds/src/trees/avl.lisp
Log:
Added make-avl-node function.

Modified: trunk/funds/src/trees/avl.lisp
==============================================================================
--- trunk/funds/src/trees/avl.lisp	(original)
+++ trunk/funds/src/trees/avl.lisp	Tue Jul 31 11:47:57 2007
@@ -63,3 +63,11 @@
 		 :value (bt-key root)
 		 :right right
 		 :left left))
+
+(defun make-avl-node (key value left right)
+  (make-instance 'avl-tree
+		 :key key
+		 :value value
+		 :left left
+		 :right right
+		 :height (parent-height left right)))