cnlt.spec <- function(x, ...) UseMethod("cnlt.spec", x)