(defmethod make-sod-message
((class sod-class) name type pset &optional location)
(with-default-error-location (location)
- (let ((message (make-instance (get-property pset :message-class :symbol
- 'standard-message)
- :class class
- :name name
- :type type
- :location (file-location location)
- :pset pset)))
+ (let* ((msg-class (or (get-property pset :message-class :symbol)
+ (and (get-property pset :combination :keyword)
+ 'aggregating-message)
+ 'standard-message))
+ (message (make-instance msg-class
+ :class class
+ :name name
+ :type type
+ :location (file-location location)
+ :pset pset)))
(with-slots (messages) class
(setf messages (append messages (list message)))))))
(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")))