(define impc:ti:set-nativefunc-arg-names (lambda (nativefunc-name arg-list) (let ((nativefunc-data (assoc-strcmp nativefunc-name *impc:ti:nativefunc-cache*))) (if nativefunc-data (vector-set! (cdr nativefunc-data) 2 arg-list) #f))))