Замена всех вхождений заданного значения другим в списке - Lisp

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

Нужно решить задачу Определите функцию, заменяющую в исходном списке все вхождения заданного значения другим. Как это сделать?

Решение задачи: «Замена всех вхождений заданного значения другим в списке»

Листинг программы

(defun rep (lst w r)
  (let ((res nil))
    (iter (for x in lst)
      (cond ((equal x w) (collecting r into res))
            ((listp x) (collecting (rep x w r) into res))
            (t (collecting x into res))))))

Объяснение кода листинга программы

В коде определена функция rep с тремя аргументами: lst, w и r.

lst - это список, в котором нужно выполнить замену.
w - это значение, которое нужно заменить.
r - это значение, на которое нужно заменить. Функция использует цикл iter, чтобы пройти по всем элементам списка lst. Для каждого элемента x выполняется проверка:
Если x равно w (то есть мы нашли совпадение), то в текущий результат res добавляется значение r.
Если x является списком, то рекурсивно вызывается функция rep для этого элемента, с аргументами w и r, и результат добавляется в res.
Если x не является списком или не равно w, то его значение просто добавляется в res. В итоге, после прохода по всем элементам списка, в res будет содержаться результат замены.