 
 (defn list-indexes [#^DBCollection collection]
   (map to-clj (.getIndexInfo collection)))
-


(declare to-clj)
(defn to-clj-value [v]
  (cond
   (map? v) (to-clj v)
   (isa? (class v) java.util.List) (map to-clj-value v)
   :otherwise v))



(defn drop-db [#^DBObject db]
    (.dropDatabase db))

(defn list-collections [#^Mongo db]
  (map keyword (.getCollectionNames db)))

(defn collection
  "Returns a DBCollection."
