src/pset-proto.lisp: Remove the write wrapper for `p-%type'.

diff --git a/src/pset-proto.lisp b/src/pset-proto.lisp
index d77a058e5950ebc332677553d2279314e6514586..eaf3a7732e08d7d7c90b738ed2d7448d369598b9 100644 (file)
--- a/src/pset-proto.lisp
+++ b/src/pset-proto.lisp
@@ -61,7 +61,7 @@ (defstruct (property
   (location (file-location nil) :type file-location)
   (key nil :type symbol)
   (seenp nil :type boolean))
-(define-access-wrapper p-type p-%type)
+(define-access-wrapper p-type p-%type :read-only t)
 
 (export 'decode-property)
 (defgeneric decode-property (raw)