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