Clojure中的延迟评估

我很难理解 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)))

但是,打电话 current-time 在repl中,即使没有使用 force 宏:

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

为什么评估 get-timestamp 直到第一次 力 打电话?