0.pre7.54:

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

diff --git a/src/compiler/ir1final.lisp b/src/compiler/ir1final.lisp
index d6cf88c..6b0bcb6 100644 (file)
--- a/src/compiler/ir1final.lisp
+++ b/src/compiler/ir1final.lisp
@@ -71,7 +71,7 @@
        (ecase where
          (:assumed
           (let ((approx-type (info :function :assumed-type name)))
-            (when (and approx-type (function-type-p defined-ftype))
+            (when (and approx-type (fun-type-p defined-ftype))
               (valid-approximate-type approx-type defined-ftype))
             (setf (info :function :type name) defined-ftype)
             (setf (info :function :assumed-type name) nil))