X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Ftarget-type.lisp;h=4a1f65f34498fc5f5dea4d2d9d9c35aee88b02c3;hb=51cf665f514935c8067f86f3850fd917731cada0;hp=fc5250b5a118811ea9a57686376d27680f48f458;hpb=2d3cb6dba6461e98744eca2a1df4f770cea468ca;p=sbcl.git

diff --git a/src/code/target-type.lisp b/src/code/target-type.lisp
index fc5250b..4a1f65f 100644
--- a/src/code/target-type.lisp
+++ b/src/code/target-type.lisp
@@ -148,7 +148,10 @@
 
 ;;; Clear memoization of all type system operations that can be
 ;;; altered by type definition/redefinition.
+;;;
+;;; FIXME: This should be autogenerated.
 (defun clear-type-caches ()
+  (declare (special *type-system-initialized*))
   (when *type-system-initialized*
     (dolist (sym '(values-specifier-type-cache-clear
 		   values-type-union-cache-clear