Commit 00417eb6 authored by Robert P. Goldman's avatar Robert P. Goldman
Browse files

Minor fix to UIOP:COLLECT-SUB*DIRECTORIES.

Even if the root check failed, it was still recursing.
parent 36abadaa
...@@ -267,10 +267,10 @@ permits this." ...@@ -267,10 +267,10 @@ permits this."
on the directory if COLLECTP returns true when CALL-FUNCTION'ed with the directory, on the directory if COLLECTP returns true when CALL-FUNCTION'ed with the directory,
and recurse each of its subdirectories on which the RECURSEP returns true when CALL-FUNCTION'ed with them." and recurse each of its subdirectories on which the RECURSEP returns true when CALL-FUNCTION'ed with them."
(when (call-function collectp directory) (when (call-function collectp directory)
(call-function collector directory)) (call-function collector directory)
(dolist (subdir (subdirectories directory)) (dolist (subdir (subdirectories directory))
(when (call-function recursep subdir) (when (call-function recursep subdir)
(collect-sub*directories subdir collectp recursep collector))))) (collect-sub*directories subdir collectp recursep collector))))))
;;; Resolving symlinks somewhat ;;; Resolving symlinks somewhat
(with-upgradability () (with-upgradability ()
......
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