                      :dlo dlo
                      :maybe-send-cmd-event! maybe-send-cmd-event!
                      :q q
+                     :initial-gc-finished? initial-gc-finished?
                      :scf-read-db read-db
                      :scf-write-dbs write-db-pools
                      :scf-write-db-cfgs write-db-cfgs

                   _ write-db-pools :error close-write-dbs

                   write-db-lock-statuses (repeatedly (count write-db-pools)
                                                      database-lock-status)]

        (init-metrics read-db write-db-pools)



(defn start-garbage-collection
  [{:keys [clean-lock stop-status] :as context}
   job-pool db-configs db-pools db-lock-statuses shutdown-for-ex finished-initial-gc]
  (doseq [[cfg db lock-status] (map vector db-configs db-pools db-lock-statuses)
          :let [interval (to-millis (:gc-interval cfg))]
          :when (pos? interval)]
