 (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 String Boolean Double Byte})
+  supported-types #{Integer Long String Boolean Double Byte})
 
 (defn make-schema
   "Creates a schema from arguments and validates it."

      (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)

  (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)))
