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