From: David Vazquez <davazp@gmail.com>
Date: Sat, 22 Dec 2012 02:19:53 +0000 (+0000)
Subject: Fix with-compilation-unit
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=3bfcf7f1c9dba4e6fd8cb064f776f8771780e85d;p=jscl.git

Fix with-compilation-unit
---

diff --git a/lispstrack.lisp b/lispstrack.lisp
index 8de2794..e3bcb6f 100644
--- 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
--- 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))