Macro "cl-flet" que não permite funções recursivas

Estou acostumado com a macro elisp obsoleta flete me disseram para mudar para cl-flet. No entanto, ao fazer essa alteração, alguns dos meus programas elisp pararam de funcionar e percebi que o motivo é que, diferentemente flet, cl-fletnão permite funções recursivas. Por exemplo, definindo a função abaixo

(defun show-problem-in-action (x)
  (cl-flet (
    (factorial (n)
      (if (= n 0)
        1
        (* n (factorial (- n 1))) )))
  (factorial x) ))

ninguém recebe erro chamando

(show-problem-in-action 0)

Saída: 1

porque a função "cl-flet-defined" factorialnão se chama quando "x = 0". Contudo

(show-problem-in-action 5)

produz o erro void-function factorial.

Por outro lado, substituindo cl-fletpor sua macro obsoleta flet, como abaixo

(defun no-problem-with-deprecated-macro (x)
  (flet (
    (factorial (n)
      (if (= n 0)
        1
        (* n (factorial (- n 1))) )))
  (factorial x) ))

permite invocação recursiva:

(no-problem-with-deprecated-macro 5)

Saída: 120

Se cl-fletnão estiver funcionando, qual seria minha melhor alternativa para substituir flet, ainda sendo capaz de chamar funções recursivamente?

Use em cl-labelsvez de cl-flet. Para obter uma explicação, consulte o manual do emacs