Удалить из заданного списка пустые списки - Lisp

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

Помогите, пожалуйста, на Scheme: удалить из заданного списка пустые списки

Решение задачи: «Удалить из заданного списка пустые списки»

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

(defun del-null (lst)
  (cond ((null lst) nil)
        ((null (car lst)) (del-null (cdr lst)))
        (t (cons (car lst) (del-null (cdr lst))))))
 
==> del-null
 
(del-null '(1 2 nil 3 4 nil nil))
 
==> (1 2 3 4)

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

Функция del-null принимает в качестве аргумента список lst и возвращает новый список, в котором удалены все пустые списки.

Если lst равно nil, то возвращаем nil.
Если car lst равно nil, то рекурсивно вызываем del-null с аргументом cdr lst.
Если car lst не равно nil, то возвращаем новый список, в котором первый элемент — car lst, а остальные элементы получены путем рекурсивного вызова del-null с аргументом cdr lst. Пример: (del-null '(1 2 nil 3 4 nil nil))
car lst равно 1.
cdr lst равно (2 nil 3 4 nil nil).
car lst равно 2.
cdr lst равно (3 4 nil nil).
car lst равно 3.
cdr lst равно (4 nil nil).
car lst равно 4.
cdr lst равно nil.
Возвращаем (1 2 3 4).