transcendental-lisp/lisp/reverse.lisp

(defun reverse (the-list)
  (if the-list
    (append
      (reverse (rest the-list))
      (list (first the-list))
    )
  )
)

(defun deep-reverse (the-list)
  (if the-list
    (append
      (deep-reverse (rest the-list))
      (list
        (if (listp (first the-list))
          (deep-reverse (first the-list))
          (first the-list)
        )
      )
    )
  )
)