Como calcular fatorial em LISP usando uma função recursiva

; Programa que usa recursão para calcular
; o fatorial de um número informado pelo
; usuário
(defun fatorial(numero)
  (if (= numero 0)
    ; caso base: retorna 1
    1
    ; efetua mais uma chamada recursiva
    (* numero (fatorial (1- numero)))
  )
)

; solicita um número ao usuário e informa o
; fatorial do número informado
(let((numero)(resultado)) 
  ; vamos ler o número
  (princ "Informe um número inteiro: ")