   (adjudicator-panel-list->map (zx/xml-> xml :AdjPanelList :PanelList :Panel) id-generator-fn adjudicators))
 
 (defn rounds-xml->map [xml id-generator-fn]
-;  (round-list-post-process)
   (round-list->map (zx/xml-> xml :EventList :Event) id-generator-fn))
 
 (defn classes-xml->map [xml id-generator-fn]

      {:dp/temp-class-id (to-number (zx/attr round :ClassNumber))
       
       :round/id round-id
                                        ;:round/activity nil ;[example-activity-1]
       ;; TODO - This should be Seq!
       ;; TODO - maybe create the activity here and then suck it out?
       :temp/activity (assoc (make-activity
                              ;; Post processed
                              ""

     (mapv #(dissoc % :dp/panel-id) dp-panels) ;(adjudicator-panels-xml->map xml id-generator-fn dp-adjudicators)
     (mapv #(dissoc % :dp/temp-id) dp-adjudicators)
     (make-activities (mapv :temp/activity dp-rounds) classes (mapcat :class/rounds classes))
     classes)))


