gistfile1.clj

(defmacro debug-block [& lines]
  (let [debugged-lines
        (map (fn [line]
               (if (list? line)
                 (conj line 'debug)
                 line))
             lines)]
    debugged-lines))