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 713496211a154010d3c24c3ecc04d299678c1881..2193ec17b9b9120dc3bb7f8f647feda2cba7c1e3 100644 (file)
--- 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."
                                                  &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)
 
 (export 'commentify-argument-name)
 (defgeneric commentify-argument-name (name)