diff --git a/src/code/filesys.lisp b/src/code/filesys.lisp index ee844e3f76cbd716f352901c2df118ffdba5bc44..fe997a7c7a7bdde96d3504d2365893e1bbd69cfc 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