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