public static Stella_Object accessClassificationCacheSlotValue(ClassificationCache self, Symbol slotname, Stella_Object value, boolean setvalueP) {
    if (slotname == Logic.SYM_LOGIC_INFERABLE_DIRECT_SUBDESCRIPTIONS) {
      if (setvalueP) {
        self.inferableDirectSubdescriptions = ((List)(value));
      }
      else {
        value = self.inferableDirectSubdescriptions;
      }
    }
    else if (slotname == Logic.SYM_LOGIC_CACHE_UPCLASSIFICATION_TIMESTAMP) {
      if (setvalueP) {
        self.cacheUpclassificationTimestamp = ((IntegerWrapper)(value)).wrapperValue;
      }
      else {
        value = IntegerWrapper.wrapInteger(self.cacheUpclassificationTimestamp);
      }
    }
    else if (slotname == Logic.SYM_LOGIC_CACHE_DOWNCLASSIFICATION_TIMESTAMP) {
      if (setvalueP) {
        self.cacheDownclassificationTimestamp = ((IntegerWrapper)(value)).wrapperValue;
      }
      else {
        value = IntegerWrapper.wrapInteger(self.cacheDownclassificationTimestamp);
      }
    }
    else if (slotname == Logic.SYM_LOGIC_INTRODUCTION_TIMESTAMP) {
      if (setvalueP) {
        self.introductionTimestamp = ((IntegerWrapper)(value)).wrapperValue;
      }
      else {
        value = IntegerWrapper.wrapInteger(self.introductionTimestamp);
      }
    }
    else {
      { OutputStringStream stream000 = OutputStringStream.newOutputStringStream();

        stream000.nativeStream.print("`" + slotname + "' is not a valid case option");
        throw ((StellaException)(StellaException.newStellaException(stream000.theStringReader()).fillInStackTrace()));
      }
    }
    return (value);
  }