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