X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fforeign.lisp;h=8c32729a9f935da63effb445d56688e08807f562;hb=65b5ab7e713d04e0d76bc0ee196374f6e57b922f;hp=cd838675613687198af7227565cda9821a3aadfa;hpb=b43d36ddab647b955432acc51a6d2aec3a128482;p=sbcl.git

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))))