~mdw
/
sod
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
doc/runtime.tex: Decide that C `describe' synopses include a trailing `;'.
[sod]
/
src
/
c-types-proto.lisp
diff --git
a/src/c-types-proto.lisp
b/src/c-types-proto.lisp
index
9481a99
..
b9b61bf
100644
(file)
--- a/
src/c-types-proto.lisp
+++ b/
src/c-types-proto.lisp
@@
-149,7
+149,7
@@
This function is suitable for use in `format's ~/.../ command."))
This function is suitable for use in `format's ~/.../ command."))
-(export '
expand-c-type-spec
)
+(export '
(expand-c-type-spec expand-c-type-form)
)
(eval-when (:compile-toplevel :load-toplevel :execute)
(defgeneric expand-c-type-spec (spec)
(:documentation
(eval-when (:compile-toplevel :load-toplevel :execute)
(defgeneric expand-c-type-spec (spec)
(:documentation
@@
-239,11
+239,13
@@
;;; Function arguments.
(export '(argument argumentp make-argument argument-name argument-type))
;;; 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
(: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)
(export 'commentify-argument-name)
(defgeneric commentify-argument-name (name)