Блог

Я работал над предположением, что метаданные 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"]}
 

Есть ли способ присвоить значение A B без удаления метаданных в B?
Или, может быть, я просто не понимаю разницы между «привязкой» и «назначением»?
В Clojure в действии 2-го издания говорится: «Когда создаются новые значения из тех, которые имеют метаданные, метаданные копируются в новые данные». (стр. 57) Мой пример не создает новое значение. В этом ли проблема? Я все еще хочу изменить значение var без изменения его метаданных.
Я смиренно умоляю тебя, ClojureGods.

alter-var-root могу это сделать.

 -------------------------
clojure.core/alter-var-root
([v f amp; 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"]}