Вывести список элементов в обратном порядке используя рекурсию (Common lisp)

Помогите решить задачу Вывести список элементов в обратном порядке через рекурсию в Common Lisp

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

(defun task (lst)
  (cond ((null lst) nil)
        (t (append (last lst) (task (butlast lst))))))
 
==> TASK
 
(task '(1 2 3 4 5))
 
==> (5 4 3 2 1)

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

В коде определён функционал для выполнения задачи.

(defun task (lst) ...) Это определение функции с именем task. Функция принимает один аргумент lst.
(cond ((null lst) nil) ...) Это условие if-then-else. Если lst равно null, то возвращается nil.
(t (append (last lst) (task (butlast lst)))) Если lst не равно null, то возвращается результат рекурсивного вызова функции task, который передаётся в функцию append вместе с последним элементом lst. В этом рекурсивном вызове, функция butlast lst возвращает список, удаляя последний элемент из lst.
(task '(1 2 3 4 5)) Это вызов функции task с аргументом (1 2 3 4 5).
Результат вызова функции task с аргументом (1 2 3 4 5) равен (5 4 3 2 1).