X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fvop.lisp;h=874c362e687eaefdc0bc907ba9f2ca4765dccf76;hb=05525d3a5906d7a89fcb689c26177732493c40ce;hp=fca025a9e327d48abd54ded8e1097b984f9f9be1;hpb=bd0ba0f214518e8d72ff2d44de5a1e3e4b02af2c;p=sbcl.git

diff --git a/src/compiler/vop.lisp b/src/compiler/vop.lisp
index fca025a..874c362 100644
--- a/src/compiler/vop.lisp
+++ b/src/compiler/vop.lisp
@@ -500,7 +500,7 @@
   ;; the arg/result type restrictions. We compute this from the
   ;; PRIMITIVE-TYPE restrictions to make life easier for IR1 phases
   ;; that need to anticipate LTN's template selection.
-  (type (missing-arg) :type fun-type)
+  (type (missing-arg) :type ctype)
   ;; lists of restrictions on the argument and result types. A
   ;; restriction may take several forms:
   ;; -- The restriction * is no restriction at all.