From f2fd2ab4ebbecf9ab08dcb30ca62100ada3f6400 Mon Sep 17 00:00:00 2001 From: Raymond Toy <toy.raymond@gmail.com> Date: Sat, 15 Nov 2014 10:43:46 -0800 Subject: [PATCH] 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. --- src/code/filesys.lisp | 9 ++++----- 1 file changed, 4 insertions(+), 5 deletions(-) diff --git a/src/code/filesys.lisp b/src/code/filesys.lisp index ee844e3f7..fe997a7c7 100644 --- a/src/code/filesys.lisp +++ b/src/code/filesys.lisp @@ -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 -- GitLab