Регистро-независимое сравнение русских букв

(defun russian-char-equal (char1 char2)
  (char-equal (russian-char-downcase char1)
              (russian-char-downcase char2))
RUSSIAN-CHAR-EQUAL
(russian-char-equal #\Ы #\ы)
T