CASE - разбор вариантов

(case проверка
  (вариант-или-список₁ form₁₁...form_1n)
  (вариант-или-список₂ form₂₁...form_2n)
  ...
  ({otherwise | t} form₁...form_n))

вариант-или-список ::= атом | (атом ...)

1. Вычисляет форму проверка.
2. Сравнивает её значение со всеми вариантами с помощью eql или member;
   варианты не оцениваются.
3. Пусть первый успешно сопоставленный вариант имеет номер i. Тогда
   • оценивает формы form_i1...form_in с помощью неявного progn и
   • возвращает значение form_in.
4. Когда вариант не найден:
   • если ветвь otherwise присутствует, оценивает её формы и возвращает значение form_n;
   • если отсутствует, то возвращает NIL, (ecase сигналит об ошибке).

Пример

(case (+ 2 3) 
  ((1 2 3 4) "слишком много")
  (5 "то, что нужно")
  ((6 7) "слишком мало")
  (zero "вариант-символ")
  ((nil) "пустая проверка") ; ибо nil трактуется как ()
  (otherwise "довольствуемся умолчанием"))
"то, что нужно"