dispatch.r

print.a <- function(x, ...) {
  class(x) <- c("a", "c")
  NextMethod()
}

print.b <- function(x, ...) cat("b\n")
print.c <- function(x, ...) cat("c\n")

ab <- structure(1:10, class = c("a", "b"))
ab