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