public static Stella_Object accessSessionSlotValue(Session self, Symbol slotname, Stella_Object value, boolean setvalueP) {
    if (slotname == Http.SYM_STELLA_NAME) {
      if (setvalueP) {
        self.name = ((StringWrapper)(value)).wrapperValue;
      }
      else {
        value = StringWrapper.wrapString(self.name);
      }
    }
    else if (slotname == Http.SYM_HTTP_TIMEOUT) {
      if (setvalueP) {
        self.timeout = ((TimeDuration)(value));
      }
      else {
        value = self.timeout;
      }
    }
    else if (slotname == Http.SYM_HTTP_TIMESTAMP) {
      if (setvalueP) {
        self.timestamp = ((CalendarDate)(value));
      }
      else {
        value = self.timestamp;
      }
    }
    else if (slotname == Http.SYM_HTTP_OBJECTS) {
      if (setvalueP) {
        self.objects = ((KeyValueMap)(value));
      }
      else {
        value = self.objects;
      }
    }
    else {
      { OutputStringStream stream000 = OutputStringStream.newOutputStringStream();

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