class virtual['level #event]
archiver :object
..end
inherit archiver
to derive
a subclass that defines the emit
method to archive a diagnostic
event into a journaling system.method virtual emit : ('level #event as 'a) -> unit
emit
method in a subclass to archive diagnostic
events into a journaling system.