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

Author: abaine Date: Tue Jul 31 10:59:57 2007 New Revision: 96 Modified: trunk/funds/src/trees/constructors.lisp Log: superficial edit. Modified: trunk/funds/src/trees/constructors.lisp ============================================================================== --- trunk/funds/src/trees/constructors.lisp (original) +++ trunk/funds/src/trees/constructors.lisp Tue Jul 31 10:59:57 2007 @@ -44,8 +44,6 @@ :height (parent-height left right)) (make-avl-leaf))) - - (defun make-heap (&key (priority 0 p-p) value (left (make-heap-leaf)) (right (make-heap-leaf))) (if p-p