"compatObjects" <-
function(x,y,...) stop("No method defined for that class")