   [m]
   [:where
    (fn where-query [query-builder]
-     (build-where m (.where query-builder)))])
+     (let [query-builder (.where query-builder)]
+       (doseq [clause (to-clauses m)]
+         (.and query-builder clause))
+       query-builder))])
 
 (defn order-by
   [& orderings]

    (set-column- (name k) v))
  )



(defn- update-records-statement
  [m]
  [:values (fn update-records-statement-inner [query-builder]
             (let [first-pair    (first m)
                   more-pairs    (rest m)
                   query-builder (.with query-builder (make-assignment first-pair))]
               (doseq [kvp more-pairs]
                 (.and query-builder (make-assignment kvp)))
               query-builder))])

(defn update
  [table-name records & statements]

    (QueryBuilder/remove column-name value)))

(defn remove-all-tail
  [values]
  (fn [column-name]
    (QueryBuilder/removeAll column-name values)))

(defn put-value
