Написать функцию, удаляющую из исходного списка подсписки заданной глубины - Lisp

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

Помогите сделать задание, нужно сделать через рекурсию, циклы нельзя использовать

Решение задачи: «Написать функцию, удаляющую из исходного списка подсписки заданной глубины»

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

(defun del-list (lst lv)
  (if (= lv 1) (remove-if #'listp lst) 
               (mapcar #'(lambda (x) (if (listp x) (del-list x (- lv 1)) x)) lst)))
 
==> DEL-LIST
 
(del-list '(1 2 3 ((4 5) 6 7)) 1)
 
==> (1 2 3)
 
(del-list '(1 2 3 ((4 5) 6 7)) 2)
 
==> (1 2 3 (6 7))
 
(del-list '(1 2 3 ((4 5) 6 7)) 3)
 
==> (1 2 3 ((4 5) 6 7))

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

Функция del-list принимает два аргумента: lst и lv. Аргумент lst — это список, из которого необходимо удалить подсписки заданной глубины, а lv — это сама глубина. Если lv равна 1, то функция удаляет все подсписки первого уровня вложенности из lst. Если lv больше 1, то функция рекурсивно вызывает саму себя для каждого элемента списка. Если элемент является списком, то функция вызывает себя для этого элемента и lv уменьшается на 1, иначе элемент остается неизменным. В конце концов, функция возвращает измененный список.