emacs - 文字列変数をマクロ引数として使用する

Question

このコードが欲しい：

(setq name "foobar")
(defun (intern name) ())

と同じことを行います:

(defun foobar ())

私はこれを試しました（からこの質問）：

(defmacro make-my-function (name)
(list 'defun
(intern (format "my-%s-function" name)) ()
    (list 'interactive)
    '(message "It's work !")))

しかし、my-name-function という関数を取得しましたが、my-foobar-function が必要です。私の目標は、キーマップの連想リストからマイナー モードを定義することです。

ありがとう