X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fforeign.lisp;h=bd89cd83e8e977a0cfa38553a93a0ab36f06cebd;hb=a160917364f85b38dc0826a5e3dcef87e3c4c62c;hp=fdf3275bbd0be2424f8922101a95b1c866fa0818;hpb=02d7495253b9075e4d86275590c3e827c814b596;p=sbcl.git

diff --git a/src/code/foreign.lisp b/src/code/foreign.lisp
index fdf3275..bd89cd8 100644
--- a/src/code/foreign.lisp
+++ b/src/code/foreign.lisp
@@ -107,7 +107,7 @@ if the symbol isn't found."
 ;;; Cleanups before saving a core
 #-sb-xc-host
 (defun foreign-deinit ()
-  #!+(and os-provides-dlopen (not linkage-table))
+  #!+(and os-provides-dlopen (or (not linkage-table) win32))
   (when (dynamic-foreign-symbols-p)
     (warn "~@<Saving cores with alien definitions referring to non-static ~
            foreign symbols is unsupported on this platform: references to ~
@@ -131,9 +131,8 @@ if the symbol isn't found."
               sb!vm:linkage-table-space-end)
       (dohash ((name-and-datap info) *linkage-info* :locked t)
         (let ((table-addr (linkage-info-address info)))
-          (when (<= table-addr
-                    addr
-                    (+ table-addr sb!vm:linkage-table-entry-size))
+          (when (and (<= table-addr addr)
+                     (< addr (+ table-addr sb!vm:linkage-table-entry-size)))
             (return-from sap-foreign-symbol (car name-and-datap))))))
     #!+os-provides-dladdr
     (with-alien ((info (struct dl-info