
31 Jul
2007
31 Jul
'07
3:47 p.m.
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)))
6547
Age (days ago)
6547
Last active (days ago)
0 comments
1 participants
participants (1)
-
abaine@common-lisp.net