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