                      keys
                      (map name)
                      into-array)]
-    (.query ^SQLiteDatabase (.db tagged-db) (name table-name) columns
+    (.query (.db tagged-db) (name table-name) columns
             (where-clause where) nil nil nil nil)))
+(def db-query query)
 
 (defn seq-cursor
   "Turns data from Cursor object into a lazy sequence. Takes database

  (let [columns (get-in (.schema tagged-db) [:tables table-name :columns])
        seq-fn (fn seq-fn []
                 (lazy-seq
                  (when-not (.isAfterLast cursor)
                    (let [v (reduce-kv
                             (fn [data i [column-name {type :type}]]
                               (assoc data column-name

            :when (contains? data-map col)]
      (let [value (get data-map col)]
        (condp = type
          Integer (.put cv (name col) ^Integer (int value))
          Long (.put cv (name col) ^Long value)
          Double (.put cv (name col) ^Double value)
          String (.put cv (name col) ^String value)
