       nil))
 
   (worker [tstore conn wopts]
-    (let [{:keys [redis-ttl-ms]} opts
+    (let [{:keys [tqname redis-ttl-ms]} opts
           {:keys [nattempts retry-backoff-ms]
            :or   {nattempts 3
                   retry-backoff-ms mq/exp-backoff}} wopts]


(comment (wcar {} (car/ping) (extend-exists nil ["k1" "invalid" "k3"])))

(defn- extend-exists-missing-ks [ttl-ms ks & [only-evictable?]]
  (let [existance-replies (->> (extend-exists ttl-ms ks)
                               (car/with-replies) ; Single bulk reply

          nil))))

  (dirty* [tstore ks]
    (let [{:keys [tqname redis-ttl-ms]} opts
          ks             (prep-ks ks)
          ks-missing     (extend-exists-missing-ks redis-ttl-ms ks)
          ks-not-missing (->> ks (filterv (complement (set ks-missing))))]
