Fix let-around docstring/interactive-form order

This commit is contained in:
Ivan Malison 2016-08-12 14:58:11 -07:00
parent 7e40e085e6
commit aa647ee190
No known key found for this signature in database
GPG Key ID: 62530EFBE99DC2F8

View File

@ -601,7 +601,7 @@ the ~:around~ keyword of advice-add.
(docstring-form (format "Call `%s' with bindings: %s." orig-func forms)) (docstring-form (format "Call `%s' with bindings: %s." orig-func forms))
(additional-forms (list docstring-form))) (additional-forms (list docstring-form)))
(when orig-interactive-form (when orig-interactive-form
(push orig-interactive-form additional-forms)) (nconc additional-forms (list orig-interactive-form)))
`(lambda (&rest args) `(lambda (&rest args)
,@additional-forms ,@additional-forms
(let ,forms (let ,forms