Clojure version of xml parsing

compare.clj

(ns logprocessor.core
  (:require [clojure.java.io :as io]
            [clojure.zip :as zip]
            [clojure.data.xml :as xml]
            [clojure.data.zip.xml :as zx])
  (:gen-class))

(def store "/Users/rmuslimov/projects/logs/d=12")

(defn get-zipper
  "Get zipper from FileObject instance."
  [filename]
  (-> filename io/input-stream xml/parse zip/xml-zip))

(defn get-xml-method-name
  [zipper]
  "Just test mode only get example xml file."
  (let [body (zx/xml1-> zipper :Body)]
    (-> body zip/down zip/node :tag)))

(defn get-xml-method-name2
  [zipper]
  (-> zipper zip/down zip/right zip/down zip/down :tag))

(defn get-xml-method-name3
  [zipper]
  (type zipper))

(defn parse-all
  []
  (time
   (count
    (map
     #(-> % get-zipper get-xml-method-name2)
     (-> store io/file file-seq rest)))))

(defn -main
  ""
  [& args]
  (dotimes [n 10] (parse-all)))

;; (-main)
;; (parse-all)