[funds-cvs] r160 - trunk/funds/src/heap

Author: abaine Date: Sun Aug 19 12:17:35 2007 New Revision: 160

Modified: trunk/funds/src/heap/heap.lisp Log: Added documentation to make-heap.

Modified: trunk/funds/src/heap/heap.lisp ============================================================================== --- trunk/funds/src/heap/heap.lisp (original) +++ trunk/funds/src/heap/heap.lisp Sun Aug 19 12:17:35 2007 @@ -18,6 +18,7 @@

(defun make-heap (&key (priority 0 p-p) value (left (make-heap-leaf)) (right (make-heap-leaf))) + "An empty binary heap." (if p-p (make-instance 'heap :priority priority