在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)