let
clear t =
ensure_can_modify t;
Doubly_linked
.clear t.queue;
Hashtbl
.clear t.table;