                      (->> (map #(get open-options %) modes)
                           (apply bit-or 0)))]
 
-    (println "done checking stuff")
+    ;(println "done checking stuff")
     (.open db tuned-db-file db-modes)
     db))
 

  (add-bin! db (.getBytes key)
            (bytes (.getBytes (edn-str value)))))

(defn get-bin!
  "Gets binary data from an open DB using a binary key.

Returns a byte array on success, 'nil' if it errors."
  [^DB db ^bytes key]
  (.get db key))

(defn get-edn!
  "Gets parsed Clojure data from an open DB using a string key.

Returns Clojure on success, 'nil' if it errors."

                          (str (:filename specs) (get db-specs db-type)))
                      (get db-specs db-type)))

        tuned-db-file (do; (println "checking tuning")
                          (if (and (map? (:tuning specs))
                                   (not (empty? (:tuning specs))))
                            (->> (:tuning specs)
