为什么 source-fn 在这种特定情况下找不到源代码？

Question

这种情况很难重现。首先我创建一个 clj 文件，其中包含：

(ns myns)

(defn myfn [x] x)

然后我创建第二个 clj 文件，其中包含：

(ns myns2
 (:require [myns :as m]
           [clojure.repl :as repl]))

(comment

 (second (iterate repl/source-fn 'm/myfn))

 (take 2 (iterate repl/source-fn 'm/myfn))

)

然后我启动一个 REPL 并在其中加载第二个文件。最后，我通过将两个 cmets 发送到 REPL 来评估它们。第一个表达式将按预期产生"(defn myfn [x] x)"。然而，第二个表达式产生'(m/myfn nil)。这是怎么回事？

请注意，将 'm/myfn 完全限定为 'myns/myfn 会恢复匹配行为。我也知道迭代 source-fn 有点古怪，但这是我所知道的重现行为的最简单方法。

Answer 1

我不明白你的结果。通过lein test 从文件运行，我得到不同的结果：

(newline)
(def iii (iterate inc 0))
(spyx (nth iii 0))
(spyx (nth iii 1))
(spyx (nth iii 2))

(defn foo [x] 42)
(def bar (repl/source-fn 'foo))
(newline)
(spyx bar)

(newline)
(spyx  (take 1 (iterate repl/source-fn 'foo)))
(spyx  (take 2 (iterate repl/source-fn 'foo)))

(newline)
(spyx  (first  (iterate repl/source-fn 'foo)))
(spyx  (second (iterate repl/source-fn 'foo)))

结果：

(nth iii 0) => 0
(nth iii 1) => 1
(nth iii 2) => 2

bar => "(defn foo [x] 42)"

(take 1 (iterate repl/source-fn (quote foo))) => (foo)
(take 2 (iterate repl/source-fn (quote foo))) => (foo "(defn foo [x] 42)")

(first (iterate repl/source-fn (quote foo))) => foo
(second (iterate repl/source-fn (quote foo))) => "(defn foo [x] 42)"