Lein test failing on unbound var при использовании объявления

Question

Почему последнее утверждение из следующего теста не удается выполнить при использовании lein test?

Я не понимаю, почему первые два утверждения правильно оценивают последнее значение, но значение fromvar рассматривается как несвязанное.

(declare x) 

(def fromvar x) 
(defn fromfun [] x) 

(deftest declaretest 

    ;; These pass fine 
    (is (= 1 x)) 
    (is (= 1 (fromfun))) 

    ;; This fails on lein test: 
    ;; expected: (= 1 fromvar) 
    ;; actual: (not (= 1 #<Unbound Unbound: #'my-test/value>)) 
    (is (= 1 fromvar))) 

(def x 1) 

Answer 1

def не гарантирует, что fromvar привязан к связыванию value. Он присваивает fromvar значение x в то время, когда было вызвано def. Так как x еще не определен, значение является несвязанным (буквально экземпляр внутреннего класса Var.Unbound). fromfun не скомпилирует значение x при компиляции, поэтому можно найти правильное значение во время выполнения, отражая последующее назначение.