summary |
shortlog |
log |
commit | commitdiff |
tree
raw |
patch |
inline | side by side (from parent 1:
b0ff693)
They can also contain `:ellipsis' markers.
(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
(with-slots (body type) method
(unless (or (not body)
(every (lambda (arg)
(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")))
(eq (argument-type arg) (c-type void))))
(c-function-arguments type)))
(error "Abstract declarators not permitted in method definitions")))