在let块的vars部分内使用elisp宏

Question

我在了解自己在做什么错时遇到了问题... 当我执行以下操作时，我得到“（（void-variable a）”）： 宏扩展在let块的vars部分内部不起作用吗？

我的目标是在内部注入“（varA valueA）（varB valueB）”形式的表达式 一个让。

(defmacro decl-var(arg) `(a ,arg))

(defun my-fun()
  (let ((decl-var "hello"))
    (message (format "%s" 'a))))

(my-fun)