Recursive LISP Function to Reverse a List

(DEFUN REVERSE(R)
(REV-AUX R()))
(DEFUN REV-AUX (REM-LIST REVERSES-SO-FAR)
(COND ((NULL REM-LIST) REVERSE-SO-FAR)
(T(REV-AUX(CDR REM-LIST)
(CONS(CAR REM-LIST) REVERSED-SO-FAR)))))

(DEFUN REVERSE(R)

(REV-AUX R()))

(DEFUN REV-AUX (REM-LIST REVERSES-SO-FAR)

(COND ((NULL REM-LIST) REVERSE-SO-FAR)

(T(REV-AUX(CDR REM-LIST)

(CONS(CAR REM-LIST) REVERSED-SO-FAR)))))