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

[abaine at common-lisp.net]

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