Реализация функции nconc - Lisp

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

_sg

Catstail

, не могу понять код, помогите, прям по шагам

(defun our-nconc (w v)
  (if w (progn (rplacd (last w) v) w) v))

Решение задачи: «Реализация функции nconc»

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

(defun our-nconc (w v)
  (if w
     (progn
       (rplacd (last w) v)
       w)
     v))

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

В данном коде реализована функция our-nconc, которая является рекурсивной и принимает два аргумента типа w и v. Алгоритм работы функции следующий:

Если w не равно nil (это базовый случай), то выполняются следующие действия:
- rplacd заменяет последний элемент списка w на v.
- Результатом работы функции является w.
Если w равно nil (это конечный случай), то результатом работы функции является v.
В общем случае, когда w не равно nil, выполняется рекурсивный вызов функции our-nconc с аргументами w и v. Таким образом, функция our-nconc объединяет два списка в один, при этом список v добавляется к списку w.