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

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))))