X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Feval.lisp;h=70bd2eab5ce49f23cd3356fbf0bdadd8da67301d;hb=4099112d8e4687f266922f0e044fba8f17dddcf6;hp=9bd74e2563b5e5c1535389eb0cb6ede9b49bd3e4;hpb=d711661391ca1b67d7e1a39d6f89aedcd66b489e;p=sbcl.git

diff --git a/src/code/eval.lisp b/src/code/eval.lisp
index 9bd74e2..70bd2ea 100644
--- a/src/code/eval.lisp
+++ b/src/code/eval.lisp
@@ -77,7 +77,8 @@
   #!+sb-doc
   "Evaluate the argument in a null lexical environment, returning the
   result or results."
-  (eval-in-lexenv original-exp (make-null-lexenv)))
+  (with-compilation-unit ()
+    (eval-in-lexenv original-exp (make-null-lexenv))))
 
 ;;; Pick off a few easy cases, and the various top level EVAL-WHEN
 ;;; magical cases, and call %EVAL for the rest.