X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Ffilesys.lisp;h=b14adc882f96c0801fbd25dfabb1da1a7aface51;hb=c712f88b26cd7547ee984b90e18c134401335bc3;hp=4543713b95418bf858372b5cc8484b7c1c468f65;hpb=d269194b61cad24590c75fe2df7d9237a668668c;p=sbcl.git

diff --git a/src/code/filesys.lisp b/src/code/filesys.lisp
index 4543713..b14adc8 100644
--- a/src/code/filesys.lisp
+++ b/src/code/filesys.lisp
@@ -1136,7 +1136,11 @@ Experimental: interface subject to change."
       (error 'simple-file-error
              :format-control "bad place for a wild pathname"
              :pathname pathspec))
-    (let ((dir (pathname-directory pathname)))
+    (let* ((dir (pathname-directory pathname))
+           ;; *d-p-d* can have name and type components which would prevent
+           ;; PROBE-FILE below from working
+           (*default-pathname-defaults*
+             (make-pathname :directory dir :device (pathname-device pathname))))
       (loop for i from 1 upto (length dir)
             do
             (let* ((newpath (make-pathname