38         classDef <- makeClassRepresentation(Class, properties, contains, prototype, package,  functionVar
43         classDef <- representation
47         if(length(classDef@package) == 0L)
48             classDef@package <- package # the default
58         classDef <- makeClassRepresentation(Class, properties, superClasses, prototype, package,
61     superClasses <- names(classDef@contains)
62     classDef <- completeClassDefinition(Class, classDef, where, doExtends = FALSE)
64     .uncacheClass(Class, classDef)
66         sealed <- classDef@sealed
67         classDef@sealed <- FALSE # to allow setIs to work anyway; will be reset later
68         assignClassDef(Class, classDef, where)
70         for(ext in classDef@contains) {
72             if(is(try(setIs(Class, class2, classDef = classDef, where = where)),
76                 classDef <- getClassDef(Class, where = where)
77                 if(is.null(classDef))
106         if(length(attr(classDef@contains, "conflicts")) > 0)
107           .reportSuperclassConflicts(Class, classDef@contains, where)
108         .checkRequiredGenerics(Class, classDef, where)
110             classDef@sealed <- TRUE
114       classDef <- .setS3MethodsOn(classDef)
115     assignClassDef(Class, classDef, where)
116     invisible(classGeneratorFunction(classDef, where))
377     classDef <- getClassDef(  functionVar
379     if(is.null(classDef))
382 	names(classDef@slots)
404     classDef <- getClassDef(Class, where=classWhere)  functionVar
405     if(length(classDef@subclasses)) {
406       subclasses <- names(classDef@subclasses)
411     .removeSuperclassBackRefs(Class, classDef, classWhere)
412     .uncacheClass(Class, classDef)
469     classDef <- getClassDef(Class)  functionVar
470     where <- .classEnv(classDef)
475     slotTypes <- classDef@slots
526     extends <- rev(classDef@contains)
546     validityMethod <- classDef@validity
591 resetClass <- function(Class, classDef, where) {  argument
593             classDef <- Class
596                 where <- .classDefEnv(classDef)
600                 if(missing(classDef))
603                     where <- .classDefEnv(classDef)
605             if(missing(classDef)) {
606                 classDef <- getClassDef(Class, where)
607                 if(is.null(classDef)) {
612                     return(classDef)
615             else if(!is(classDef, "classRepresentation"))
617                               dQuote(class(classDef))),
621         if(classDef@sealed)
626             classDef <-  .uncompleteClassDefinition(classDef)
627             classDef <- completeClassDefinition(Class, classDef, where)
628             assignClassDef(Class, classDef, where)
630         classDef
742         classDef <- Class  functionVar
749         classDef <- getClassDef(Class, where, pkg)
761         if(is.null(classDef))
762             classDef <- getClassDef(Class) # but won't likely succeed over previous
764             if(is(classDef, "classRepresentation"))
767                               sQuote(classDef@package)),
812     classDef <- getClassDef(Class, where)  functionVar
813     if(!classDef@sealed) {
814         classDef@sealed <- TRUE
815         assignClassDef(Class, classDef, where)
817     invisible(classDef)
853 .checkRequiredGenerics <- function(Class, classDef, where) {}  argument
855 ..checkRequiredGenerics <- function(Class, classDef, where) {  argument
860   supers <- names(classDef@contains)
881 .setS3MethodsOn <- function(classDef) {  argument
882     ext <- extends(classDef)
883     slots <- classDef@slots
887         classDef@slots <- slots
890     proto <- classDef@prototype
894     classDef@prototype <- proto
895     classDef
911                 classDef <- get(className, envir = .classTable)  functionVar
913                 classDef <- findClass(className, topenv(parent.frame()))
914                 if(length(classDef) == 1)
915                     classDef <- classDef[[1]]
919             if(is(classDef, "classRepresentation"))
920                 package <- classDef@package
921             else if(length(classDef) > 1L) {
922                 pkgs <- sapply(classDef, function(cl)cl@package)
935     else if(is(class, classDef)) {
944 classGeneratorFunction <- function(classDef, env = topenv(parent.frame())) {  argument
948                             list(CLASS = classDef@className))
953 .classGeneratorFunction <- function(classDef, env = topenv(parent.frame())) {  argument
954     if(is(classDef, "classRepresentation")) {}
955     else if(is(classDef, "character")) {
956         if(is.null(packageSlot(classDef)))
957             classDef <- getClass(classDef, where = env)
959             classDef <- getClass(classDef)
966                             list(CLASS = classDef@className))
969     fun@className <- classDef@className
970     fun@package <- classDef@package