¿Hay alguna manera de obtener el nombre de la función actual?

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

Actualmente hago esto:

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

La codificación dura del nombre de la función no parece ser una buena práctica. Cualquier sugerencia para implementar elget-current-function-name oget-function-name-that-call-me.