[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
bug#19814: 24.4; pcase-lambda
From: |
Leo Liu |
Subject: |
bug#19814: 24.4; pcase-lambda |
Date: |
Mon, 09 Feb 2015 09:14:30 +0800 |
User-agent: |
Gnus/5.13 (Gnus v5.13) Emacs/24.4 (OS X 10.10.2) |
On 2015-02-09 03:18 +0800, Stefan Monnier wrote:
> 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))
Leo