
  TYPE
    clt$command_list_entry_file = record
      case kind: clt$command_list_entry_fil_kind of
      = clc$command_list_entry_$system, clc$command_list_entry_fence =
        ,
      = clc$command_list_entry_path =
        path: ^fst$file_reference,
      casend,
    recend;

*copyc clt$command_list_entry_fil_kind
*copyc fst$file_reference
