Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
asdf
asdf
Commits
00417eb6
Commit
00417eb6
authored
Aug 29, 2014
by
Robert P. Goldman
Browse files
Minor fix to UIOP:COLLECT-SUB*DIRECTORIES.
Even if the root check failed, it was still recursing.
parent
36abadaa
Changes
1
Hide whitespace changes
Inline
Side-by-side
uiop/filesystem.lisp
View file @
00417eb6
...
...
@@ -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
)
)
(
dolist
(
subdir
(
subdirectories
directory
))
(
when
(
call-function
recursep
subdir
)
(
collect-sub*directories
subdir
collectp
recursep
collector
)))))
(
call-function
collector
directory
)
(
dolist
(
subdir
(
subdirectories
directory
))
(
when
(
call-function
recursep
subdir
)
(
collect-sub*directories
subdir
collectp
recursep
collector
)))))
)
;;; Resolving symlinks somewhat
(
with-upgradability
()
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment