可以访问Clojure的STM的值历史记录吗？

Question

假设STM有一个历史记录，比如引用、代理等的10个值，那么这些值可以读取吗？

原因是，我正在更新大量的代理，并且我需要保持值的历史记录。如果STM已经保留了它们，我宁愿直接使用它们。我在API中找不到看起来像是从STM历史中读取值的函数，所以我猜不是，我在java源代码中也找不到任何方法，但也许我看起来不对。

Answer 1

您不能直接访问值的stm历史记录。但是您可以使用add-watch来记录值的历史：

(def a-history (ref []))
(def a (agent 0))
(add-watch a :my-history 
  (fn [key ref old new] (alter a-history conj old)))

每次更新a ( stm事务提交)时，旧的值都会结合到保存在a-history中的序列中。

如果您想访问所有中间值，即使是回滚事务，您也可以在事务期间将这些值发送给代理：

(def r-history (agent [])
(def r (ref 0))
(dosync (alter r
          (fn [new-val] 
            (send r-history conj new-val) ;; record potential new value 
            (inc r))))                    ;; update ref as you like

事务完成后，将执行对代理r-history的所有更改。