(with-test (:name (:case-insensitive-char-comparisons :eacute))
(assert (char-equal (code-char 201) (code-char 233))))
-(with-test (:name (:case-insensitive-char-comparisons :exhaustive)
- :fails-on '(and))
+(with-test (:name (:case-insensitive-char-comparisons :exhaustive))
(dotimes (i char-code-limit)
(let* ((char (code-char i))
(down (char-downcase char))