   (:require [clojurewerkz.cassaforte.aliases :as alias]
             [clojure.core.match              :refer [match]]))
 
-(set! *warn-on-reflection* false)
+(set! *warn-on-reflection* true)
 
 (def ^:dynamic *batch* false)
 


(let [eq                  (fn [^String column ^Object value]
                            (QueryBuilder/eq column value))
      in                  (fn [^String column values]
                            (QueryBuilder/in column values))
      lt                  (fn [^String column ^Object value]
                            (QueryBuilder/lt column value))

;; Select Query
;;

(defn and-clause
  [^Select$Where where ^Clause clause]
  (.and where clause))

(let [where-clause (fn [^Select query-builder m]
                     (reduce and-clause
                             (.where query-builder)
                             (to-clauses m)))
      order        {:what-count   1
