(define impc:ti:generictype-exists? (lambda (name) (if (string? name) (set! name (string->symbol name))) (let ((res (assoc-strcmp name *impc:ti:generictype-cache*))) (if res #t #f))))