Eric Marsden <eric.marsden@...> writes:
> A recent development.
> CL-USER> (char-equal #\É #\é)
So, I can fix this, but in the process of doing that I ran what I
thought would be a suitable test...
(with-test (:name :case-insensitive-char-comparisons)
(dotimes (i char-code-limit)
(let* ((char (code-char i))
(down (char-downcase char))
(up (char-upcase char)))
(assert (char-equal char char))
(when (char/= char down)
(assert (char-equal char down)))
(when (char/= char up)
(assert (char-equal char up))))))
... and discovered that this fails: U+1F80 upcases to U+1F88, but U+1F88
apparently doesn't downcase to U+1F80. Not sure why yet, but that
latter part isn't actually a regression (so it might not get fixed, if
indeed it needs fixing, before the release).