*copyc nft$link_kind

  TYPE
    nft$linked_list_entry = record
      back_link: ^nft$linked_list_entry,
      link: ^nft$linked_list_entry,
      case kind: nft$link_kind of
      = nfc$control_facility =
        control_facility: ^nft$control_facility,
      casend,
    recend;

*copyc nft$control_facility
