变量作为表名，并使用Lisp/后现代/PostgreSQL

Question

有没有人可以举例说明如何在Lisp/Postmodern/S-SQL/PostgreSQL中使用变量作为表名写一行到一个表中？

我目前可以使用以下函数使用:insert-into在PostgreSQL中写入一个表：

(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]

我已经坚持了很长一段时间，几乎什么都试过了。把我难倒了。

Answer 1

如果代码需要一个符号作为表名，则不能传递字符串，必须对其执行intern操作。像下面这样的东西应该可以工作...

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

在普通的lisp中，符号是符号，字符串是字符串。要从符号中获取字符串，需要调用(intern x)调用(symbol-name x)来从字符串中获取符号。

准引号(反引号)不会进行这种转换。换句话说：

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

根据该库将如何使用符号，甚至可以使用"uninterned“符号来代替常规的interned符号。

这些符号可以使用(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