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