Clojure 中的延迟评估

Question

我无法理解 delay 宏在 Clojure 中的工作原理。它似乎没有做预期的事情（即：延迟评估）。正如您在此代码示例中看到的：

; returns the current time
(defn get-timestamp [] (System/currentTimeMillis))

; var should contain the current timestamp after calling "force"
(def current-time (delay (get-timestamp)))

但是，在 REPL 中调用 current-time 似乎会立即计算表达式，即使没有使用 force 宏：

user=> current-time
#<Delay@19b5217: 1276376485859>
user=> (force current-time)
1276376485859

为什么get-timestamp 的评估没有延迟到第一次force 调用？

Answer 1

REPL 上出现的各种对象的打印表示是称为print-method 的多方法的产物。它位于 Clojure 源中的文件 core_print.clj 中，该文件构成了 clojure.core 命名空间中的一部分。

这里的问题是，对于实现clojure.lang.IDeref 的对象——deref / @ 可以操作的事物的Java 接口——print-method 在打印表示中包含对象后面的值。为此，它需要deref对象，并且虽然对打印失败的代理和未决的Futures做了特殊规定，但总是强制延迟。

实际上，我倾向于认为这是一个错误，或者充其量是需要改进的情况。作为目前的解决方法，请特别注意不要打印非强制延迟。