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