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