             (.increment service key delta)))))
 
 
-(defn increment-map [values & {:keys [service namespace initial]}]
-  (let [service (get-memcache-service :service service :namespace namespace)]
+(defn increment-map [values & {:keys [namespace initial]}]
+  (let [service (get-memcache-service :namespace namespace)]
     (if initial
         (.incrementAll service values (long initial))
         (.incrementAll service values))))

                       total-item-bytes])


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

   :replace-only MemcacheService$SetPolicy/REPLACE_ONLY_IF_PRESENT})


(defn get-memcache-service [& {:keys [namespace]}]
  (if (nil? namespace)
      (do (when (nil? @*memcache-service*)
            (reset! *memcache-service* (MemcacheServiceFactory/getMemcacheService)))
          @*memcache-service*)
      (let [s (@*namespaced-memcache-services* namespace)]
        (if-not (nil? s)
            s
            ((swap! *namespaced-memcache-services* assoc
                    namespace (MemcacheServiceFactory/getMemcacheService namespace))
             namespace)))))


(defrecord Statistics [bytes-returned-for-hits
