Put upstream caches one level deeper in the directory hierarchy.

Author: xach

upstream-http.lisp

@@ -22,7 +22,7 @@
   (merge-logical (format nil "~A/~A.dat"
                          (project-name source)
                          (string-digest (location source)))
-                 "quicklisp-controller:http-cache;"))
+                 "quicklisp-controller:upstream-cache;http;"))
 
 (defmethod make-release-tarball ((source http-source) output-file)
   (let ((prefix (release-tarball-prefix source))

upstream-vcs.lisp

@@ -79,7 +79,7 @@
     (merge-logical (format nil "~A/~A/"
                            (project-name source)
                            (string-digest (location source)))
-                   "quicklisp-controller:vcs-cache;")))
+                   "quicklisp-controller:upstream-cache;vcs;")))
 
 (defmethod ensure-source-cache ((source vcs-source))
   (let ((pathname (cached-checkout-directory source)))