From: Mark Wooding <mdw@distorted.org.uk>
Date: Wed, 21 Oct 2015 23:46:28 +0000 (+0100)
Subject: src/c-types-proto.lisp: Make `argument' objects be immutable.
X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~mdw/git/sod/commitdiff_plain/1db50cbf5cbc11af49dea82518996266a73079db?ds=inline

src/c-types-proto.lisp: Make `argument' objects be immutable.

We have no need to change them.
---

diff --git a/src/c-types-proto.lisp b/src/c-types-proto.lisp
index 7134962..2193ec1 100644
--- a/src/c-types-proto.lisp
+++ b/src/c-types-proto.lisp
@@ -243,9 +243,9 @@ (defstruct (argument (:constructor make-argument (name type
 						  &aux (%type type)))
 		     (:predicate argumentp))
   "Simple structure representing a function argument."
-  name
-  %type)
-(define-access-wrapper argument-type argument-%type)
+  (name nil :type t :read-only t)
+  (%type nil :type c-type :read-only t))
+(define-access-wrapper argument-type argument-%type :read-only t)
 
 (export 'commentify-argument-name)
 (defgeneric commentify-argument-name (name)