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

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