From 3bfcf7f1c9dba4e6fd8cb064f776f8771780e85d Mon Sep 17 00:00:00 2001 From: David Vazquez Date: Sat, 22 Dec 2012 02:19:53 +0000 Subject: [PATCH] Fix with-compilation-unit --- lispstrack.lisp | 4 ---- test.lisp | 7 +++---- 2 files changed, 3 insertions(+), 8 deletions(-) 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)) -- 1.7.10.4