Skip to content
Snippets Groups Projects
Commit be4f68c1 authored by Raymond Toy's avatar Raymond Toy
Browse files

Fix typos in eval-when cases.

parent e4fcbef0
No related branches found
No related tags found
No related merge requests found
......@@ -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)
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment