     (persistent!
      (reduce (fn [acc key]
                (let [values (.getAll params key)]
-                 (reduce #(hp/assoc-conj! %1 (keyword key) %2) acc values)))
+                 (reduce #(assoc-conj! %1 (keyword key) %2) acc values)))
              (transient {})
              (.keySet params)))))
 

(alter-meta! #'->ContextData assoc :private true)
(alter-meta! #'map->ContextData assoc :private true)

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Public Api
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(defn context
  "A catacumba context constructor."

           ratpack.registry.Registry
           java.util.Optional))

;; --- Types

(defrecord DefaultContext [])
(defrecord ContextData [payload])
