cljs.reader/register-tag-parser!

(defn register-tag-parser!
  [tag f]
  (let [old-parser (get @*tag-table* tag)]
    (swap! *tag-table* assoc tag f)
    old-parser))