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

Add CLEAR-ASDF-CACHE.

parent bb4d316f
Loading
Loading
Loading
Loading
+6 −1
Original line number Diff line number Diff line
@@ -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*)))