Existe uma maneira de obter o nome da função atual?

(defun foo ()
    (send-to-debug-log "Error. Function terminated." (get-current-function-name)))

Atualmente, faço isso:

(defun foo ()
    (send-to-debug-log "Error. Function terminated." 'foo)))

A codificação embutida do nome da função parece não ser uma boa prática. Qualquer sugestão para implementar oget-current-function-name ouget-function-name-that-call-me.