public static Stella_Object accessStellaTokenSlotValue(StellaToken self, Symbol slotname, Stella_Object value, boolean setvalueP) {
    if (slotname == Stella.SYM_STELLA_LOGICAL_TOKEN_TYPE) {
      if (setvalueP) {
        self.logicalTokenType = ((Keyword)(value));
      }
      else {
        value = self.logicalTokenType;
      }
    }
    else if (slotname == Stella.SYM_STELLA_MODULE) {
      if (setvalueP) {
        self.module = ((StringWrapper)(value)).wrapperValue;
      }
      else {
        value = StringWrapper.wrapString(self.module);
      }
    }
    else if (slotname == Stella.SYM_STELLA_ESCAPE_MODE) {
      if (setvalueP) {
        self.escapeMode = ((Keyword)(value));
      }
      else {
        value = self.escapeMode;
      }
    }
    else if (slotname == Stella.SYM_STELLA_NEXT) {
      if (setvalueP) {
        self.next = ((StellaToken)(value));
      }
      else {
        value = ((StellaToken)(self.next));
      }
    }
    else {
      { OutputStringStream stream000 = OutputStringStream.newOutputStringStream();

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