X-Git-Url: https://git.distorted.org.uk/~mdw/lisp/blobdiff_plain/f94dcd9764b69dbd80d5d4f2083bfb5bf731b425..171bb403b78e6868ee77250681b7c5adb0c85bd9:/heap.lisp diff --git a/heap.lisp b/heap.lisp index 9f099c0..53eb2b8 100644 --- a/heap.lisp +++ b/heap.lisp @@ -117,7 +117,7 @@ (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