amending r87971 for simple as(.,.)

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

Author: maechler

src/library/methods/R/MethodsListClass.R

@@ -1,7 +1,7 @@
 #  File src/library/methods/R/MethodsListClass.R
 #  Part of the R package, https://www.R-project.org
 #
-#  Copyright (C) 1995-2024 The R Core Team
+#  Copyright (C) 1995-2025 The R Core Team
 #
 #  This program is free software; you can redistribute it and/or modify
 #  it under the terms of the GNU General Public License as published by
@@ -123,9 +123,10 @@ loadMethod <- function(method, fname, envir) method
     setGeneric("loadMethod", where = envir)
     setMethod("loadMethod", "MethodDefinition",
               function(method, fname, envir) {
-                  assign(".target", method@target, envir = envir)
+                  assign(".target",  method@target,  envir = envir)
                   assign(".defined", method@defined, envir = envir)
-                  assign(".Method", method, envir = envir)
+                  assign(".Generic", method@generic, envir = envir)
+                  assign(".Method",  method, envir = envir)
                   method
               }, where = envir)
     setMethod("loadMethod", "MethodWithNext",

src/library/methods/R/as.R

@@ -93,7 +93,6 @@ as <-
     }
     environment(asMethod) <- asMethodEnv <- new.env(parent = environment(asMethod))
     loadMethod(asMethod, envir = asMethodEnv)
-    assign(".Generic", asMethod@generic, envir = asMethodEnv)
     if(strict)
         asMethod(object)
     else

tests/classes-methods.R

@@ -208,6 +208,16 @@ stopifnot( is(m0, "MethodDefinition"),
            is(m1, "MethodDefinitionWithTrace"),
           identical(m0, m2), identical(a0, a1))
 
+## Checking that "simple" as() still works:
+setClass("A", slots = c(x = "NULL"))
+setClass("B", slots = c(x = "NULL"))
+setIs("A", "B",
+      test = function(.) { TRUE },
+      coerce = function(.) new("B"),
+      replace = function(., value) new("B"))
+B <- as(new("A"), "B") ## gave  Error in asMethod@generic :  ... `@` applied to ... "function"
+stopifnot(identical(B, new("B")))
+
 
 
 cat('Time elapsed: ', proc.time(),'\n')