(eval-when (:compile-toplevel :load-toplevel :execute)
(let ((square-names
(cross-product #'concat-symbol
'(? A B C D E F G H ?)
'(? 1 2 3 4 5 6 7 8 ?))))
(eval-when (:compile-toplevel :load-toplevel :execute)
(let ((square-names
(cross-product #'concat-symbol
'(? A B C D E F G H ?)
'(? 1 2 3 4 5 6 7 8 ?))))