(defun make-heap
(&key (compare #'<=) (key #'identity)
- (type 't) (init-size 16) (contents nil contentsp))
+ (type 't) (init-size 16) (contents nil contentsp))
"Return a new heap.
COMPARE is a partial-order predicate: (COMPARE X Y) should return true if