projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
don't close runtime dlhandle on Darwin
[sbcl.git]
/
src
/
code
/
filesys.lisp
diff --git
a/src/code/filesys.lisp
b/src/code/filesys.lisp
index
4543713
..
b14adc8
100644
(file)
--- 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))
(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
(loop for i from 1 upto (length dir)
do
(let* ((newpath (make-pathname