'#Cf_journal.T.prioritizer ->
'->
(('#Cf_journal.T.event as 'c) #Cf_journal.T.archiver as 'b) list ->
object
  val mutable archivers_ : 'b list
  val mutable limit_ : Priority.t
  method enabled : '-> bool
  method private virtual event_ : '-> string -> 'c
  method private put_ :
    ''e. '-> ('-> 'e) -> ('d, unit, string, 'e) format4 -> 'd
  method setlimit : '-> unit
end