From ba6855ea3272d28fd6bd0134463e13023b48c770 Mon Sep 17 00:00:00 2001
From: "Robert P. Goldman" <rpgoldman@gmail.com>
Date: Sat, 5 Jul 2014 10:51:40 -0500
Subject: [PATCH] Add CLEAR-ASDF-CACHE.

---
 cache.lisp | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

diff --git a/cache.lisp b/cache.lisp
index 86a631759..018ce8adf 100644
--- a/cache.lisp
+++ b/cache.lisp
@@ -6,7 +6,8 @@
   (:export #:get-file-stamp #:compute-file-stamp #:register-file-stamp
            #:set-asdf-cache-entry #:unset-asdf-cache-entry #:consult-asdf-cache
            #:do-asdf-cache #:normalize-namestring
-           #:call-with-asdf-cache #:with-asdf-cache #:*asdf-cache*))
+           #:call-with-asdf-cache #:with-asdf-cache #:*asdf-cache*
+           #:clear-asdf-cache))
 (in-package :asdf/cache)
 
 ;;; This stamp cache is useful for:
@@ -23,6 +24,10 @@
                (setf (gethash key *asdf-cache*) value-list)
                value-list)))
 
+  (defun clear-asdf-cache ()
+    (when *asdf-cache*
+      (setf *asdf-cache* (make-hash-table :test 'equal))))
+
   (defun unset-asdf-cache-entry (key)
     (when *asdf-cache*
       (remhash key *asdf-cache*)))
-- 
GitLab