   (let [[old new] (swap-returning-prev! lossy-workers* dissoc key)]
     (when-let [old-worker (get old key)]
       (.put (:queue old-worker) :die)))
+  (log-event "Removing event handler associated with key: " key)
   (handlers/remove-handler! handler-pool key))
 
 (defn remove-all-handlers

  Handlers can return :overtone/remove-handler to be removed from the
  handler list after execution."
  [event-type handler key]
  (log-event "Registering sync event handler:: " event-type key)
  (handlers/add-sync-handler! handler-pool event-type key handler))

(defn on-latest-event

  potentially long-running handler fns where handling the most recent
  event is all that matters."
  [event-type handler key]
  (log-event "Registering lossy event handler:: " event-type " with key:" key)
  (let [worker (lossy-worker (fn [val]
                               (handler val)))
        [old _] (swap-returning-prev! lossy-workers* assoc key worker)]
