X-Git-Url: https://git.distorted.org.uk/~mdw/lisp/blobdiff_plain/2b525992937f759211ea42e6e6f2bf0e695de96c..bd5bea43e6af1df10c8c31454639bf4a3a5f484a:/mdw-base.lisp?ds=sidebyside

diff --git a/mdw-base.lisp b/mdw-base.lisp
index b9e9257..6cdcccf 100644
--- a/mdw-base.lisp
+++ b/mdw-base.lisp
@@ -412,8 +412,8 @@
 (export 'locp)
 (defstruct (loc (:predicate locp) (:constructor make-loc (reader writer)))
   "Locative data type.  See `locf' and `ref'."
-  (reader (slot-uninitialized) :type function)
-  (writer (slot-uninitialized) :type function))
+  (reader (slot-uninitialized) :type function :read-only t)
+  (writer (slot-uninitialized) :type function :read-only t))
 
 (export 'locf)
 (defmacro locf (place &environment env)