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

uiop/filesystem.lisp

+4 −4
Original line number Diff line number Diff line
@@ -267,10 +267,10 @@ permits this." 
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."

    (when (call-function collectp directory)

      (call-function collector directory))

      (call-function collector directory)

      (dolist (subdir (subdirectories directory))

        (when (call-function recursep subdir)

        (collect-sub*directories subdir collectp recursep collector)))))

          (collect-sub*directories subdir collectp recursep collector))))))



;;; Resolving symlinks somewhat

(with-upgradability ()