0.pre7.14.flaky4.1:

[sbcl.git] / src / code / cross-type.lisp

diff --git a/src/code/cross-type.lisp b/src/code/cross-type.lisp
index b59bd3b..6af0388 100644 (file)
--- 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