find the classcastexception...

gistfile1.clj

(defn semi-splay [tree el]
  (loop [nds tree x el]
    (let [to-splay (take 3 (get-path nds x))]
         (if (> (count to-splay) 2)
           (let [outer-trees (get-outer-trees to-splay)
                 sorted-to-splay (sort-by-vals to-splay)
                 new-root (:val (second sorted-to-splay))]
             (recur (swap-nodes
                     nds (:val (last to-splay))
                     {:val new-root
                      :left {:val (:val (first sorted-to-splay))
                             :left (first outer-trees)
                             :right (second outer-trees)}
                      :right {:val (:val (third (sorted-to-splay)))
                              :left (third outer-trees)
                              :right (last outer-trees)}
                      })
                    new-root))
          nds))))