1.0.27.31: repeatable fasl header and debug-source

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

diff --git a/src/code/win32-pathname.lisp b/src/code/win32-pathname.lisp
index 87f8ca8..a3770fe 100644 (file)
--- a/src/code/win32-pathname.lisp
+++ b/src/code/win32-pathname.lisp
@@ -278,9 +278,10 @@
          (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)))