Macros lisp defclass宏问题_Macros_Lisp_Common Lisp

Macros lisp defclass宏问题

macros lisp common-lisp

Macros lisp defclass宏问题,macros,lisp,common-lisp,Macros,Lisp,Common Lisp,有点背景，我是一个完全的口齿不清的人，几周前才开始，但我已经在其他语言中发展了很多年。逻辑没问题，lisp，有问题我正在尝试编写一个宏，它将为我定义两个clsql类，以解决库中的一个问题。我希望将类命名为x和'x-insert``，因此在宏中我希望宏计算x-insert的符号名，但我很难做到这一点。我的尝试在下面，但我在两件事上被难住了如何让它创建类名。如果我删除，class-insert中的空格，它将不会求值，这是我理解的，因此我认为我缺少一些直接的方法来告诉它忽略空格，并将名称创建为单个

有点背景，我是一个完全的口齿不清的人，几周前才开始，但我已经在其他语言中发展了很多年。逻辑没问题，lisp，有问题

我正在尝试编写一个宏，它将为我定义两个clsql类，以解决库中的一个问题。我希望将类命名为

和'x-insert``，因此在宏中我希望宏计算x-insert的符号名，但我很难做到这一点。我的尝试在下面，但我在两件事上被难住了

如何让它创建类名。如果我删除

，class-insert

中的空格，它将不会求值，这是我理解的，因此我认为我缺少一些直接的方法来告诉它忽略空格，并将名称创建为单个单词，第二个问题是让它创建两个类，而不是一个类，因为它只是从我所看到的使用“宏展开”展开宏的最后一部分

也许我完全走错了方向，所以请随意将我踢向正确的方向

(defmacro gen-pair (class base-slots pkey-slot base-table)
  `(clsql:def-view-class ,class -insert()
     (
      ,base-slots
     )
     (:base-table ,base-table)
   )

  `(clsql:def-view-class ,class (,class -insert)
     (
      ,pkey-slot
     )
     (:base-table ,base-table)
   )
)

很难在这里开始解释，因为你似乎有一大堆误解

第一个问题（如何编写符号名）：Lisp宏不需要对文本进行操作，但对代码进行操作。以反报价形式，

，类

计算传递到宏的

类

参数的代码，在本例中，很可能是一个类名。之后再写一个符号不会神奇地合并符号名称；为什么要这样做？如果你要合成新的符号名称，必须构造它：

,(intern (string-upcase (concatenate 'string
                                     (symbol-name class)
                                     "-insert")))

第二个问题（为什么它似乎只扩展了第二部分）：问题

defmacro

表单的内容在隐式

progn

（这就是为什么它不抱怨无效数量的参数这里）。最后一个表单的返回值是整个

defmacro

表单。在这种情况下，返回值是代码由反报价表生成。宏定义了一个函数，该函数将一种形式扩展为一种新形式；不能将其展开为两个不相关的表格。您必须生成一个包含你想要两种形式

第三个问题（为什么您的代码与Lispers的代码看起来如此不同

（写下）：不要像剪指甲一样乱抛括号。那里有几个Lisp风格的向导在网上四处飞行。读它们。我们将从贝赫施特（beherrscht）死亡，但这是斯皮伦（大概是：当你知道正确的方法，你可以玩它）

第四个问题（如何克服认知的局限性）你可以直接问这个问题，不是吗？你有什么限制

你的意思是？

这里很难开始解释，因为你似乎有一个一大堆误解