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

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

                         :directory-tree
                         :plain-text}

        db-type (do ;(println "checking DB type")
                    (assert (not (nil? (get db-specs (:type specs))))
                            ":type needs to be found in db-specs")
                    (:type specs))

        db-file (do ;(println "checking db file")
                    (if (some needs-filename [(:type specs)])
                      (do (assert (string? (:filename specs))
                                  ":filename needs to be a string")
