common-lisp - 在 Common Lisp/StumpWM 中定义宏时遇到问题

Question

我正在尝试定义一个创建命令的宏。到目前为止，我有以下内容：

    (defmacro create-command (command name)
      `(defcommand ,name ()
       (run-shell-command ,command)
        ))

    (create-command "firefox" firefox)

基本上，我想创建一个名为“firefox”的命令，它只是启动“firefox”。当我尝试运行命令时，出现以下错误：

Bad Argument Type: RUN-SHELL-COMMAND.

对正在发生的事情有任何想法吗？谢谢！

Answer 1

defcommand有两个参数列表，不是一次；第二个列表定义了如何以交互方式阅读第一个列表中的论点。在您的情况下，没有参数，但您错过了一个空列表：

(defmacro create-command (command name)
  `(defcommand ,name () ()
      (run-shell-command ,command)))


STUMPWM-USER> (create-command "firefox" firefox)
#S(STUMPWM::COMMAND :NAME FIREFOX :CLASS T :ARGS NIL)