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

[abaine at common-lisp.net]

Author: abaine
Date: Tue Jul 31 11:49:46 2007
New Revision: 100

Modified:
   trunk/funds/src/trees/constructors.lisp
Log:
Hid functionality of constructor by simplifying  make-avl-tree.

Modified: trunk/funds/src/trees/constructors.lisp
==============================================================================
--- trunk/funds/src/trees/constructors.lisp	(original)
+++ trunk/funds/src/trees/constructors.lisp	Tue Jul 31 11:49:46 2007
@@ -33,16 +33,8 @@
 (defun make-binary-tree ()
   (make-bt-leaf))
 
-(defun make-avl-tree (&key (key nil k-p) (value nil) 
-		      (left (make-avl-leaf)) (right (make-avl-leaf)))
-  (if k-p 
-      (make-instance 'avl-tree
-		     :key key
-		     :value value
-		     :left left
-		     :right right
-		     :height (parent-height left right))
-      (make-avl-leaf)))
+(defun make-avl-tree ()
+  (make-avl-leaf))
 
 (defun make-heap (&key (priority 0 p-p) value 
 		  (left (make-heap-leaf)) (right (make-heap-leaf)))