macro-hackery.clj

(defmacro with-sexpr-errors
  "Takes the metadata from evaluating expr. if metadata is present, wraps
  the source line information from this expression in a CompilerException, so the source is correctly
  recovered in the error report."
  [expr body]
  `(let [md# (meta ~expr)]
     (if md#
       (try
         ~body
         (catch clojure.lang.Compiler$CompilerException e#
                                        ; don't re-wrap a compiler exception
           (throw e#))
         (catch Throwable e#
           (throw (clojure.lang.Compiler$CompilerException.
                   ~*file*
                   (:line md#)
                   (:column md#)
                   e#))))
       ~body)))