status.clj

(progress
    [timestamp]
    (let [[out in] (split-with #(< (first %) timestamp) end-timestamp-sorted-map)
          new-sorted-map (into (sorted-map) in)
          new-hashed-map (reduce
                          dissoc key-hashed-map
                          (map first
                               (filter #(empty? (second %))
                                       (reduce
                                        (fn [m x]
                                          (update-in
                                           m [(key-fn x)]
                                           (fn [vals]
                                             (remove #(= % x) vals))))
                                        key-hashed-map
                                        (flatten (map second out))))))]
      (HashSS. new-sorted-map new-hashed-map key-fn)))