Подскажите пожалуйста, что тут можно придумать:

Напишите функцию, осуществляющую замену элементов списка y на соответствующие элементы списка x в списке w, например,
y=(a b), x=(1 2), w=((a b) a (c (a (a d)))) -> ((1 2) 1 (c (1 (1 d))))



Решение:
(defun f (y x w) (
if (null w) nil
(let ((c1 (first w)) (r (rest w)))
(cond ((and (atom c1) (equal c1 (first y))) (cons (first x) (f y x r)))
((and (atom c1) (equal c1 (second y))) (cons (second x) (f y x r)))
((atom c1) (cons c1 (f y x r)))
(t (cons (f y x c1) (f y x r))))
))

выдает ошибку unexpected E0F

помогите сделать что бы заработала

Спасибо!!