0.8.5.3:

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

diff --git a/src/code/filesys.lisp b/src/code/filesys.lisp
index 46e9e85..32a48ef 100644 (file)
--- a/src/code/filesys.lisp
+++ b/src/code/filesys.lisp
@@ -829,9 +829,16 @@
         (merged-pathname (merge-pathnames pathname)))
     (!enumerate-matches (match merged-pathname)
       (let* ((*ignore-wildcards* t)
-            (truename (truename match)))
-        (setf (gethash (namestring truename) truenames)
-             truename)))
+            ;; FIXME: Why not TRUENAME?  As reported by Milan Zamazal
+            ;; sbcl-devel 2003-10-05, using TRUENAME causes a race
+            ;; condition whereby removal of a file during the
+            ;; directory operation causes an error.  It's not clear
+            ;; what the right thing to do is, though.  -- CSR,
+            ;; 2003-10-13
+            (truename (probe-file match)))
+       (when truename
+         (setf (gethash (namestring truename) truenames)
+               truename))))
     (mapcar #'cdr
            ;; Sorting isn't required by the ANSI spec, but sorting
            ;; into some canonical order seems good just on the