
  TYPE
    clt$unbundled_pdt = record
      header: ^clt$pdt_header,
      names: ^clt$pdt_parameter_names,
      parameters: ^clt$pdt_parameters,
      type_descriptions: ^array [1 .. * ] of clt$type_description,
      default_names: ^array [1 .. * ] of ^clt$variable_name_reference,
      default_values: ^array [1 .. * ] of ^clt$expression_text,
    recend;

*copyc clt$expression_text
*copyc clt$parameter_count
*copyc clt$pdt_header
*copyc clt$pdt_parameter_names
*copyc clt$pdt_parameters
*copyc clt$type_description
*copyc clt$variable_name_reference
