every-impl在传递记录时崩溃

Question

依赖于every-impl（如every、coll-of等）的规范在传递记录时可能会崩溃。例如

{code:title=REPL会话|borderStyle=solid}
> (require ['clojure.spec.alpha :as 's])

> (s/def ::coll-any (s/coll-of any?))
> (defrecord Pair [first second])

> (s/valid? ::coll-any 3)
false

> (s/valid? ::coll-any {:a 1 :b 2})
true

> (s/valid? ::coll-any (Pair. 1 2))
执行错误（UnsupportedOperationException）在user.Pair/empty (REPL:1).
无法创建空的：user.Pair

Answer 1

参考：https://clojure.atlassian.net/browse/CLJ-2481（由alex+import报告）