Clear the dist cache properly before recranking.

Author: xach

dist-cache.lisp

@@ -2,6 +2,20 @@
 
 (in-package #:quicklisp-controller)
 
+(defun clear-tar-cache ()
+  (rm-rf "quicklisp-controller:dist;tar-cache;"))
+
+(defun clear-build-cache ()
+  (rm-rf "quicklisp-controller:dist;build-cache;"))
+
+(defun clear-build-artifacts ()
+  (rm-rf "quicklisp-controller:dist;build-artifacts;"))
+
+(defun clear-dist-caches ()
+  (clear-tar-cache)
+  (clear-build-cache)
+  (clear-build-artifacts))
+
 (defgeneric find-cached-release-tarball (source)
   (:method (source)
     (let* ((wild

recrank.lisp

@@ -16,9 +16,7 @@
 		   :subject "Quicklisp update failures"
 		   :from *report-to-email*
 		   :to *report-to-email*))))
-  (run "rm" "-rf"
-       (native-namestring
-        (translate-logical-pathname #p"quicklisp-controller:dist;build-artifacts;")))
+  (clear-dist-caches)
   (ensure-what-wins-you-can)
   (when report
     (with-skipping

utils.lisp

@@ -42,7 +42,7 @@
 
 (defun rm-rf (path)
   (unless *rm-rf-debug*
-    (run "rm" "-rf" (native path))))
+    (run "rm" "-rf" (native (translate-logical-pathname path)))))
 
 (defun call-in-temporary-directory (template-pathname fun)
   (flet ((random-temporary ()