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