LISP задача, нечетные элементы, замена, минимальное значение

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

Здравствуйте, помогите с решением задачи, пожалуйста. Есть список нужно заменить все нечетные элементы списка на значение минимального элемента. Пробовал составить свое решение, но не хватает знаний.

                    Листинг программы
                
 
                        
                          
                    
(defun zam(list)
  (defun mi(list)
               (setq rez (car list))
    (dolist (el list rez)
        (if (> (car list) el)
            (setq rez el))))
(dolist (el list)
               (if (oddp el)
                   (setq el rez))))

Решение задачи: «LISP задача, нечетные элементы, замена, минимальное значение»

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

(defun odd-min (w)
  (substitute-if (reduce #'min w) #'oddp w))
 
> (odd-min '(1 2 3 4 -1 5 6 7 8))
(-1 2 -1 4 -1 -1 6 -1 8)

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

В коде определена функция odd-min, которая принимает один аргумент w.

Функция reduce используется для вычисления минимального значения из элементов списка w.
Функция substitute-if используется для замены каждого элемента списка w, который является нечетным числом, на его минимальное значение (-1).
Результатом выполнения функции odd-min является список, в котором все нечетные числа заменены на минимальное значение (-1). Пример использования функции odd-min:

(odd-min '(1 2 3 4 -1 5 6 7 8)) (-1 2 -1 4 -1 -1 6 -1 8)