every-kv文档表明“接受独立的关键字和值先验条件,并作用在关联集合上”。向量返回true表示是关联性的,但目前却不工作。
user=> (s/conform (s/every-kv any? any?) [])
[]
user=> (s/conform (s/every-kv any? any?) [1 2 3])
:clojure.spec/invalid
user=> (s/conform (s/every-kv integer? string?) [])
[]
user=> (s/conform (s/every-kv integer? string?) ["x"])
:clojure.spec/invalid
另一个类似的问题
(s/explain-data (s/every-kv int? int?) [{:a :b}])
UnsupportedOperationException nth不支持此类型:PersistentArrayMap clojure.lang.RT.nthFrom (RT.java:903)
*原因:向量不应该与every-kv一起使用。every-kv和every-impl的组合假设传递给every-kv的集合可以提供映射条目的序列。在解释情况下,由every-kv创建的::kfn用于使用键而不是元素索引来创建更好的路径段。kfn假设集合的元素可以调用`(nth entry 0)`在元素上。在上述解释失败的情况下,映射{:a :b}将在调用nth时抛出。
*建议:以下是对collect元素是映射条目的要求的更清晰的说明。
*修改文档字符串,以“序列到映射条目”代替“是一个映射”
*修改kfn以添加检查元素是否是条目,如果是,则使用其键。如果不是,则使用元素的索引(该元素的索引)。在这种情况下,当传递一个条目时,它将报告实际的键,当传递不是条目的东西时,它将报告非条目的集合索引。
补丁后,explain-data调用将提供有用的错误而不是上述异常。
user=> (s/explain-data (s/every-kv int? int?) [{:a :b}])
#:clojure.spec_alpha{:problems ({:path [], :pred vector?, :val {:a :b}, :via [], :in [0]})}
*补丁:clj-2080-8.patch