
  TYPE
    clt$type_change = record
      case kind: clt$type_change_kind of
      = clc$tc_integer_subrange =
        min_integer_value: integer,
        max_integer_value: integer,
      = clc$tc_keyword_availability =
        keyword: clt$keyword,
        availability: clt$named_entry_availability,
      = clc$tc_list_size =
        min_list_size: clt$list_size,
        max_list_size: clt$list_size,
      = clc$tc_real_subrange =
        min_real_value: longreal,
        max_real_value: longreal,
      = clc$tc_string_size =
        min_string_size: clt$string_size,
        max_string_size: clt$string_size,
      = clc$tc_null =
        ,
      casend,
    recend;

*copyc clt$keyword
*copyc clt$list_size
*copyc clt$named_entry_availability
*copyc clt$string_size
*copyc clt$type_change_kind
