                 (str "Error resolving SQL param " ~pindex-sym
                   ~(format " as %s: %s" type-label param-expr))
                 e#)))))
-
-
-(defmacro each-param-expr
-  "Return param setter expression."
-  [setter pstmt-sym pindex-sym type-label param-expr]
-  `(~setter ~pstmt-sym ~pindex-sym
-     (try-param ~pindex-sym ~type-label ~param-expr)))
 
 
 (defn lay-param-expr

                  (.setObject prepared-statement param-index ^Object param-value))
    :boolean    (.setBoolean   prepared-statement param-index (boolean    param-value))
    :byte       (.setByte      prepared-statement param-index (byte       param-value))
    :byte-array (.setBytes     prepared-statement param-index (byte-array param-value))
    :date       (if (instance? Calendar param-value)
                  (.setDate    prepared-statement param-index (Date. (.getTimeInMillis ^Calendar param-value))
                    ^Calendar param-value)

;; ----- param setting helpers -----


(def ^:const ba-type (Class/forName "[B"))  ;; byte-array class


(defn set-param-value
  [^PreparedStatement prepared-statement param-type ^long param-index param-value]
  (case (get t/single-typemap param-type)
