They can also contain `:ellipsis' markers.
(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
(with-slots (body type) method
(unless (or (not body)
(every (lambda (arg)
- (or (argument-name arg)
+ (or (eq arg :ellipsis)
+ (argument-name arg)
(eq (argument-type arg) (c-type void))))
(c-function-arguments type)))
(error "Abstract declarators not permitted in method definitions")))