bug#19814: 24.4; pcase-lambda

[Stefan Monnier]

> +(defun macroexp-parse-body (exps)
> +  "Parse EXPS into (DOC DECLARE-FORM INTERACTIVE-FORM . BODY)."
> +  `(,(and (stringp (car exps))
> +          (pop exps))
> +    ,(and (eq (car-safe (car exps)) 'declare)
> +          (pop exps))
> +    ,(and (eq (car-safe (car exps)) 'interactive)
> +          (pop exps))
> +    ,@exps))

Maybe it'd be better to just splitting the body into 2 parts:
- "declarations", which would include docstrings, `declare's, and interactive
- code.


        Stefan