Commit 2a8160e6 authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

(cl-macroexpand): keep documentation from `macroexpand'.

parent 71e2ab54
...@@ -254,6 +254,13 @@ Keywords supported: :test :test-not :key" ...@@ -254,6 +254,13 @@ Keywords supported: :test :test-not :key"
(defalias 'macroexpand 'cl-macroexpand))) (defalias 'macroexpand 'cl-macroexpand)))
(defun cl-macroexpand (cl-macro &optional cl-env) (defun cl-macroexpand (cl-macro &optional cl-env)
"Return result of expanding macros at top level of FORM.
If FORM is not a macro call, it is returned unchanged.
Otherwise, the macro is expanded and the expansion is considered
in place of FORM. When a non-macro-call results, it is returned.
The second optional arg ENVIRONMENT species an environment of macro
definitions to shadow the loaded ones for use in file byte-compilation."
(let ((cl-macro-environment cl-env)) (let ((cl-macro-environment cl-env))
(while (progn (setq cl-macro (funcall cl-old-macroexpand cl-macro cl-env)) (while (progn (setq cl-macro (funcall cl-old-macroexpand cl-macro cl-env))
(and (symbolp cl-macro) (and (symbolp cl-macro)
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment