diff --git a/compiler/ir1tran.lisp b/compiler/ir1tran.lisp index d615e62cea5fb9d66f3a206c45fcd6e7b046c9a7..ec053049c23281767699ed3422a162807edc46f8 100644 --- a/compiler/ir1tran.lisp +++ b/compiler/ir1tran.lisp @@ -193,7 +193,10 @@ (defun ir1-convert-macro (start cont fun form) (declare (type continuation start cont)) (ir1-convert start cont - (handler-case (funcall fun form *lexical-environment*) + (handler-case (funcall fun form + #+new-compiler *lexical-environment* + #-new-compiler + (lexenv-functions *lexical-environment*)) (error (condition) (compiler-error "(during macroexpansion)~%~A" condition)))))