Loading cache.lisp +6 −1 Original line number Diff line number Diff line Loading @@ -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: Loading @@ -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*))) Loading Loading
cache.lisp +6 −1 Original line number Diff line number Diff line Loading @@ -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: Loading @@ -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*))) Loading