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