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) -> unitemit method in a subclass to archive diagnostic
events into a journaling system.