在不接触元数据的情况下更改Clojure var的值

Question

我一直在假设var的元数据是"稳定；也就是说，我可以在不更改var元数据的情况下更改var的值。现在我发现我的理解有问题。代码：

(def ^{:Metadata "metaA"} A 1)  ;; Define A with value 1 and metadata.
=> #'thic.core/A
(def ^{:Metadata "metaB"} B 2)  ;; Define B with value 2 and metadata.
=> #'thic.core/B
A                               ;; A's value is 1.
=> 1
B                               ;; B's value is 2.
=> 2
(meta (var A))
=>
{:Metadata "metaA",             ;; A has the defined metadata.
:line 1,
:column 1,
:file "C:\Users\Joe User\AppData\Local\Temp\form-init2487748963910096550.clj",
:name A,
:ns #object[clojure.lang.Namespace 0x147c445 "thic.core"]}
(meta (var B))
=>
{:Metadata "metaB",             ;; So does B.
:line 1,
:column 1,
:file "C:\Users\Joe User\AppData\Local\Temp\form-init2487748963910096550.clj",
:name B,
:ns #object[clojure.lang.Namespace 0x147c445 "thic.core"]}
(def B A)                       ;; Give B A's value,
=> #'thic.core/B
A
=> 1
B                               ;; which it now has,
=> 1
(meta (var B))                  ;; and B's previously-defined metadata is gone.
=>
{:line 1,
:column 1,
:file "C:\Users\Joe User\AppData\Local\Temp\form-init2487748963910096550.clj",
:name B,
:ns #object[clojure.lang.Namespace 0x147c445 "thic.core"]}
(meta (var A))                  ;; A's remains unchanged.
=>
{:Metadata "metaA",
:line 1,
:column 1,
:file "C:\Users\Joe User\AppData\Local\Temp\form-init2487748963910096550.clj",
:name A,
:ns #object[clojure.lang.Namespace 0x147c445 "thic.core"]}

有没有一种方法可以在不清除B中元数据的情况下将a的值分配给B
或者我只是不明白"；绑定"；以及"；任务">
Clojure in Action第二版说"当从具有元数据的值创建新值时，元数据会复制到新数据中"(第57页(我的例子不是创造一个新的价值。这就是问题所在吗？我仍然希望在不修改其元数据的情况下修改var的值
我谦卑地恳求你，克洛朱尔众神。

Answer 1

alter-var-root可以做到这一点。

-------------------------
clojure.core/alter-var-root
([v f & args])
Atomically alters the root binding of var v by applying f to its
current value plus any args

例如：

; Clojure 1.10.3
(def ^{:Metadata "metaA"} A 1)
; #'user/A
(def ^{:Metadata "metaB"} B 2)
; #'user/B
A
; 1
B
; 2
(meta #'A)
; {:Metadata "metaA", :line 1, :column 1, :file "NO_SOURCE_PATH", :name A, :ns #object[clojure.lang.Namespace 0x2189e7a7 "user"]}
(meta #'B)
; {:Metadata "metaB", :line 1, :column 1, :file "NO_SOURCE_PATH", :name B, :ns #object[clojure.lang.Namespace 0x2189e7a7 "user"]}
(alter-var-root #'B (constantly A))
; 1
B
; 1
(meta #'B)
; {:Metadata "metaB", :line 1, :column 1, :file "NO_SOURCE_PATH", :name B, :ns #object[clojure.lang.Namespace 0x2189e7a7 "user"]}