X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fwin32-pathname.lisp;h=a3770feab832b04168a32928fab1aeeac0e72c6b;hb=fb2f167e3ea360de1eb1c436de948df5086a6292;hp=e91a7b25524425fefbf52f03c5636e405ce9a1e0;hpb=57b530ca87484853ae25218c842a9b00c3f7066e;p=sbcl.git

diff --git a/src/code/win32-pathname.lisp b/src/code/win32-pathname.lisp
index e91a7b2..a3770fe 100644
--- a/src/code/win32-pathname.lisp
+++ b/src/code/win32-pathname.lisp
@@ -272,17 +272,16 @@
          (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
          (write-string device s)
          (write-char #\: s))
        (tagbody
-          (ecase (pop directory)
-            (:absolute (write-char #\\ s))
-            (:relative))
+          (when directory
+            (ecase (pop directory)
+              (:absolute (write-char #\\ s))
+              (:relative)))
           (unless directory (go :done))
         :subdir
           (let ((piece (pop directory)))