vector-map

(defn ->vector-map [m [k v]]
   (update m k (fnil conj []) v))
 
(->vector-map {} [:k 1])
;;=> {:k [1]}
 
(->vector-map {:k [1]} [:k 2])
;;=> {:k [1 2]}