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

Чтобы обеспечить работоспособность наших программ в разных Лисп-системах, определим собственный универсальный предикат сравнения русских букв.

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