(or (gethash type **typecheck-cache**)
(setf (gethash type **typecheck-cache**)
(handler-bind (((or style-warning compiler-note)
(or (gethash type **typecheck-cache**)
(setf (gethash type **typecheck-cache**)
(handler-bind (((or style-warning compiler-note)