LISP Program to Find Factorial of a Number

DEFUN FACTO(N)
     (COND((ZEROP N)1)
          (T(*N(FACTORIAL(1-N))))))