 (defn create-cache
   "Create system level cache."
   ([]
-   (create-cache (cc/lru-cache-factory {})))
+   (create-cache (cc/basic-cache-factory {})))
   ([initial-cache]
    {:initial initial-cache
     :atom (atom initial-cache)}))

  "Looks up the value of the cached item using the key. If there is a cache miss it will invoke
  the function given with no arguments, save the value in the cache and return the value."
  [cmr-cache key f]
  (-> (swap! (:atom cmr-cache)
             (fn [cache]
               (if (cc/has? cache key)

  [cmr-cache]
  (reset! (:atom cmr-cache) (:initial cmr-cache)))

(defn set-cache!
  [cmr-cache value]
  (swap! (:atom cmr-cache)
         (fn [_] value)))




