gistfile1.clj

(def todo-log (ref []))

(defn save-code-and-snippet [comment code-str]
  (dosync (alter todo-log conj [comment code-str])))

(defmacro todo 
  [comment form] 
  (do 
    (save-code-and-snippet comment (str form)) 
    form))

(println
 (map #(todo "Bad function!" (inc %)) (range 10)))

(defn lousy-function
  [param-1 param-2]
  (do
    (println "doing one thing here")
    (todo
     "This part looks ugly"
     (map param-1 (repeat param-2))
     )
    (println "a third thing here")))

(println (deref todo-log))