xml – 同一多方法的不同方法之间的递归

这是一个示例输入文件(小到可以正常工作)：

<plist version="1.0">
<dict>
    <key>Integer example</key>
    <integer>5</integer>
    <key>Array example</key>
    <array>
        <integer>2</integer>
        <real>3.14159</real>
    </array>
    <key>Dictionary example</key>
    <dict>
        <key>Number</key>
        <integer>8675309</integer>
    </dict>
</dict>
</plist>

clojure.xml / parse将其转换为：

{:tag :plist,:attrs {:version "1.0"},:content [
    {:tag :dict,:attrs nil,:content [
        {:tag :key,:content ["Integer example"]}
        {:tag :integer,:content ["5"]}
        {:tag :key,:content ["Array example"]}
        {:tag :array,:content [
            {:tag :integer,:content ["2"]}
            {:tag :real,:content ["3.14159"]}
        ]}
        {:tag :key,:content ["Dictionary example"]}
        {:tag :dict,:content [
            {:tag :key,:content ["Number"]}
            {:tag :integer,:content ["8675309"]}
        ]}
    ]}
]}

我的代码将其转换为Clojure数据结构

{"Dictionary example" {"Number" 8675309},"Array example" [2 3.14159],"Integer example" 5}

我的代码的相关部分看起来像

; extract the content contained within e.g. <integer>...</integer>
(defn- first-content
  [c]
  (first (c :content)))

; return a parsed version of the given tag
(defmulti content (fn [c] (c :tag)))

(defmethod content :array
  [c]
  (apply vector (for [item (c :content)] (content item))))

(defmethod content :dict
  [c]
  (apply hash-map (for [item (c :content)] (content item))))

(defmethod content :integer
  [c]
  (Long. (first-content c)))

(defmethod content :key
  [c]
  (first-content c))

(defmethod content :real
  [c]
  (Double. (first-content c)))

; take a java.io.File (or similar) and return the parsed version
(defn parse-plist
  [source]
  (content (first-content (clojure.xml/parse source))))

代码的内容是内容函数,一种调用：标记(XML标记的名称)的多方法.我想知道是否有一些不同我应该做的,以使这个递归更好地工作.我尝试用蹦床内容替换所有三个内容调用,但这不起作用.我是否应该做些什么来使这种相互递归更有效地工作？或者我采取了根本错误的做法？

编辑：顺便说一句,这段代码是available on GitHub,在这种形式下,它可能更容易玩.