Commit 11f8e39d authored by Robert Goldman's avatar Robert Goldman

Add cache invalidation.

When processing system definition, invalidate the INPUT-FILES cache for
DEFINE-OP.
parent b8de08b6
...@@ -109,7 +109,8 @@ ...@@ -109,7 +109,8 @@
(asdf-message (compatfmt "~&~@<; ~@;Loading system definition~@[ for ~A~] from ~A~@:>~%") (asdf-message (compatfmt "~&~@<; ~@;Loading system definition~@[ for ~A~] from ~A~@:>~%")
(coerce-name s) pathname) (coerce-name s) pathname)
;; dependencies will depend on what's loaded via definition-dependency-list ;; dependencies will depend on what's loaded via definition-dependency-list
(unset-asdf-cache-entry `(component-depends-on ,o ,s))) (unset-asdf-cache-entry `(component-depends-on ,o ,s))
(unset-asdf-cache-entry `(input-files ,o ,s)))
(load* pathname :external-format (encoding-external-format (detect-encoding pathname))))) (load* pathname :external-format (encoding-external-format (detect-encoding pathname)))))
(defun load-asd (pathname &key name) (defun load-asd (pathname &key name)
......
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