projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
0.8.6.30:
[sbcl.git]
/
src
/
code
/
target-type.lisp
diff --git
a/src/code/target-type.lisp
b/src/code/target-type.lisp
index
b45d004
..
ddf35ed
100644
(file)
--- 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.
;;; 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*
(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-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))
(funcall (the function (symbol-function sym)))))
(values))