0.pre7.54:

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

diff --git a/src/compiler/ir1tran.lisp b/src/compiler/ir1tran.lisp
index 13d61ed..6b332e4 100644 (file)
--- a/src/compiler/ir1tran.lisp
+++ b/src/compiler/ir1tran.lisp
@@ -809,8 +809,8 @@
            (leaf
             (let* ((old-type (or (lexenv-find var type-restrictions)
                                  (leaf-type var)))
-                   (int (if (or (function-type-p type)
-                                (function-type-p old-type))
+                   (int (if (or (fun-type-p type)
+                                (fun-type-p old-type))
                             type
                             (type-approx-intersection2 old-type type))))
               (cond ((eq int *empty-type*)