X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fir1final.lisp;h=a921fc8771c28f8e7d04731ef97c3a19c8ed0c10;hb=e240610bcc02cfe6f970131a362502d33be114c5;hp=8d0e0caec4089de4c68193bdbca25507d6c70d88;hpb=d604a358d8e5eb5587989e0a4f1d31dbe6ac5ffe;p=sbcl.git

diff --git a/src/compiler/ir1final.lisp b/src/compiler/ir1final.lisp
index 8d0e0ca..a921fc8 100644
--- 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)
@@ -147,7 +147,7 @@
     (case (functional-kind fun)
       (:external
        (finalize-xep-definition fun))
-      ((nil)
+      ((nil :toplevel)
        (setf (leaf-type fun) (definition-type fun)))))
 
   (maphash #'note-failed-optimization