X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fcross-type.lisp;h=8110183ac757b2f772cf983eaae8d09d67e9ce83;hb=aa61c7571b33b86981301f34d3acdb66666f53a3;hp=b59bd3b843a56c83592849181f9cf54f377afd35;hpb=18d4de696bc5063aad026ba62be613c7b07f5fc8;p=sbcl.git

diff --git a/src/code/cross-type.lisp b/src/code/cross-type.lisp
index b59bd3b..8110183 100644
--- a/src/code/cross-type.lisp
+++ b/src/code/cross-type.lisp
@@ -338,10 +338,6 @@
     (check-type type (or symbol cons))
     (cross-typep obj type)))
 
-(defparameter *universal-function-type*
-  (make-function-type :wild-args t
-		      :returns *wild-type*))
-
 (defun ctype-of (x)
   (typecase x
     (function
@@ -353,7 +349,7 @@
 	 ;; There's no ANSI way to find out what the function is
 	 ;; declared to be, so we just return the CTYPE for the
 	 ;; most-general function.
-	 *universal-function-type*))
+	 *universal-fun-type*))
     (symbol
      (make-member-type :members (list x)))
     (number