huge speedup for cond-path

src/clj/com/rpl/specter/impl.cljx

@@ -696,15 +696,18 @@
     ))
 
 (defn retrieve-cond-selector [cond-paths structure]
-  (->> cond-paths
+  (let [aseq (seq cond-paths)]
-       (partition 2)
+    (if aseq
-       (drop-while (fn [[c-selector _]]
+      (loop [s aseq]
-                     (->> structure
+        (let [tester (first s)
-                          (compiled-select* c-selector)
+              s2 (next s)
-                          empty?)))
+              res (first s2)]
-       first
+          (if (empty? (compiled-select* tester structure))
-       second
+            (let [s3 (next s2)]
-       ))
+              (if s3 (recur s3))
+              )
+            res
+            ))))))
 
 (defn filter-select [afn structure next-fn]
   (if (afn structure)