add an (eval-when ...) when defining a test suite

diff --git a/t/ref2test.lisp b/t/ref2test.lisp
index c6aea0c..2a70f13 100644 (file)
--- a/t/ref2test.lisp
+++ b/t/ref2test.lisp
@@ -17,7 +17,8 @@
 ;; File is generated automatically from the text in reference.lisp by
 ;; the function make-reference-tests-dot-lisp in ref2test.lisp
 ;; so do not edit this file.
-(def-suite ref-tests)
+(eval-when (:compile-toplevel :load-toplevel :execute)
+  (def-suite ref-tests))
 (in-suite ref-tests)~%~%") ; a double-quote for emacs: "
 
 (defun make-reference-tests-dot-lisp()

diff --git a/t/reference-tests.lisp b/t/reference-tests.lisp
index c208275..e497db1 100644 (file)
--- a/t/reference-tests.lisp
+++ b/t/reference-tests.lisp
@@ -3,7 +3,8 @@
 ;; File is generated automatically from the text in reference.lisp by
 ;; the function make-reference-tests-dot-lisp in ref2test.lisp
 ;; so do not edit this file.
-(def-suite ref-tests)
+(eval-when (:compile-toplevel :load-toplevel :execute)
+  (def-suite ref-tests))
 (in-suite ref-tests)
 
 (test-ps-js statements-and-expressions-1

diff --git a/t/test.lisp b/t/test.lisp
index b57bf97..d2c427b 100644 (file)
--- a/t/test.lisp
+++ b/t/test.lisp
@@ -34,7 +34,8 @@
   (run! 'ps-tests))
 
 ;;---------------------------------------------------------------------------
-(def-suite ps-tests)
+(eval-when (:compile-toplevel :load-toplevel :execute)
+  (def-suite ps-tests))
 (in-suite ps-tests)
 
 (test-ps-js plus-is-not-commutative