(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)