[LISP] Используя функцию DEFUN, определить функцию f (a x)

[DemonXZ]

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

Есть решенная задача с рекурсией, но она не подходит. нужно без рекурсии.

CL-USER 1 > (defun f (a x)
(if (atom x) x
(if (atom (car x))
(cons a (f a (cdr x)))
(cons (car x) (f a (cdr x))))))
F

CL-USER 2 > (f 3 '(6 4))
(3 3)