Commit f9ca889b authored by François-René Rideau's avatar François-René Rideau
Browse files

Merge branch 'fix-source-registry-cache' into 'master'

Respect .cl-source-registry.cache files not at root of tree

See merge request asdf/asdf!110
parents 04ae0f38 eaa52a97
......@@ -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
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