From 71b6fc1cd91159a5ff28432701dea1fe85831df1 Mon Sep 17 00:00:00 2001 From: Attila Lendvai Date: Sat, 9 Dec 2006 16:47:34 +0100 Subject: [PATCH] Rebind *package* also when compiling the tests --- src/test.lisp | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/src/test.lisp b/src/test.lisp index f5c8a82..99bc8bb 100644 --- a/src/test.lisp +++ b/src/test.lisp @@ -58,7 +58,8 @@ SUITE defaults to the current value of *SUITE*." :runtime-package ,*package* :test-lambda (lambda () - (funcall (compile nil '(lambda () ,@body)))) + (funcall (let ((*package* ,*package*)) + (compile nil '(lambda () ,@body))))) :description ,description :depends-on ',depends-on)) ,(if suite-supplied-p -- 1.7.10.4