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