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

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

(defun russian-string-equal (str1 str2)
  (and (= (length str1) (length str2))
       (loop for char1 across str1
             and char2 across str2
             always (russian-char-equal char1 char2))))
RUSSIAN-STRING-EQUAL
(russian-strig-equal "АБВГД" "абвгд")
T