postgresql - 使用 Lisp/Postmodern/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)

在 Common Lisp 中，符号是符号，字符串是字符串。要从符号中获取字符串，您需要调用(symbol-name 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