From 96baf945d21b95c5e79a10cbddecf80007f26366 Mon Sep 17 00:00:00 2001
From: Mark Wooding <mdw@distorted.org.uk>
Date: Tue, 17 Nov 2015 17:35:46 +0000
Subject: [PATCH] src/pset-proto.lisp: Remove the write wrapper for `p-%type'.

---
 src/pset-proto.lisp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/pset-proto.lisp b/src/pset-proto.lisp
index d77a058..eaf3a77 100644
--- a/src/pset-proto.lisp
+++ b/src/pset-proto.lisp
@@ -61,7 +61,7 @@
   (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)
-- 
2.11.0