Clojure：生成包含带有持久列表的 clojure 中断的文件

Question

我在这里问了一个相关的问题： Clojure：如何将 clojure 代码转换为可计算的字符串？它大部分有效，但列表被转换为原始括号，这失败了

答案很好，但我意识到这并不完全是我所需要的。我简化了 stackoverflow 的示例，但我不仅仅是写出数据，我还尝试写出函数定义和其他包含列表结构的内容。这是一个简单的例子（选自上一个问题）。

我想生成一个包含以下功能的文件：

(defn aaa []
  (fff :update {:bbb "bbb" :xxx [1 2 3] :yyy (3 5 7)}))

:update 之后的所有内容都是我在写入文件时可以访问的结构，因此我对其调用 str 并且它会以该状态出现。这很好，但是当我在这个生成的函数上加载文件时，列表会尝试将 3 作为函数调用（因为它是列表中的第一个元素）。

所以我想要一个包含我的函数定义的文件，然后我可以调用 load-file 并调用其中定义的函数。我怎样才能用关联的数据写出这个函数，以便我可以将它加载回来，而无需 clojure 认为过去的列表现在是函数调用？

Answer 1

在获取字符串表示之前，您需要引用结构：

(list 'quote foo)

其中foo是结构。

三点附加说明：

1. 遍历代码来引用所有列表/seq 根本不起作用，因为顶级 (defn ...) 形式也会被引用；

2. 列表并不是唯一可能有问题的类型 - 符号是另一种类型（+ 与 #） ;

3. 而不是使用 (str foo) （即使已经引用了 foo），您可能想要打印出引用的 foo -- 或者更确切地说，内部包含带引号的 foo 的整个代码块 -- 使用 pr / prn.

最后一点值得简短讨论。 pr 明确承诺如果 *print-readously* 为 true 则生成可读表示，而 str 仅生成这样的内容Clojure 复合数据结构“偶然”（实现的）的表示并且仅当 *print-readically* 为 true 时

(str ["asdf"])
; => "[\"asdf\"]"

(binding [*print-readably* false]
  (str ["asdf"]))
; => "[asdf]"

：上述行为是由于clojure.lang.RT/printString（这是 Clojure 数据结构最终委托其 toString 需求的方法）使用 clojure.lang.RT/print< /code>，它又根据 *print-readously* 的值选择输出格式。

即使将 *print-readically* 绑定到 true，str 也可能会产生不适合 clojure.lang.Reader 的输出的消耗：例如 (str "asdf") 只是 "asdf"，而可读的表示是 "\"asdf\"" 。使用 (with-out-str (pr foo)) 获取包含 foo 表示的字符串对象，如果 *print-readously* 为 true。

Answer 2

试试这个吧...

(defn aaa []
  (fff :update {:bbb "bbb" :xxx [1 2 3] :yyy (list 3 5 7)}))

Answer 3

将其包装在对 quote 的调用中以读取它而不对其进行评估。