1.0.31.14: removing :DEFAULT-INITARGS via DEFCLASS

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

diff --git a/src/code/filesys.lisp b/src/code/filesys.lisp
index e5bda9e..cd62fa6 100644 (file)
--- a/src/code/filesys.lisp
+++ b/src/code/filesys.lisp
@@ -477,7 +477,7 @@ 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* ((pathname (pathname file))
+  (let* ((pathname (translate-logical-pathname file))
          (namestring (native-namestring pathname :as-file t)))
     (truename file) ; for error-checking side-effect
     #!+win32