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)))