.not.yet.implemented <- function() {
  stop(paste("Sorry, `", as.character(sys.call(sys.parent())[[1]]), 
	     "' is not implemented yet", sep = ""))
}
