Решил, глупо в лоб но решил.
(defun f(a x) (if (eq a (car x)) (cdr x) (if (eq a (cadr x)) (cdr x) (if (eq a (caddr x)) (cdr x) x))))

(Reply to this)(Thread)

Сабж

(Reply to this)(Parent)