1.0.20.28: Fewer STYLE-WARNINGs for gf calls.

[sbcl.git] / src / compiler / ir1final.lisp

diff --git a/src/compiler/ir1final.lisp b/src/compiler/ir1final.lisp
index 8d0e0ca..adc591a 100644 (file)
--- a/src/compiler/ir1final.lisp
+++ b/src/compiler/ir1final.lisp
@@ -77,7 +77,7 @@
                (setf (info :function :type source-name) defined-ftype)
                (setf (info :function :assumed-type source-name) nil))
              (setf (info :function :where-from source-name) :defined))
-            (:declared
+            ((:declared :defined-method)
              (let ((declared-ftype (info :function :type source-name)))
                (unless (defined-ftype-matches-declared-ftype-p
                          defined-ftype declared-ftype)