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