Clojure 调用 swap 时出错!在原子上，尝试 'conj this-number'

Question

我想要一个原子中的映射，可以将时间作为 Unix 时间戳进行跟踪。

所以，在我的主要功能中，我有:

(defn -main [& args]
(println "Server is starting")
(def port (Integer/parseInt (first args)))
(def registry (atom {}))
(run-server port who-is-here registry))

在运行服务器内部，我调用了 add-to-logged-in-registry:

(defn add-to-logged-in-registry
[registry]
(let [moments (Date.)
    right-now (.getTime moments)]
(swap! registry conj right-now)))

最后一行给了我这个错误:

线程“main”中的异常 java.lang.IllegalArgumentException:不知道如何从 java.lang.Long 创建 ISeq 在 clojure.lang.RT.seqFrom(RT.java:487) 在 clojure.lang.RT.seq(RT.java:468) 在 clojure.lang.APercientMap.cons(APercientMap.java:39) 在 clojure.lang.RT.conj(RT.java:544) 在 clojure.core$conj.invoke(core.clj:83) 在 clojure.lang.Atom.swap(Atom.java:51) 在 clojure.core$swap_BANG_.invoke(core.clj:2107) 在 who_is_logged_in.core$add_to_logged_in_registry.invoke(core.clj:39) 在 who_is_logged_in.core$listen_and_respond.invoke(core.clj:42) 在 who_is_logged_in.core$run_server.invoke(core.clj:52) 在 who_is_logged_in.core$_main.doInvoke(core.clj:76) 在 clojure.lang.RestFn.applyTo(RestFn.java:137) 在 who_is_logged_in.core.main(来源未知)

这是什么意思？

当我在 emacs 的 REPL 上尝试这个时，效果非常好:

user>  (def registry (atom []))
#'user/registry

user>   (let [moments (Date.)
    right-now (.getTime moments)]
(swap! registry conj right-now))

[1345698128988]

user>   (let [moments (Date.)
    right-now (.getTime moments)]
(swap! registry conj right-now))

[1345698128988 1345698132472]

Answer 1

conj 的行为有所不同，具体取决于要添加元素的集合类型。在您的第一个示例中，它将元素添加到 map 中，并且需要集合中的键和值。在您的 REPL 示例中，它将元素添加到向量中，并且只需要一个值。

交换!进入 map :

(def registry (atom{}))
(let [moments (java.util.Date.)
  right-now (.getTime moments)]                                                 
  (swap! registry conj [:time right-now]))
{:time 1345700872898}