(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
(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.