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 : 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