crossprod() & tcrossprod(), now internally S4 generic, no need for implicit; PR#18830

git-svn-id: https://svn.r-project.org/R/trunk@87413 00db46b3-68df-0310-9c12-caf00c1e9a41

Author: maechler

src/library/methods/R/makeBasicFunsList.R

@@ -251,14 +251,8 @@ utils::globalVariables(".addBasicGeneric")
     setGenericImplicit("rowMeans", where, FALSE)
     setGenericImplicit("rowSums",  where, FALSE)
 
-    setGeneric("crossprod", function(x, y = NULL, ...) standardGeneric("crossprod"),
-	       useAsDefault = function(x, y = NULL, ...) base::crossprod(x, y),
-	       signature = c("x", "y"), where = where)
-    setGeneric("tcrossprod", function(x, y = NULL, ...) standardGeneric("tcrossprod"),
-	       useAsDefault = function(x, y = NULL, ...) base::tcrossprod(x, y),
-	       signature = c("x", "y"), where = where)
-    setGenericImplicit("crossprod",  where, FALSE)
-    setGenericImplicit("tcrossprod",  where, FALSE)
+    ## "crossprod"  and
+    ## "tcrossprod" have been made internal (S3 and) S4 generics see .BasicFunsList
 
     setGeneric("sample", function(x, size, replace = FALSE, prob = NULL, ...)
 			standardGeneric("sample"),
@@ -295,7 +289,6 @@ utils::globalVariables(".addBasicGeneric")
 	       signature = "x", where = where)
     setGenericImplicit("svd", where, FALSE)
 
-
     ## zapsmall(): signature  only  "x"
     setGeneric("zapsmall", function(x, digits = getOption("digits"),
                                     mFUN = function(x, ina) max(abs(x[!ina])), min.d = 0L, ...)