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