X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fgeneric%2Fprimtype.lisp;h=7310a2d9df0eea225ac6ecac519ec71814dc35b7;hb=eafc55e040c41a5fc4215d364f2b2b3bbf545810;hp=b566b1154aa7ffb5ec1e221f7b120c6212901321;hpb=a8fa26a6e9804d3548f5bca9361a91345a689099;p=sbcl.git

diff --git a/src/compiler/generic/primtype.lisp b/src/compiler/generic/primtype.lisp
index b566b11..7310a2d 100644
--- a/src/compiler/generic/primtype.lisp
+++ b/src/compiler/generic/primtype.lisp
@@ -376,7 +376,7 @@
 	    (part-of list))
 	   (t
 	    (any))))
-	(function-type
+	(fun-type
 	 (exactly function))
 	(sb!xc:class
 	 (if (csubtypep type (specifier-type 'function))