X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Ftarget-type.lisp;h=ddf35edcfbb567b723ca0965af6a2114f97061e7;hb=b1c7011c1f5d50b9821c07db75b1d5c3c6881062;hp=b45d004495a926870a3ceb619f795abb5a70fd74;hpb=b0642df835dc2fca3e4cf47aff978ecdc88799d5;p=sbcl.git

diff --git a/src/code/target-type.lisp b/src/code/target-type.lisp
index b45d004..ddf35ed 100644
--- a/src/code/target-type.lisp
+++ b/src/code/target-type.lisp
@@ -148,6 +148,8 @@
 
 ;;; 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*
@@ -157,7 +159,8 @@
 		   values-subtypep-cache-clear
 		   csubtypep-cache-clear
 		   type-intersection2-cache-clear
-		   values-type-intersection-cache-clear))
+		   values-type-intersection-cache-clear
+                   type=-cache-clear))
       (funcall (the function (symbol-function sym)))))
   (values))