X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fglobaldb.lisp;h=da77f649ff0efa8eb3661cab602f9242fc7e3d8a;hb=abb03f939ada55bdc1856df5cc48815fd0dff69d;hp=69c579c04c6e2d7c80de70f793d9bfe94700b16e;hpb=46fd9f6ef6d5b7c1848984c009875b7d39a593ef;p=sbcl.git

diff --git a/src/compiler/globaldb.lisp b/src/compiler/globaldb.lisp
index 69c579c..da77f64 100644
--- a/src/compiler/globaldb.lisp
+++ b/src/compiler/globaldb.lisp
@@ -926,7 +926,8 @@
   :default
   #+sb-xc-host (specifier-type 'function)
   #-sb-xc-host (if (fboundp name)
-                   (specifier-type (sb!impl::%fun-type (fdefinition name)))
+                   (handler-bind ((style-warning #'muffle-warning))
+                     (specifier-type (sb!impl::%fun-type (fdefinition name))))
                    (specifier-type 'function)))
 
 ;;; the ASSUMED-TYPE for this function, if we have to infer the type