method
cvs_info_of_t (ci :
Ocvs_types
.cvs_info) = ci