From f064aa4fa4c459fad0b7a8ec37c62fe12c9bde3d Mon Sep 17 00:00:00 2001 From: Nikodemus Siivola Date: Thu, 9 Oct 2008 10:18:51 +0000 Subject: [PATCH] 1.0.21.13: fix NATIVE-NAMESTRING on Windows * Support for pathnames with directory NIL was broken. --- NEWS | 4 +++- src/code/win32-pathname.lisp | 7 ++++--- version.lisp-expr | 2 +- 3 files changed, 8 insertions(+), 5 deletions(-) diff --git a/NEWS b/NEWS index 80024f98a..3c084de99 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 87f8ca8f9..a3770feab 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 d65b1eae9..c664e7315 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" -- 2.11.4.GIT