             MemcacheService$SetPolicy]))
 
 
-(defonce *default-memcache-service* (atom nil))
+(defonce *memcache-service* (atom nil))
 (defonce *namespaced-memcache-services* (atom {}))
 
 


(defn clear-all
  "Clears the entire cache. Does not respect namespaces!"
  [& {:keys [service namespace]}]
  (let [service (get-memcache-service :service service :namespace namespace)]
    (.clearAll service)))


(defn contains? [key & {:keys [service namespace]}]
  (let [service (get-memcache-service :service service :namespace namespace)]
    (.contains service key)))


(defn delete
  "If (sequential? key), deletes in batch."
  [key & {:keys [service namespace millis-no-readd]}]
  (let [service (get-memcache-service :service service :namespace namespace)]
    (if millis-no-readd
        (if (sequential? key)
            (.deletAll service key millis-no-readd)

                       total-item-bytes])


(defn statistics [& {:keys [namespace]}]
  (let [stats (.getStatistics (get-memcache-service :namespace namespace))]
    (Statistics. (.getBytesReturnedForHits stats)
                 (.getHitCount stats)
                 (.getItemCount stats)
