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