(define impc:ti:get-nativefunc-type (lambda (nativefunc-name) (let ((nfunc-data (assoc-strcmp nativefunc-name *impc:ti:nativefunc-cache*))) (if nfunc-data (vector-ref (cdr nfunc-data) 0) #f))))