From eaa52a973a9b67c07b2f8a08f022ecca34ed7073 Mon Sep 17 00:00:00 2001 From: Eric Timmons Date: Sat, 6 Oct 2018 23:55:52 -0400 Subject: [PATCH] Respect .cl-source-registry.cache files not at root of tree A typo caused ASDF to look for the .cl-source-registry.cache file only at the root of a tree when collecting ASD files. --- source-registry.lisp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/source-registry.lisp b/source-registry.lisp index ec3eec371..60001022e 100644 --- a/source-registry.lisp +++ b/source-registry.lisp @@ -90,7 +90,7 @@ after having found a .asd file? True by default.") (recurse-beyond-asds *recurse-beyond-asds*) ignore-cache) (let ((visited (make-hash-table :test 'equalp))) (flet ((collectp (dir) - (unless (and (not ignore-cache) (process-source-registry-cache directory collect)) + (unless (and (not ignore-cache) (process-source-registry-cache dir collect)) (let ((asds (collect-asds-in-directory dir collect))) (or recurse-beyond-asds (not asds))))) (recursep (x) ; x will be a directory pathname -- GitLab