1.0.16.19: cleanups motivated by clisp host-2

[sbcl.git] / src / code / win32-pathname.lisp

diff --git a/src/code/win32-pathname.lisp b/src/code/win32-pathname.lisp
index e91a7b2..87f8ca8 100644 (file)
--- a/src/code/win32-pathname.lisp
+++ b/src/code/win32-pathname.lisp
@@ -272,8 +272,6 @@
          (type (pathname-type pathname))
          (type-present-p (typep type '(not (member nil :unspecific))))
          (type-string (if type-present-p type "")))
-    (when name-present-p
-      (setf as-file nil))
     (coerce
      (with-output-to-string (s)
        (when device