[Язык LISP] Используя функцию DEFUN, определить функцию

[DemonXZ]

Используя функцию DEFUN, определить функцию f (a x), где a – S - выражение, а x - список, состоящий из 2-3 элементов которая уменьшает элементы списка х на единицу, если число а является элементом списка х, и возвращает исходный список х в противном случае (х содержит 3 числовых атома).

Нужно использовать функции, как в нижеописанном примере:

CL-USER 1 > 
(defun g(a b x)
  (cond ((eql a b) x)
    (t (cons b x))))
G
 
CL-USER 2 > 
(defun f(a x)
  (cond ((atom a)               ;первая 
    (g a (car x)                ;пара
      (g a (cadr x)             ;формы
        (g a (caddr x) nil))))  ;cond
    (t x)))                     ;вторая пара  
F
 
CL-USER 3 > 
(f 'a '(a b a))              ;вызов функции
(B)                          ;элементы удалены, т.к. a - атом
 
CL-USER 4 > 
(f'(a b) '((a b) d a))           
((A B) D A)                  ;список не изменился, т.к. (a b) - не атом

В особенности нельзя использовать функцию mapcap