X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fearly-type.lisp;h=ec513da4c6f09e9e9b1fd8e7241c8ace44b43162;hb=7254da92a1ba1bf8bc5a2e78a29d993f272d526e;hp=a4160a278e74270bc6fd3593d2b7ed143598728f;hpb=8258b3ef68a2ce4529c4c62e54ad2035193c1a53;p=sbcl.git

diff --git a/src/code/early-type.lisp b/src/code/early-type.lisp
index a4160a2..ec513da 100644
--- a/src/code/early-type.lisp
+++ b/src/code/early-type.lisp
@@ -698,8 +698,7 @@ Experimental."
 (defun %note-type-defined (name)
   (declare (symbol name))
   (note-name-defined name :type)
-  (when (boundp 'sb!kernel::*values-specifier-type-cache-vector*)
-    (values-specifier-type-cache-clear))
+  (values-specifier-type-cache-clear)
   (values))