Преобразование регистра буквы

char-upcase char ⇒ result-char

char-downcase char ⇒ result-char

Примеры

(char-upcase #\d)
d
(char-upcase #\D)
D
(char-upcase #\9)
#\9
(char-downcase #\D)
d
(char-downcase #\Ы)
#\Ы

Для работы с русским языком определим собственную функцию:

(defun russian-char-downcase (char)
  (let ((i (russian-upper-case-p char)))
    (if i 
        (char "абвгдеёжзийклмнопрстуфхцчшщъыьэюя" i)
        (char-downcase char))))         ; латиница
RUSSIAN-CHAR-DOWNCASE
(russian-char-downcase #\Ы)
#\ы