Skip to content
Snippets Groups Projects
Commit 4327269d authored by wlott's avatar wlott
Browse files

Use *lexical-environment*, not *fenv*.

parent 441cee2f
No related branches found
No related tags found
No related merge requests found
......@@ -747,14 +747,15 @@
(defun preprocessor-macroexpand (form)
(handler-case #+new-compiler (macroexpand-1 form *lexical-environment*)
#-new-compiler
(if (consp form)
(let* ((name (car form))
(exp (or (cddr (assoc name *fenv*))
(info function macro-function name))))
(if exp
(funcall exp form *fenv*)
form))
form)
(let ((fenv (lexenv-functions *lexical-environment*)))
(if (consp form)
(let* ((name (car form))
(exp (or (cddr (assoc name fenv))
(info function macro-function name))))
(if exp
(funcall exp form fenv)
form))
form))
(error (condition)
(compiler-error "(during macroexpansion)~%~A" condition))))
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment