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