Clojure中如何打印对象引用的值？

Question

每当我在 REPL 上输入以下内容时，

(defn test_function
    []
    ()
)

输出是 -

#'clojure.repl/test_function

由于函数是 Clojure 中的对象，如何获取引用该函数对象的引用的值？

Answer 1

在 Clojure 中，Var（Java 类是 clojure.lang.Var）是一个容器，您可以在其中存储任何不可变值。您甚至可以稍后将不同的不可变值存储到此容器中 - 但是，现在让我们忽略它。可以使用名称（也称为符号）来引用容器。名称和 Var 之间的映射存储在每个命名空间中。因此，当您说

(defn testf [] ())

that （或多或少）相当于

(def testf (fn [] ()))

That 将创建一个 Var，将新创建的函数对象存储到该 Var 中，并在符号 testf 和 Var 之间创建映射。您只需评估符号即可获得函数对象。因此，

user=> testf
#object[user$test_function 0x67207d8a "user$testf@67207d8a"]
user=> (class testf)
user$testf

这告诉您该函数是 user$testf 类的 Java 对象。

如果您想检查 Var 本身（而不是它包含的值），您可以执行以下操作

user=> (var testf)
#'user/testf
user=> (class (var testf))
clojure.lang.Var

，告诉您 Var 是 #'user/testf 以及实现 Clojure 的 Java 类Var 是 clojure.lang.Var。

您可能会受益于阅读Clojure - 变量和全球环境或了解更多详细信息的来源。

最后回答你的问题......你可以将 Var 视为对象引用的持有者。在这种情况下，您可以通过计算 (var foo) 来“打印”绑定到符号 foo 的 Var。您可以通过评估 foo 来“打印”对象本身。

Answer 2

如果您加载源代码，Clojure 会将您的代码编译为 JVM 字节代码
文件，并且没有办法创建类来做到这一点
（除了原始类型之外的所有类型都是 JVM 中的对象后代）。

如果您查看 uberjar，您可以看到很多正在发生的事情
您的 lein 项目或者您 AOT 编译 clj 文件。

您可以从函数中获取 class：

(defn test-function []
  (println :hello))

(println (class test-function))
; ⇒ user$test_function

$ 表示使用了一个内部类；这只是
一个公约。此外，- 已更改为 _，clojure 称之为
“咀嚼”。

现在您可以创建该类的新实例，并且可以.invoke它
（因为它实现了
IFn
界面）：

(let [tf (new user$test_function)]
  (.invoke tf))
; ⇒ :hello