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

Author: abaine Date: Tue Jul 31 11:54:33 2007 New Revision: 101

Modified: trunk/funds/src/trees/avl.lisp Log: Added &key arguments to make-avl-node.

Modified: trunk/funds/src/trees/avl.lisp ============================================================================== --- trunk/funds/src/trees/avl.lisp (original) +++ trunk/funds/src/trees/avl.lisp Tue Jul 31 11:54:33 2007 @@ -64,7 +64,7 @@ :right right :left left))

-(defun make-avl-node (key value left right) +(defun make-avl-node (&key key value (left make-avl-tree) (right make-avl-tree)) (make-instance 'avl-tree :key key :value value