mdw-base.lisp: Make locative slots be read-only.

[lisp] / heap.lisp

diff --git a/heap.lisp b/heap.lisp
index 9f099c068de2d015b0a68235c7df56a4a56c545e..53eb2b83003f3cb6389104161487ac1b0ad26127 100644 (file)
--- a/heap.lisp
+++ b/heap.lisp
@@ -117,7 +117,7 @@ (defstruct (heap (:predicate heapp) (:constructor %make-heap))
 
 (defun make-heap
     (&key (compare #'<=) (key #'identity)
 
 (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
   "Return a new heap.
 
    COMPARE is a partial-order predicate: (COMPARE X Y) should return true if