From: Alastair Bridgewater <lisphacker@users.sourceforge.net>
Date: Wed, 30 Jun 2010 16:25:01 +0000 (+0000)
Subject: 1.0.39.24: win32: Fix foreign function name conversion.
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;ds=inline;h=3397c1325c8918fe7f187673ff33e469158955e0;p=sbcl.git

1.0.39.24: win32: Fix foreign function name conversion.

  * In 1.0.39.15, the win32 case for foreign function names was
accidentally removed when the darwin/dlshim case (the same case)
was removed.  Re-added the win32 case.
---

diff --git a/src/code/foreign.lisp b/src/code/foreign.lisp
index cd83867..8c32729 100644
--- a/src/code/foreign.lisp
+++ b/src/code/foreign.lisp
@@ -16,7 +16,8 @@
 
 (defun extern-alien-name (name)
   (handler-case
-      (coerce name 'base-string)
+      #!-win32 (coerce name 'base-string)
+      #!+win32 (concatenate 'base-string "_" name)
     (error ()
       (error "invalid external alien name: ~S" name))))
 
diff --git a/version.lisp-expr b/version.lisp-expr
index fd7dbb8..4de1dcf 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.39.23"
+"1.0.39.24"