Java object reader

gistfile1.clj

(defn primitive? [o]
  (some #{true}
    (map 
      (partial isa? (.getClass o))
      [Boolean Character Byte Short Integer Long Float Double String])))

(defn read-object [o]    
  (when o
    (cond
      
      (isa? (.getClass o) java.util.Map)
      (reduce
        (fn [entries e] 
          (assoc entries (keyword (.getKey e)) (read-object (.getValue e))))
        {} (.entrySet o))
      
      (or (.. o getClass isArray) (isa? (.getClass o) java.lang.Iterable))      
      (doall (map read-object (seq o)))
      
      (primitive? o) o
      
      :else
      (let [fields (.. o getClass getDeclaredFields)]
        (reduce 
          (fn [m f]
            (.setAccessible f true)
            (assoc m (keyword (.getName f)) (read-object (.get f o))))
          {} fields)))))