Map-функция - Lisp

Формулировка задачи:

Задача: Реализовать функцию (@CASE-OF <селектор> <вариант1> ... <вариантN> ) - аналог оператора CASE языка Си. Каждый вариант имеет вид <случай> <форма>, где <случай> ::= <S -выражение>. Сначала вы- числяется значение селектора. Затем среди вариантов ищется первый, у которого случай совпал (EQL) со значением селектора. Результатом функции будет значение соответствующей формы. Проблема в записи решения, используя map-функции.

Решение задачи: «Map-функция»

textual
                            Листинг программы 
                        
                            (s (b b) (a a))