gistfile1.clj

; a macro in redis-clojure.
(defmacro with-connection [name pool server-spec & body]
  `(let [~name (get-connection ~pool ~server-spec)]
     (try
       ~@body
       (catch Exception e#
         ; if we reach here, i.e. an exception, we don't want to run (release-connection) in finally
         (release-connection ~pool ~name e#)
         (throw e#))
       (finally
         ; don't execute the following if there is any exception above
        (release-connection ~pool ~name)))))