
  TYPE
    clt$command_or_function_source = record
      index: clt$string_index,
      size: clt$string_size,
      reference_index: clt$string_index,
      reference_size: clt$string_size,
      ordinal: clt$named_entry_ordinal,
      function_interface: clt$function_interface,
      case kind: clt$command_list_entry_kind of
      = clc$catalog_commands, clc$library_commands =
        local_file_name: fst$path_handle_name,
      = clc$system_commands =
        system_command_table: ^clt$command_table,
      = clc$sub_commands =
        utility_name: clt$utility_name,
        utility_info: ^clt$utility_command_environment,
        utility_termination_command: boolean,
        auxilliary_table: boolean,
      casend,
    recend;

*copyc clt$command_list
*copyc clt$command_table
*copyc clt$function_interface
*copyc clt$named_entry_ordinal
*copyc clt$string_index
*copyc clt$string_size
*copyc clt$utility_command_environment
*copyc clt$utility_name
*copyc fst$path_handle_name
