diff --git a/source-registry.lisp b/source-registry.lisp index ec3eec371a6fe17fd38e74ddac853e91b0d76b00..60001022e9c5c9935e4f74399107802fc2fb6333 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