diff --git a/tests/pcl.lisp b/tests/pcl.lisp index fe4402b9ba6815b96ee20a1b48e7d4fa2715bebc..218fead8739a6d8fe1ea0534091027c7a17a4802 100644 --- a/tests/pcl.lisp +++ b/tests/pcl.lisp @@ -1007,7 +1007,7 @@ ;;; macro won't be used in them. Also, we want tests using ;;; both the optimized constructor functions, and the default. -(eval-when (:top-level :compile :execute) +(eval-when (:load-toplevel :compile-toplevel :execute) (defmacro define-mi-test (name form &key values opt-values) (let ((optimized-name (let ((*print-case* :upcase)