在嵌套函数- deftype - clojure中设置可变字段

Question

编辑：发布了我的问题的上一个版本后，我发现真正的问题是嵌套函数。

如果在deftype中有闭包，则无法从该闭包中更新任何可变字段。

例如，以下工作：

(deftype Test [^:unsynchronized-mutable x]
    TestInterface
    (perform [this o] (set! x o)))

但这并不意味着：

(deftype Test [^:unsynchronized-mutable x]
    TestInterface
    (perform [this o] (fn [] (set! x o)) nil)) ; throws a compiler error about assigning to non-mutable field

有什么办法能让你挺身而出进入战场吗？执行(set! (.x this) o)会产生以下结果：

ClassCastException user.Test不能转换为compile__stub.user.Test user.test/fn-152 (NO_SOURCE_FILE:3 )

在试图运行代码的时候。

完整的TestInterface代码：

(definterface TestInterface (perform [o]))

Answer 1

考虑不起作用的版本，如果它确实有效的话，返回一个闭包，这个闭包可能会逃到野外，在任何地方都会被调用，设置不同步的本地环境，并把事情搞得一团糟。

如果您坚持这样做，您可以为可变字段创建一个带有setter的接口，在您的类型中实现它，并在需要设置这个字段的地方调用setter。

直接突变((set! (.-x foo) ...))不能工作，因为Clojure类型的可变字段(不同步的和易变的)都是私有的。