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: ")
  (force-output)
  (setq numero (read))
   
  ; agora vamos calcular o fatorial do número
  ; informado pelo usuário
  (setq resultado (fatorial numero))
   
  ; E mostramos o resultado
  (format t "O fatorial de ~D é ~D" numero
    resultado)
)