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 @@ ...@@ -1007,7 +1007,7 @@
;;; macro won't be used in them. Also, we want tests using ;;; macro won't be used in them. Also, we want tests using
;;; both the optimized constructor functions, and the default. ;;; 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) (defmacro define-mi-test (name form &key values opt-values)
(let ((optimized-name (let ((optimized-name
(let ((*print-case* :upcase) (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