Update of /cvsroot/sbcl/sbcl/src/code
In directory sfp-cvsdas-3.v30.ch3.sourceforge.com:/tmp/cvs-serv31918/src/code
Modified Files:
foreign.lisp
Log Message:
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.
Index: foreign.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/src/code/foreign.lisp,v
retrieving revision 1.47
retrieving revision 1.48
diff -u -d -r1.47 -r1.48
--- foreign.lisp 13 Jun 2010 04:40:20 -0000 1.47
+++ foreign.lisp 30 Jun 2010 16:25:02 -0000 1.48
@@ -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))))
|