clojure gen-class生成的类调用问题

Question

我定义了以下MyCache.clj

(ns abcd.MyCache
  (:gen-class
   :name "abcd.MyCache"
   :init "init"
   :constructors { [java.text.DateFormat][] }
   :methods [ [now [] void] [myformat [long] String] ]
   :state "state"
   :main false))

(defn -init[format]
  ([[] (atom {:format format})]))



(defn -now[this] ( (:format @(.state this)) (System/currentTimeMillis)))

(defn -myformat[this time]
    ( (:format @(.state this) (new java.util.Date time))))

我使用（compile'abcd.MyCache）成功地编译了以上文件。

当我尝试使用如下所示的生成的类时。 请帮忙。

user=> (new abcd.MyCache (new java.text.SimpleDateFormat "mmDDyyyy"))
IllegalArgumentException Key must be integer  clojure.lang.APersistentVector.invoke (APersistentVector.java:265)

Answer 1

我对此感到不舒服：

(defn -init[format]
  ([] [atom {:format format}]))

您正在尝试从向量中获取元素，并且期望有一个索引（数字）。

正确的方法是对原子进行反引用，并获取其值作为矢量的索引。 但是，在这种情况下，您还是要查询一个空向量。

还要注意，[atom {：format format}]不是创建原子的正确方法。 您应该使用：

(atom {:format format})

顺便说一句，以下形式是创建Java对象的首选形式（当然，（新）没错）：

(Date.)
(DateFormat.)