[Rd] Infinite recursion in getGeneric (PR#4561)

[saikat at stat.wisc.edu]

 > setClass('foo')
[1] "foo"
 > setMethod('is.logical', 'foo', function(x) TRUE)
[1] "is.logical"
 > getGeneric('is.integer')
Error in options(x) : evaluation is nested too deeply: infinite 
recursion?
 >

--please do not edit the information below--

Version:
  platform = i686-pc-linux-gnu
  arch = i686
  os = linux-gnu
  system = i686, linux-gnu
  status =
  major = 1
  minor = 8.0
  year = 2003
  month = 10
  day = 08
  language = R

Search Path:
  .GlobalEnv, package:methods, package:ctest, package:mva, 
package:modreg, package:nls, package:ts, Autoloads, package:base