有没有办法获取当前函数的函数名？

Question

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

我目前正在这样做：

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

硬编码函数名称似乎不是一个好习惯。有关实施get-current-function-name或的任何建议get-function-name-that-call-me。

Answer 1

(defun foo ()
  (send-to-debug-log "Error. Function terminated." (nth 1 (backtrace-frame 2))))