     (map :a (-> search-result :body :response :docs))))
 
 (defn- get-versions! [artifact]
+  "Gets all the versions from an artifact belonging to the org.clojure."
   (->> (http/get (str "http://search.maven.org/solrsearch/select?"
                       "q=g:%22org.clojure%22+AND+a:%22"
                       artifact

  (->> artifacts
       (partition-all 2)
       (map #(future (->> %
                         (map collate-artifact-and-versions)
                         (map add-artifact)
                         dorun)))))

(defn- get-artifacts-from-mvn-central! []
  (-> (get-all-clj-artifacts!)


(defn- update-artifact-cache! []
  (let [mvn-central-futures (get-artifacts-from-mvn-central!)
        clojars-future (future (add-artifacts-from-clojars!))]
    (-> (map deref mvn-central-futures) dorun)
    @clojars-future)
  (alter-meta! artifacts update-in [:last-modified]
