class virtual['level #event]archiver :object..end
The base class for event archivers. Use 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) -> unitDefine the emit method in a subclass to archive diagnostic
events into a journaling system.