~mdw
/
sod
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
doc/sod.sty: Hack underscores in the labels generated by `describe'.
[sod]
/
src
/
c-types-impl.lisp
diff --git
a/src/c-types-impl.lisp
b/src/c-types-impl.lisp
index
be2c055
..
4a0f6e2
100644
(file)
--- a/
src/c-types-impl.lisp
+++ b/
src/c-types-impl.lisp
@@
-431,6
+431,7
@@
(make-instance 'c-function-type :subtype subtype
:arguments (if (and arguments
(null (cdr arguments))
(make-instance 'c-function-type :subtype subtype
:arguments (if (and arguments
(null (cdr arguments))
+ (not (eq (car arguments) :ellipsis))
(eq (argument-type (car arguments))
c-type-void))
nil
(eq (argument-type (car arguments))
c-type-void))
nil
@@
-484,7
+485,7
@@
(list (argument-name arg) (argument-type arg))))
(c-function-arguments type))))
(list (argument-name arg) (argument-type arg))))
(c-function-arguments type))))
-(export '(fun function func fn))
+(export '(fun function
()
func fn))
(define-c-type-syntax fun (ret &rest args)
"Return the type of functions which returns RET and has arguments ARGS.
(define-c-type-syntax fun (ret &rest args)
"Return the type of functions which returns RET and has arguments ARGS.