   (let [current-ops (.interestOps k)
         new-ops     (bit-or current-ops x)]
     (when (not= current-ops new-ops)
-      (debug (remote-address k) "adding op" (ops->str current-ops) "->" (ops->str new-ops))
+      (trace (remote-address k) "adding op" (ops->str current-ops) "->" (ops->str new-ops))
       (.interestOps k new-ops))))
 
 (defn ignore-op!

   (let [current-ops (.interestOps k)
         new-ops     (bit-and current-ops (bit-not x))]
     (when (not= current-ops new-ops)
       (debug (remote-address k) "ignoring op" (ops->str current-ops) "->" (ops->str new-ops)))
     (.interestOps k new-ops))))

(defmulti dispatch

  (or (get @connections address)
      (open-connection client address)))

(defmethod dispatch :resolve [connections {:keys [seeds ^Selector selector ^ConcurrentLinkedDeque dispatch-queue cluster? slot-cache command-cache] :as client} [_ op addr]]
  (let [conns         @connections
        slot          (:slot op)
        resolved-conn (if-let [address (or addr (get @slot-cache (:slot op)))]
                        (resolve-connection client address)
                        (or (rand-nth (vals conns))
                            (resolve-connection client (rand-seed client))))]
