   (condp = type
     Boolean (= (.getInt cur i) 1)
     Integer (.getInt cur i)
+    Long (.getLong cur i)
     String (.getString cur i)
     Double (.getDouble cur i)
     Byte (.getBlob cur i)))

      (let [value (get data-map col)]
        (condp = type
          Integer (.put cv (name col) ^Integer value)
          Double (.put cv (name col) ^Double value)
          String (.put cv (name col) ^String value)
          Boolean (.put cv (name col) ^Boolean value)

(def ^{:private true
       :doc "Set of types available to be stored in a database. Byte
  actually stands for array of bytes, or Blob in SQLite."}
  supported-types #{Integer Long String Boolean Double Byte})

(defn make-schema
  "Creates a schema from arguments and validates it."
