Y U NO Lazy?

gistfile1.clj

(defn seq-from-nodelist [nodelist]
  (let [nodecount (.getLength nodelist)]
    (for [i (range nodecount)]
      (do
        (println "node")
        (.item nodelist i)))))

;; nodelist contains 5 nodes
(def nodes (seq-from-nodelist nodelist))

;; prints node 5 times
(first nodes)

;; where as...
(defn lazytest []
   (for [x (iterate inc 0)]
     (do
       (println "double")
       (* 2 x))))

(def doubles (lazytest))

;; prints "double" once
(first doubles)