Steel Bank Common Lisp

Update of /cvsroot/sbcl/sbcl/src/compiler/generic
In directory sfp-cvsdas-3.v30.ch3.sourceforge.com:/tmp/cvs-serv21746/src/compiler/generic

Modified Files:
	genesis.lisp 
Log Message:
1.0.43.40: Allow use of unmangled win32 function names

     * Patch lp#657117 from Kalyanov Dmitry


Index: genesis.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/src/compiler/generic/genesis.lisp,v
retrieving revision 1.164
retrieving revision 1.165
diff -u -d -r1.164 -r1.165
--- genesis.lisp	5 Oct 2010 07:46:57 -0000	1.164
+++ genesis.lisp	10 Oct 2010 00:34:11 -0000	1.165
@@ -1612,7 +1612,19 @@
                       (warn "redefining ~S from #X~X to #X~X"
                             name old-value value)))
                   (/show "adding to *cold-foreign-symbol-table*:" name value)
-                  (setf (gethash name *cold-foreign-symbol-table*) value))))))
+                  (setf (gethash name *cold-foreign-symbol-table*) value)
+                  #!+win32
+                  (let ((at-position (position #\@ name)))
+                    (when at-position
+                      (let ((name (subseq name 0 at-position)))
+                        (multiple-value-bind (old-value found)
+                            (gethash name *cold-foreign-symbol-table*)
+                          (when (and found
+                                     (not (= old-value value)))
+                            (warn "redefining ~S from #X~X to #X~X"
+                                  name old-value value)))
+                        (setf (gethash name *cold-foreign-symbol-table*)
+                              value)))))))))
   (values))     ;; PROGN
 
 (defun cold-foreign-symbol-address (name)

Update of /cvsroot/sbcl/sbcl
In directory sfp-cvsdas-3.v30.ch3.sourceforge.com:/tmp/cvs-serv21746

Modified Files:
	version.lisp-expr 
Log Message:
1.0.43.40: Allow use of unmangled win32 function names

     * Patch lp#657117 from Kalyanov Dmitry


Index: version.lisp-expr
===================================================================
RCS file: /cvsroot/sbcl/sbcl/version.lisp-expr,v
retrieving revision 1.5066
retrieving revision 1.5067
diff -u -d -r1.5066 -r1.5067
--- version.lisp-expr	9 Oct 2010 23:09:26 -0000	1.5066
+++ version.lisp-expr	10 Oct 2010 00:34:11 -0000	1.5067
@@ -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.43.39"
+"1.0.43.40"