let notimplemented fmt = Jessie_options.with_failure (fun evt -> raise (NotImplemented evt.Log.evt_message)) ~current:true fmt