method virtual add_common    : ?before:common -> common -> unit