X-Git-Url: https://git.distorted.org.uk/~mdw/sod/blobdiff_plain/93348ae9e276dec213b5d543338b1e2c53a7b687..2ba6e0bde273dd3fd6c1288f53edf7b96f6442d1:/src/c-types-proto.lisp

diff --git a/src/c-types-proto.lisp b/src/c-types-proto.lisp
index a2c57cd..b9b61bf 100644
--- a/src/c-types-proto.lisp
+++ b/src/c-types-proto.lisp
@@ -239,11 +239,13 @@
 ;;; Function arguments.
 
 (export '(argument argumentp make-argument argument-name argument-type))
-(defstruct (argument (:constructor make-argument (name type))
+(defstruct (argument (:constructor make-argument (name type
+						  &aux (%type type)))
 		     (:predicate argumentp))
   "Simple structure representing a function argument."
   name
-  type)
+  %type)
+(define-access-wrapper argument-type argument-%type)
 
 (export 'commentify-argument-name)
 (defgeneric commentify-argument-name (name)