result.clj

<amalloy> (macroexpand-1 '(for [x (range 10) :when (even? x) y [5]] [x
y]))
<lazybot> => (clojure.core/let [iter__4191__auto__ (clojure.core/fn
iter__15951 [s__15952] (clojure.core/lazy-seq (clojure.core/loop
[s__15952 s__15952] (clojure.core/when-first [x s__15952] (if (even? x)
(clojure.core/let [iterys__4187__auto__ (clojure.core/fn iter__15953
[s__15954] (clojure.core/lazy-seq (clojure.core/loop [s__15954
s__15954] (clojure.core/when-let [s__15954 (clojure.core/seq s__15954)]
(if (clojure.core/chunked-seq? s__15954) (clojure.core/let
[c__4189__auto__ (clojure.core/chunk-first s__15954)
size__4190__auto__ (clojure.core/int (clojure.core/count
c__4189__auto__)) b__15956 (clojure.core/chunk-buffer
size__4190__auto__)] (if (clojure.core/loop [i__15955
(clojure.core/int 0)] (if (clojure.core/< i__15955 size__4190__auto__)
(clojure.core/let [y (.nth c__4189__auto__ i__15955)] (do
(clojure.core/chunk-append b__15956 [x y]) (recur (clojure.core/unchecked-inc
i__15955)))) true)) (clojure.core/chunk-cons (clojure.core/chunk
b__15956) (iter__15953 (clojure.core/chunk-rest s__15954)))
(clojure.core/chunk-cons (clojure.core/chunk b__15956) nil)))
(clojure.core/let [y (clojure.core/first s__15954)] (clojure.core/cons
[x y] (iter__15953 (clojure.core/rest s__15954)))))))))
fs__4188__auto__ (clojure.core/seq (iterys__4187__auto__ [5]))] (if
fs__4188__auto__ (clojure.core/concat fs__4188__auto__ (iter__15951
(clojure.core/rest s__15952))) (recur (clojure.core/rest s__15952))))
(recur (clojure.core/rest s__15952)))))))] (iter__4191__auto__ (range
10)))