>>212
backtrace-frame を使えばできるかもしれない。
常に関数の先頭で使うという前提なら、関数名のところで、

(if (car (backtrace-frame 1))
(cadr (backtrace-frame 1))
(cadr (backtrace-frame 4)))

かも。

>>213
バグでしょう。

(format "%#.04x" 15)

で回避。