From: Stas Boukarev <stassats@gmail.com>
Date: Wed, 6 Nov 2013 17:11:53 +0000 (+0400)
Subject: Fix contrib building on mingw.
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=cf49f2d086069a9c1b57f501df9a6a0bd3a34c3c;p=sbcl.git

Fix contrib building on mingw.

The current directory has to be found out using pwd -W, to avoid any
conversion into unix-looking pathnames.
---

diff --git a/NEWS b/NEWS
index 9510e5b..9ec0f85 100644
--- a/NEWS
+++ b/NEWS
@@ -9,6 +9,7 @@ changes relative to sbcl-1.1.13:
     undefined-function warnings in subsequent forms. (lp#503095)
   * bug fix: EQUALP now compares correctly structures with raw slots larger
     than a single word.
+  * bug fix: contribs couldn't be built on Windows with MinGW.
 
 changes in sbcl-1.1.13 relative to sbcl-1.1.12:
   * optimization: better distribution of SXHASH over small conses of related
diff --git a/sbcl-pwd.sh b/sbcl-pwd.sh
index dcf677b..487a5d5 100644
--- a/sbcl-pwd.sh
+++ b/sbcl-pwd.sh
@@ -4,10 +4,13 @@
 # This ensures that SBCL_PWD is a path understandable to SBCL.
 
 sbcl_pwd() {
-    if [ "${OSTYPE:-}" = "cygwin" ] ; then
-	SBCL_PWD="`cygpath -m \"$(pwd)\"`"
-    else
-	SBCL_PWD="`pwd`"
-    fi
+    case $OSTYPE in
+        cygwin)
+            SBCL_PWD="`cygpath -m \"$(pwd)\"`" ;;
+        msys)
+            SBCL_PWD="`pwd -W`" ;;
+        *)
+            SBCL_PWD="`pwd`" ;;
+    esac
     export SBCL_PWD
 }