3

可能很明显，但鉴于此代码（来自http://clojure.github.com/clojure/clojure.core-api.html#clojure.core/reify）：

(defn reify-str []
  (let [f "foo"]
    (reify Object
      (ToString [this] f))))

(defn -main [& args]
  (println (reify-str))
  (System.Console/ReadLine))

为什么我得到这个输出？

#<ui$reify_str$reify__4722__4727 foo>

代替：

foo

如果有帮助，我正在 Windows 中运行 ClojureCLR。谢谢！

4

1 回答 1

5

您的基本问题是 Clojure REPL 使用print-method，而不是.toString. 您必须print-method为您的类型定义。这对于具体化类型来说有点烦人，因为它使它们有点冗长。你必须做这样的事情：

(defn reify-str []
  (let [f "foo"
        r (reify Object
            (ToString [this] f))]
    (defmethod clojure.core/print-method (type r) [this writer] 
      (print-simple f writer))
    r))

（我只在原版 Clojure 中测试过，但我认为在 ClojureCLR 中是一样的。）

不过，此时您最好创建一个实际类型而不是具体化，因为您每次都在重新定义方法。（我想你可以做一些全局状态来避免这种必要性，但是……嗯，你可以明白为什么定义一个类型可能更可取。）

于 2012-04-16T20:08:12.120 回答