(define impc:ti:print-namedtype-cache (lambda () (println '*impc:ti:namedtype-cache*: *impc:ti:namedtype-cache*)))