0.7.6.21:

[sbcl.git] / src / code / filesys.lisp

diff --git a/src/code/filesys.lisp b/src/code/filesys.lisp
index bde23dc..2841bf5 100644 (file)
--- a/src/code/filesys.lisp
+++ b/src/code/filesys.lisp
@@ -827,11 +827,11 @@
         (merged-pathname (merge-pathnames pathname
                                          *default-pathname-defaults*)))
     (!enumerate-matches (match merged-pathname)
-      (let ((*ignore-wildcards* t)
-            (truename (truename (if (eq (sb!unix:unix-file-kind match)
-                                       :directory)
-                                    (concatenate 'string match "/")
-                                    match))))
+      (let* ((*ignore-wildcards* t)
+            (truename (truename (if (eq (sb!unix:unix-file-kind match)
+                                        :directory)
+                                    (concatenate 'string match "/")
+                                    match))))
         (setf (gethash (namestring truename) truenames)
              truename)))
     (mapcar #'cdr