Commit ba6855ea authored by Robert P. Goldman's avatar Robert P. Goldman

Add CLEAR-ASDF-CACHE.

parent bb4d316f
......@@ -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*)))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment