使用Lisp/postment/PostgreSQL作为表名的变量

有人能举例说明如何在Lisp/postment/S-SQL/PostgreSQL中使用变量作为表名将行写入表中吗

我目前能够使用以下函数在PostgreSQL中使用

：insert into

写入表：

(defun save-event (table-name cost event-id)
  (defprepared insert-event
      (sql-compile `(:insert-into ,table-name :set 'cost ,cost
                                                   'event-id ,event-id)))
  (insert-event))

使用输入语法：

(save-event 'table-name 33 1)

但是，如果我尝试将包含所需表名的字符串传递给函数，如下所示：

(defparameter x "table-name")
(apply #'funcall `(save-event ',x 44 2))

我收到以下错误消息：

Database error 42601: syntax error at or near "E'table-name'"
Query: INSERT INTO E'table-name' (cost, event_id) VALUES (44, 2)
   [Condition of type CL-POSTGRES-ERROR:SYNTAX-ERROR-OR-ACCESS-VIOLATION]

---

我已经在这上面呆了很长时间了，几乎什么都试过了。把我难住了。

如果代码需要一个符号作为表名，你不能传递字符串，你必须

intern

它。 像下面这样的东西应该可以工作

(defparameter x "table-name")
(save-event (intern x) 44 2)

在公共lisp中，符号是符号，字符串是字符串。要从符号中获取字符串，需要调用

（符号名称x）

要从字符串中获取符号，需要调用

（intern x）

准量化（反向引用）不会进行这种转换。换言之：

(let ((test "foo"))
  `(this is a ,test))
--> (THIS IS A "foo")`

根据该库将如何使用符号，甚至可以使用“非预期”符号代替常规的内部符号

可以使用

（make symbol x）

创建这些符号，但这是否可接受取决于符号在代码中的使用方式；还请注意，如果使用同一字符串多次调用，虽然

（intern x）

将始终返回相同的符号，但对于

（make symbol x）

而言，情况并非如此，因为每次调用该符号时，它将返回不同的新的不需要的符号

(make-symbol "X")
--> #:X

(symbol-name (make-symbol "X"))
--> "X"

(eq (make-symbol "X") (make-symbol "X"))
--> NIL

(eq (intern "X") (intern "X"))
--> T

---

实际上，您可以使用make-SYMBOL生成不需要的符号，因此无需通过插入变量来“污染”名称空间，除非您特别需要插入的符号。如果它只用于它的名字，那么不感兴趣的符号应该可以。@Vatine:谢谢，我在答案中添加了一个关于不感兴趣的符号的小讨论