From: Nikodemus Siivola <nikodemus@random-state.net>
Date: Thu, 9 Oct 2008 10:18:51 +0000 (+0000)
Subject: 1.0.21.13: fix NATIVE-NAMESTRING on Windows
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=f064aa4fa4c459fad0b7a8ec37c62fe12c9bde3d;p=sbcl.git

1.0.21.13: fix NATIVE-NAMESTRING on Windows

 * Support for pathnames with directory NIL was broken.
---

diff --git a/NEWS b/NEWS
index 80024f9..3c084de 100644
--- a/NEWS
+++ b/NEWS
@@ -14,7 +14,9 @@ changes in sbcl-1.0.22 relative to 1.0.21:
   * bug fix: SERVE-EVENT occasionally signaled an error about bogus
     file descriptors when there were none.
   * bug fix: DEFINE-COMPILER-MACRO support of destructuring lambda-lists
-    was broken. (reported by Willem Broekema)
+    was broken. (reporteed by Willem Broekema)
+  * bug fix: SB-EXT:NATIVE-NAMESTRING on Windows did not work on
+    pathnames without a directory.
 
 changes in sbcl-1.0.21 relative to 1.0.20:
   * new feature: the compiler is able to track the effective type of a
diff --git a/src/code/win32-pathname.lisp b/src/code/win32-pathname.lisp
index 87f8ca8..a3770fe 100644
--- 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)))
diff --git a/version.lisp-expr b/version.lisp-expr
index d65b1ea..c664e73 100644
--- a/version.lisp-expr
+++ b/version.lisp-expr
@@ -17,4 +17,4 @@
 ;;; checkins which aren't released. (And occasionally for internal
 ;;; versions, especially for internal versions off the main CVS
 ;;; branch, it gets hairier, e.g. "0.pre7.14.flaky4.13".)
-"1.0.21.12"
+"1.0.21.13"