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


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

(defn collection
  "Returns a DBCollection."


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