+ ;;
+ ;; Don't allow a method-body here if the message takes a
+ ;; varargs list, because we don't have a name for the
+ ;; `va_list' parameter.
+ (let ((message (make-sod-message class name type
+ sub-pset scanner)))
+ (if (varargs-message-p message)
+ (parse #\;)
+ (parse (or #\; (parse-method-item sub-pset
+ type nick name))))))