Skip to content

Instantly share code, notes, and snippets.

@tomjack

tomjack/*SLIME Macroexpansion* Secret

Created September 14, 2010 08:47
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save tomjack/00c6fe4818b1722a27c6 to your computer and use it in GitHub Desktop.
Save tomjack/00c6fe4818b1722a27c6 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
*SLIME Macroexpansion*
(let [iter__4063__auto__ (fn iter__2016 [s__2017]
(lazy-seq
(loop [s__2017 s__2017]
(when-let
[s__2017 (seq s__2017)]
(if
(chunked-seq? s__2017)
(let
[c__4061__auto__
(chunk-first s__2017)
size__4062__auto__
(int (count c__4061__auto__))
b__2019
(chunk-buffer
size__4062__auto__)]
(if
(loop
[i__2018 (int 0)]
(if
(<
i__2018
size__4062__auto__)
(let
[x
(.nth
c__4061__auto__
i__2018)]
(do
(chunk-append
b__2019
(* x x))
(recur
(unchecked-inc
i__2018))))
true))
(chunk-cons
(chunk b__2019)
(iter__2016
(chunk-rest s__2017)))
(chunk-cons
(chunk b__2019)
nil)))
(let
[x (first s__2017)]
(cons
(* x x)
(iter__2016
(rest s__2017)))))))))]
(iter__4063__auto__ [1 2 3]))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment