Функции на знаках

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

upper-case-p char ⇒ обобщённое-булево

lower-case-p char ⇒ обобщённое-булево

Примеры

(upper-case-p #\D)
T
(upper-case-p #\d)
NIL
(lower-case-p #\d)
T
(lower-case-p #\5)
NIL
(upper-case-p #\Ы)
NIL

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

(defun russian-upper-case-p (char)
  (position char "АБВГДЕЁЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯ"))
RUSSIAN-UPPER-CASE-P
(russian-upper-case-p #\Ы)
28