X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fmain.lisp;h=82c5e735a193019cb07ba556d85ebdf0a01b7d97;hb=be9eb6c67b5f43a095c3de17bea945c309d662e4;hp=cf88b9968bc45f58ecc752d48518ab4f10f073c5;hpb=b6cb3d5b2e2a0d6e6c92a2f3d852051540660fef;p=sbcl.git

diff --git a/src/compiler/main.lisp b/src/compiler/main.lisp
index cf88b99..82c5e73 100644
--- a/src/compiler/main.lisp
+++ b/src/compiler/main.lisp
@@ -1114,8 +1114,8 @@
     (values
      (fasl-dump-load-time-value-lambda lambda *compile-object*)
      (let ((type (leaf-type lambda)))
-       (if (function-type-p type)
-	   (single-value-type (function-type-returns type))
+       (if (fun-type-p type)
+	   (single-value-type (fun-type-returns type))
 	   *wild-type*)))))
 
 ;;; Compile the FORMS and arrange for them to be called (for effect,