Помогите определить функцию TOTREVERSE которая реверсирует список и его подсписки - Lisp

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

Помогите определить функцию TOTREVERSE которая реверсирует список и его. (TOTREVERSE ’(A (B C) D (E) F))) -> (( F (E))D (C B) A))

Решение задачи: «Помогите определить функцию TOTREVERSE которая реверсирует список и его подсписки»

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

(defun rv-list (lst &optional (r nil))
  (cond ((null lst) r)
        ((atom (car lst)) (rv-list (cdr lst) (cons (car lst) r)))
        (t (rv-list (cdr lst) (cons (rv-list (car lst) nil) r)))))
 
==> RV-LIST
 
(rv-list '(A (B C) D (E) F))
 
==> (F (E) D (C B) A)

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

В этом коде определена функция rv-list, которая реверсирует список lst и его подсписки. Функция rv-list принимает два аргумента: lst — список, который нужно реверсировать, и r — результат реверсирования. Если lst — это nil, то функция возвращает r. Если lst — это атом, то функция возвращает cons с car lst и r, где r — результат реверсирования cdr lst. Если lst — это не атом, то функция возвращает cons с rv-list для car lst и r, где r — результат реверсирования cdr lst. Пример использования функции rv-list с аргументом '(A (B C) D (E) F') показан в выводе. Функция rv-list вызывается с аргументом '(A (B C) D (E) F'), который содержит список lst и его подсписки. Функция реверсирует список и его подсписки, и возвращает nil, так как в данном случае не указано, что нужно возвращать результат реверсирования. В результате получаем (F (E) D (C B) A).