(define impc:ti:get-typealias-docstring (lambda (typealias-name) (let ((typealias-data (assoc-strcmp (impc:ir:clean-named-type typealias-name) *impc:ti:typealias-cache*))) (if typealias-data (vector-ref (cdr typealias-data) 1) #f))))