/********************************************************************* NAME : SuperclassPCommand DESCRIPTION : Determines if a class is a superclass of another INPUTS : None RETURNS : TRUE if class-1 is a superclass of class-2 SIDE EFFECTS : None NOTES : H/L Syntax : (superclassp <class-1> <class-2>) *********************************************************************/ globle intBool SuperclassPCommand( void *theEnv) { DEFCLASS *c1,*c2; if (CheckTwoClasses(theEnv,"superclassp",&c1,&c2) == FALSE) return(FALSE); return(EnvSuperclassP(theEnv,(void *) c1,(void *) c2)); }
globle intBool SuperclassP( void *firstClass, void *secondClass) { return EnvSuperclassP(GetCurrentEnvironment(),firstClass,secondClass); }