X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Ffilesys.lisp;h=cd62fa6a4065ca95d1710cadd7554da0c39ee902;hb=65b5ab7e713d04e0d76bc0ee196374f6e57b922f;hp=0cac4e79274998fc26d63b05f0e63e288bd0c9b7;hpb=8b244d668721358d4a452650a9e608149c72c8f2;p=sbcl.git

diff --git a/src/code/filesys.lisp b/src/code/filesys.lisp
index 0cac4e7..cd62fa6 100644
--- a/src/code/filesys.lisp
+++ b/src/code/filesys.lisp
@@ -477,8 +477,9 @@ If FILE is a stream, on Windows the stream is closed immediately. On Unix
 plaforms the stream remains open, allowing IO to continue: the OS resources
 associated with the deleted file remain available till the stream is closed as
 per standard Unix unlink() behaviour."
-  (let* ((truename (truename file))
-         (namestring (native-namestring truename :as-file t)))
+  (let* ((pathname (translate-logical-pathname file))
+         (namestring (native-namestring pathname :as-file t)))
+    (truename file) ; for error-checking side-effect
     #!+win32
     (when (streamp file)
       (close file))