X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Ffilesys.lisp;h=2841bf5509df4310d1fd8274dbc23a7e4e25bba7;hb=6c129930bd75f25a66aa0cbf0e5bc8091401d5ce;hp=bde23dcb7fb2d6a1640cdd4ad8d011f73fdea31b;hpb=8fa3b333d2b37f45c3702f478f784b8c6f491080;p=sbcl.git

diff --git a/src/code/filesys.lisp b/src/code/filesys.lisp
index bde23dc..2841bf5 100644
--- 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