
  TYPE
    clt$function_table_entry = record
      name: clt$function_name,
      class: clt$named_entry_class,
      availability: clt$named_entry_availability,
      ordinal: clt$named_entry_ordinal,
      case call_method: clt$function_call_method of
      = clc$linked_call =
        func: clt$function,
      = clc$unlinked_call, clc$proc_call =
        procedure_name: pmt$program_name,
      casend,
    recend;

*copyc clt$function
*copyc clt$function_call_method
*copyc clt$function_name
*copyc clt$named_entry_availability
*copyc clt$named_entry_class
*copyc clt$named_entry_ordinal
*copyc pmt$program_name
