class virtualThe base class for event archivers. Use['a #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 : ('a #event as 'b) -> unit
emit
method in a subclass to archive diagnostic
events into a journaling system.