X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Ftarget-type.lisp;h=4a1f65f34498fc5f5dea4d2d9d9c35aee88b02c3;hb=05525d3a5906d7a89fcb689c26177732493c40ce;hp=b45d004495a926870a3ceb619f795abb5a70fd74;hpb=bd0ba0f214518e8d72ff2d44de5a1e3e4b02af2c;p=sbcl.git diff --git a/src/code/target-type.lisp b/src/code/target-type.lisp index b45d004..4a1f65f 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*