X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fmacroexpand.lisp;h=8f467e5213b45eb1e579039a69f12c3f28fe9a46;hb=c1aeac123df223746249567a9c0d2f656d1222cb;hp=4806e01d6f010b8947747cc7639f72a8158ab810;hpb=cea4896b2482b7b2b429c1631d774b4cfbc0efba;p=sbcl.git

diff --git a/src/code/macroexpand.lisp b/src/code/macroexpand.lisp
index 4806e01..8f467e5 100644
--- a/src/code/macroexpand.lisp
+++ b/src/code/macroexpand.lisp
@@ -50,7 +50,7 @@
 				;; in what it sends and liberal in what it
 				;; accepts" by doing the defaulting itself.
 				;; -- WHN 19991128
-				(or env (make-null-lexenv)))
+				(coerce-to-lexenv env))
 		       t)
 	       (values form nil))))
 	((symbolp form)