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