sig
  exception Ldap_mutex of string * exn
  class type mutex_t = object method lock : unit method unlock : unit end
  class type object_lock_table_t =
    object
      method lock : Ldap_types.dn -> unit
      method unlock : Ldap_types.dn -> unit
    end
  class mutex :
    string list ->
    string ->
    string -> string -> object method lock : unit method unlock : unit end
  val apply_with_mutex : Ldap_mutex.mutex -> (unit -> 'a) -> 'a
  class object_lock_table :
    string list ->
    string ->
    string ->
    string ->
    object
      method lock : Ldap_types.dn -> unit
      method unlock : Ldap_types.dn -> unit
    end
end