-;;; Return, as multiple-values, a body, possibly a declare form to put where
-;;; this code is inserted, the documentation for the parsed body, and bounds
-;;; on the number of arguments.
+;;; Return, as multiple values, a body, possibly a declare form to put
+;;; where this code is inserted, the documentation for the parsed
+;;; body, and bounds on the number of arguments.
`(,error-fun 'arg-count-error
:kind ',error-kind
,@(when name `(:name ',name))
`(,error-fun 'arg-count-error
:kind ',error-kind
,@(when name `(:name ',name))