CLJ-1988 Extend coll-of to handle sequences

Signed-off-by: Stuart Halloway <stu@cognitect.com>

Author: puredanger

src/clj/clojure/spec.clj

@@ -1209,8 +1209,8 @@
                         ret
                         (assoc ret (nth (if conform-keys cv v) 0) (nth cv 1))))
                     identity]
-                  
-                   (c/or (list? conform-into) (c/and (not conform-into) (list? x)))
+
+                   (c/or (list? conform-into) (seq? conform-into) (c/and (not conform-into) (c/or (list? x) (seq? x))))
                    [(constantly ()) addcv reverse]
 
                    :else [#(empty (c/or conform-into %)) addcv identity]))]

test/clojure/test_clojure/spec.clj

@@ -143,6 +143,7 @@
       coll [] [] nil
       coll [:a] [:a] nil
       coll [:a :b] [:a :b] nil
+      coll (map identity [:a :b]) '(:a :b) nil
       ;;coll [:a "b"] ::s/invalid '[{:pred (coll-checker keyword?), :val [:a b]}]
       )))