Fix with-compilation-unit

diff --git a/lispstrack.lisp b/lispstrack.lisp
index 8de2794..e3bcb6f 100644 (file)
--- a/lispstrack.lisp
+++ b/lispstrack.lisp
@@ -654,14 +654,10 @@
 
 (defmacro with-compilation-unit (&rest body)
   `(progn
-     (setq *env* nil)
-     (setq *fenv* nil)
      (setq *compilation-unit-checks* nil)
      ,@body
      (dolist (check *compilation-unit-checks*)
        (funcall check))
-     (setq *env* nil)
-     (setq *fenv* nil)
      (setq *compilation-unit-checks* nil)))
 
 (defun ls-compile-toplevel (sexp)

diff --git a/test.lisp b/test.lisp
index b8bde69..9a6dbab 100644 (file)
--- a/test.lisp
+++ b/test.lisp
@@ -908,14 +908,10 @@
 
 (defmacro with-compilation-unit (&rest body)
   `(progn
-     (setq *env* nil)
-     (setq *fenv* nil)
      (setq *compilation-unit-checks* nil)
      ,@body
      (dolist (check *compilation-unit-checks*)
        (funcall check))
-     (setq *env* nil)
-     (setq *fenv* nil)
      (setq *compilation-unit-checks* nil)))
 
 
@@ -950,3 +946,6 @@
 
 (defun eval (x)
   (js-eval (ls-compile x nil nil)))
+
+
+(debug (ls-compile '(+ 1 2) nil nil))