
  TYPE
    clt$type_change_kind = (clc$tc_null, clc$tc_keyword_availability,
          clc$tc_integer_subrange, clc$tc_list_size, clc$tc_real_subrange,
          clc$tc_string_size);

