From be4f68c14bf16e8f653ba374188593df1ed732dc Mon Sep 17 00:00:00 2001 From: Raymond Toy <toy.raymond@gmail.com> Date: Fri, 14 Mar 2014 21:17:09 -0700 Subject: [PATCH] Fix typos in eval-when cases. --- tests/pcl.lisp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/tests/pcl.lisp b/tests/pcl.lisp index fe4402b9b..218fead87 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) -- GitLab