lisp reverse

; получение последнего элемента списка
(defun get_last (arr)
  (cond (
      (null (cdr arr))
      (car arr)
    )
    (T
      (get_last (cdr arr))
    )
  )
)

; удаление последнего элемента списка
(defun del_last (arr)
  (cond (
      (null (cdr arr))
      nil
    )
    (T
      (cons (car arr) (del_last (cdr arr)))
    )
  )
)

; переворачивание списка
(defun reverse_list (arr)
  (cond (
      ( < (length arr) 1)
      nil
    )
    (T

      (cons (get_last arr) (reverse_list (del_last arr)))
    )
  )
)