avoid spurious message about skipped .packageName

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

Author: smeyer

src/library/methods/R/trace.R

@@ -748,7 +748,7 @@ insertSource <- function(source, package = "",
     MPattern <- .TableMetaPattern()
     CPattern <- .ClassMetaPattern()
     allPlainObjects <- function()
-        allObjects[!(grepl(MPattern, allObjects) | grepl(CPattern, allObjects) | ".cacheOnAssign" == allObjects)]
+        allObjects[!(grepl(MPattern, allObjects) | grepl(CPattern, allObjects))]
     allMethodTables <- function()
         allObjects[grepl(MPattern, allObjects)]
 ##    allClassDefs <- function()
@@ -802,6 +802,7 @@ insertSource <- function(source, package = "",
     ## at this point, envp is the target environment (package or other)
     ## and envns is the corresponding namespace if any, or NULL
     allObjects <- names(env)
+    allObjects <- allObjects[!(allObjects %in% c(".cacheOnAssign", ".packageName"))]
     ## Figure out what to trace.
     if(!missing(functions)) {
         notThere <- is.na(match(functions, allObjects))