LISP reverse function

(defun reverse2(list1)

         (cond ((null list1) '())
                    (t ( append (reverse2 (cdr list1)) (list (car list1)) ) )         
          ) 
)