0

如何将符号名称替换为宏中创建的函数？我想我在这里遗漏了一些明显的东西。例如，我正在尝试制作一个宏来定义一些类似于以下的变量和函数，

(cl-defmacro mac (pkg)
  (let (
        ;; Define some variables
        (sym (intern (concat pkg "-file")))
        (sym-def "default-file.el")
        (sym-doc (concat "A custom var from `" pkg "'."))
        ;; Define some functions
        (symfn (intern (concat pkg "-fn")))
        (symfn-doc (concat "A function for `" pkg "'.")))

    `(list
      (defcustom ,sym ,sym-def ,sym-doc
        :group (quote ,(make-symbol pkg))
        :type '(choice (const :tag "None" nil)
                       file))
      (defun ,symfn ()
        ,symfn-doc
        (interactive)
        (fn ,sym)))))

返回的函数调用另一个函数 ( fn)，其签名如下

(defun fn (var) (symbol-value var))

所以，它期待一个像(fn 'some-var). 而且，我希望能够使用宏

(mac "pack")

并有以下工作，

pack-file  ; works: "default-file.el"
(pack-fn)  ; error: not a symbol

我已经尝试过(quote ,sym),symbol-name和其他...但似乎无法正确处理。

4

1 回答 1

1

您希望呼叫fn成为(fn ',sym)（您提到您在问题中尝试过，但我怀疑以某种方式出错）。

您可能还希望宏的扩展(progn ...)不是(list ...).

（这最初是一个评论：我把它放在这里只是为了有一个答案。）

于 2016-07-23T18:17:15.310 回答