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

[abaine at common-lisp.net]

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