miyamuko/xl-alexandria — pull request #1 by bowbow99 (2012-01-08 04:21:45+00:00)
Title: parse-body で interactive も取り出せるように

案の定欲しくなったので実装してみました。

(destructuring-bind (defun name lambda-list &body body)
`(defun foo (a)
"何かするかも"
(interactive "p")
(bar a))
(parse-body body :documentation t :interactive t))
=> ((bar a))
=> nil
=> "何かするかも"
=> (interactive "p")