gistfile1.txt

Clojure 1.7.0-alpha2
user=> (definline my-get [m k default] `(let [m# ~m k# ~k] (if (not (contains? m# k#)) ~default (get m# k#))))
#'user/my-get
user=> (my-get {:a :b} :a (throw (Exception. "foo")))
:b
user=> (my-get {:a :b} :not-found (throw (Exception. "foo")))
Exception foo  user/eval20 (NO_SOURCE_FILE:3)
user=> (apply my-get [{:a :b} :a (throw (Exception. "foo"))])
Exception foo  user/eval24 (NO_SOURCE_FILE:4)
user=> (apply my-get [{:a :b} :a :not-found])
:b