Skip to content
Snippets Groups Projects
Commit f2fd2ab4 authored by Raymond Toy's avatar Raymond Toy
Browse files

Don't stat each directory as it's being added to the path in

%enumerate-directories. 

This makes this part of the function the same as the version from
18a.  Don't see any real reason why stat was required anyway.
parent eab088ab
No related branches found
No related tags found
No related merge requests found
......@@ -735,11 +735,10 @@
(etypecase piece
(simple-string
(let ((head (concatenate 'string head piece)))
(with-directory-node-noted (head)
(%enumerate-directories (concatenate 'string head "/")
(cdr tail) pathname
verify-existence follow-links
nodes function))))
(%enumerate-directories (concatenate 'string head "/")
(cdr tail) pathname
verify-existence follow-links
nodes function)))
((member :wild-inferiors)
(%enumerate-directories head (rest tail) pathname
verify-existence follow-links
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment