Commit eaa52a97 authored by Eric Timmons's avatar Eric Timmons

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.
parent 04ae0f38
......@@ -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