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