X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fcheckgen.lisp;h=6f0dad4f2deb99a22f6ff6f9526c9ca8da854eb0;hb=be9eb6c67b5f43a095c3de17bea945c309d662e4;hp=635960bc750a9f9e78e4be69d3cb6fd33cd4d0d6;hpb=b6cb3d5b2e2a0d6e6c92a2f3d852051540660fef;p=sbcl.git

diff --git a/src/compiler/checkgen.lisp b/src/compiler/checkgen.lisp
index 635960b..6f0dad4 100644
--- a/src/compiler/checkgen.lisp
+++ b/src/compiler/checkgen.lisp
@@ -114,7 +114,7 @@
   (declare (type ctype type))
   (multiple-value-bind (res count) (values-types type)
     (values (mapcar #'(lambda (type)
-			(if (function-type-p type)
+			(if (fun-type-p type)
 			    (specifier-type 'function)
 			    type))
 		    res)
@@ -301,7 +301,7 @@
     `(multiple-value-bind ,temps 'dummy
        ,@(mapcar #'(lambda (temp type)
 		     (let* ((spec
-			     (let ((*unparse-function-type-simplify* t))
+			     (let ((*unparse-fun-type-simplify* t))
 			       (type-specifier (second type))))
 			    (test (if (first type) `(not ,spec) spec)))
 		       `(unless (typep ,temp ',test)