gistfile1.clj

;; from here: http://www.learningclojure.com/2010/09/clojure-macro-tutorial-part-i-getting.html
(defmacro forloop
  [var-init & body]
  (let [myvar (nth var-init 0)
        start (nth var-init 1)
        end (nth var-init 2)]
    (list 'loop [myvar start]
      (list 'when (list '<= myvar end)
        (cons 'do body)
        (list 'recur (list 'inc myvar))))))



user=> (macroexpand-1 '(forloop [i 1 10] (println i) (println (* i i))))
(loop [i 1] (when (<= i 10) (do (println i) (println (* i i))) (recur (inc i))))