sig
  type t
  val create : unit -> State.Local.t
  val clear : State.Local.t -> unit
  val get : unit -> State.Local.t
  val set : State.Local.t -> unit
  val clear_some_projects :
    (Project_skeleton.t -> bool) -> State.Local.t -> bool
end