'#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) Pervasives.format4 -> 'd
  method setlimit : '-> unit
end