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