(define impc:ti:get-polytype-candidate-list (lambda (polytype-name) (let ((pfunc-data (assoc-strcmp polytype-name *impc:ti:polytype-cache*))) (if pfunc-data (vector-ref (cdr pfunc-data) 0) #f))))