(define impc:ti:xtmacro-exists? (lambda (xtmacro-name) (if (and (string? xtmacro-name) (assoc-strcmp xtmacro-name *impc:ti:xtmacro-cache*)) #t #f)))