sig
  type t
  val set_max_exn_tags : int -> unit
  val get_max_exn_tags : unit -> int
  val add_auto : ?finalise:bool -> exn -> (exn -> Sexp.t) -> unit
  val add_slow : (exn -> Sexp.t option) -> Conv.Exn_converter.t
  val del_slow : Conv.Exn_converter.t -> unit
end