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

无法在 Common Lisp/StumpWM 中定义宏

Trouble defining a macro in Common Lisp/StumpWM

common-lisp

stumpwm