From bd5bea43e6af1df10c8c31454639bf4a3a5f484a Mon Sep 17 00:00:00 2001 From: Mark Wooding Date: Thu, 22 Oct 2015 00:46:00 +0100 Subject: [PATCH] mdw-base.lisp: Make locative slots be read-only. --- mdw-base.lisp | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) 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) -- 2.11.0