bug#19814: 24.4; pcase-lambda

[Stefan Monnier]

>> Maybe it'd be better to just splitting the body into 2 parts:
>> - "declarations", which would include docstrings, `declare's, and interactive
>> - code.
> Coincidentally I have done just that locally :)

> (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))

No, I meant (DECLS . BODY) such that

  (let ((x (macroexp-parse-body body)))
    (append (car x) (cdr x)))

return something `equal' to `body'.




        Stefan