如何在Clojure中最佳实现ref的分叉并继承其属性？

问题场景 #

先看这段示例代码：

(let [!a (ref 1 :validator odd?)]
  (dosync
   (alter !a (comp inc inc))
   (let [!b (fork-ref !a)]
     (alter !b (comp inc))))) ;; 预期抛出IllegalStateException

直接写(defn fork-ref [r] (ref (deref r)))虽然简单，但没法继承原ref的验证器、监听器、历史记录这些属性。那该怎么实现能完整继承属性的分叉操作？这种做法算不算反模式？

实现带属性继承的fork-ref #

要让新ref完全继承原ref的所有配置，得从原ref里提取验证器、监听器、历史计数这些参数，再用这些参数创建新ref：

(defn fork-ref
  "创建与原ref配置完全一致的新ref，初始值为原ref的当前值"
  [r]
  (let [current-val (deref r)
        validator (.getValidator r)
        listeners (.getListeners r)
        history-count (.getHistoryCount r)]
    (doto (ref current-val :validator validator :history history-count)
      (doseq [[key callback] listeners]
        (.addListener r key callback)))))

关键细节 #

• 这里直接调用了Ref类的Java方法（.getValidator、.getListeners等），因为Clojure的公共API没暴露这些获取方法，但这些方法在Clojure的clojure.lang.Ref类里是稳定存在的，不用担心版本兼容问题。
• 新ref继承了原ref的验证器，所以示例中修改!b时会触发奇数校验，抛出IllegalStateException，符合预期。
• 监听器和历史记录配置也会完整继承，保证新ref的行为和原ref完全一致。

是否属于反模式？ #

得看具体使用场景：

• 合理场景：如果是在同一个事务里需要创建一个「快照副本」，临时修改副本而不影响原ref，同时要保持相同的校验规则，这种实现完全没问题。比如复杂事务里先做试探性修改，验证逻辑可行性后，再决定是否提交原ref的修改。
• 反模式场景：如果用这个操作替代正常的ref状态管理，或者在事务外频繁创建分叉ref，要么会导致状态分散难以维护，要么因为过多的ref实例增加内存开销。另外，分叉后的ref和原ref是完全独立的，后续修改不会同步，要是误以为它们会联动，肯定会引入bug。

总的来说，只要明确分叉ref的独立特性，且仅在需要临时副本的场景下使用，就不属于反模式。

内容的提问来源于stack exchange，提问作者Lēctia Landau