X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fforeign.lisp;h=430614ec86e04b4156debdeeda0e3453f901f457;hb=25fe91bf63fd473d9316675b0e0ca9be0079e9eb;hp=096a833e345c83cb5b7525e6a364710a499a2f7a;hpb=9b69673c900a480026c25f4ee5e98f3192e4b98a;p=sbcl.git

diff --git a/src/code/foreign.lisp b/src/code/foreign.lisp
index 096a833..430614e 100644
--- a/src/code/foreign.lisp
+++ b/src/code/foreign.lisp
@@ -95,7 +95,11 @@ if the symbol isn't found."
   #!+os-provides-dlopen
   (reopen-shared-objects)
   #!+linkage-table
-  (update-linkage-table))
+  ;; Don't warn about undefined aliens on startup. The same core can
+  ;; reasonably be expected to work with different versions of the
+  ;; same library.
+  (handler-bind ((style-warning #'muffle-warning))
+    (update-linkage-table)))
 
 ;;; Cleanups before saving a core
 #-sb-xc-host