
  TYPE
    clt$function_result = record
      case kind: clt$function_result_kind of
      = clc$fr_value =
        value: ^clt$data_value,
      = clc$fr_parameter_name =
        parameter_name: clt$parameter_name,
      = clc$fr_variable_reference =
        variable: ^clt$variable_ref_expression,
      casend,
    recend;

*copyc clt$data_value
*copyc clt$function_result_kind
*copyc clt$parameter_name
*copyc clt$variable_ref_expression
