X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;ds=sidebyside;f=src%2Fcode%2Ftarget-type.lisp;h=ddf35edcfbb567b723ca0965af6a2114f97061e7;hb=4ed3f0d08c3a57a6762018d9622f253ab9d0f2b6;hp=4a1f65f34498fc5f5dea4d2d9d9c35aee88b02c3;hpb=05525d3a5906d7a89fcb689c26177732493c40ce;p=sbcl.git

diff --git a/src/code/target-type.lisp b/src/code/target-type.lisp
index 4a1f65f..ddf35ed 100644
--- a/src/code/target-type.lisp
+++ b/src/code/target-type.lisp
@@ -159,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))