public static void incorporateClassOptions(Stella_Class renamed_Class, KeywordKeyValueList options) {
    { Keyword key = null;
      Stella_Object value = null;
      KvListIterator iter000 = ((KvListIterator)(options.allocateIterator()));

      while (iter000.nextP()) {
        key = ((Keyword)(iter000.key));
        value = iter000.value;
        if (key == Stella.KWD_DOCUMENTATION) {
          KeyValueList.setDynamicSlotValue(renamed_Class.dynamicSlots, Stella.SYM_STELLA_DOCUMENTATION, StringWrapper.wrapString(((StringWrapper)(value)).wrapperValue), Stella.NULL_STRING_WRAPPER);
        }
        else if (key == Stella.KWD_CL_NATIVE_TYPE) {
          KeyValueList.setDynamicSlotValue(renamed_Class.dynamicSlots, Stella.SYM_STELLA_CLASS_CL_NATIVE_TYPE, StringWrapper.wrapString(((StringWrapper)(value)).wrapperValue), Stella.NULL_STRING_WRAPPER);
        }
        else if (key == Stella.KWD_CPP_NATIVE_TYPE) {
          KeyValueList.setDynamicSlotValue(renamed_Class.dynamicSlots, Stella.SYM_STELLA_CLASS_CPP_NATIVE_TYPE, StringWrapper.wrapString(((StringWrapper)(value)).wrapperValue), Stella.NULL_STRING_WRAPPER);
        }
        else if (key == Stella.KWD_IDL_NATIVE_TYPE) {
          KeyValueList.setDynamicSlotValue(renamed_Class.dynamicSlots, Stella.SYM_STELLA_CLASS_IDL_NATIVE_TYPE, StringWrapper.wrapString(((StringWrapper)(value)).wrapperValue), Stella.NULL_STRING_WRAPPER);
        }
        else if (key == Stella.KWD_JAVA_NATIVE_TYPE) {
          KeyValueList.setDynamicSlotValue(renamed_Class.dynamicSlots, Stella.SYM_STELLA_CLASS_JAVA_NATIVE_TYPE, StringWrapper.wrapString(((StringWrapper)(value)).wrapperValue), Stella.NULL_STRING_WRAPPER);
        }
        else if (key == Stella.KWD_PUBLICp) {
          renamed_Class.classPublicP = BooleanWrapper.coerceWrappedBooleanToBoolean(((BooleanWrapper)(value)));
        }
        else if (key == Stella.KWD_ABSTRACTp) {
          renamed_Class.abstractP = BooleanWrapper.coerceWrappedBooleanToBoolean(((BooleanWrapper)(value)));
        }
        else if (key == Stella.KWD_ACTIVEp) {
          KeyValueList.setDynamicSlotValue(renamed_Class.dynamicSlots, Stella.SYM_STELLA_STORED_ACTIVEp, ((BooleanWrapper)(value)), null);
        }
        else if (key == Stella.KWD_CL_STRUCTp) {
          renamed_Class.clStructP = BooleanWrapper.coerceWrappedBooleanToBoolean(((BooleanWrapper)(value)));
        }
        else if (key == Stella.KWD_MIXINp) {
          renamed_Class.mixinP = BooleanWrapper.coerceWrappedBooleanToBoolean(((BooleanWrapper)(value)));
          if (renamed_Class.mixinP) {
            renamed_Class.abstractP = true;
          }
        }
        else if (key == Stella.KWD_RECYCLE_METHOD) {
          KeyValueList.setDynamicSlotValue(renamed_Class.dynamicSlots, Stella.SYM_STELLA_CLASS_RECYCLE_METHOD, ((Keyword)(value)), null);
        }
        else if (key == Stella.KWD_EXTENSION) {
          KeyValueList.setDynamicSlotValue(renamed_Class.dynamicSlots, Stella.SYM_STELLA_CLASS_EXTENSION_NAME, ((Symbol)(value)), null);
        }
        else if (key == Stella.KWD_CREATOR) {
          KeyValueList.setDynamicSlotValue(renamed_Class.dynamicSlots, Stella.SYM_STELLA_CLASS_CREATOR, ((Symbol)(value)), null);
        }
        else if (key == Stella.KWD_INITIALIZER) {
          KeyValueList.setDynamicSlotValue(renamed_Class.dynamicSlots, Stella.SYM_STELLA_CLASS_INITIALIZER, ((Symbol)(value)), null);
        }
        else if (key == Stella.KWD_TERMINATOR) {
          KeyValueList.setDynamicSlotValue(renamed_Class.dynamicSlots, Stella.SYM_STELLA_CLASS_TERMINATOR, ((Symbol)(value)), null);
        }
        else if (key == Stella.KWD_DESTRUCTOR) {
          KeyValueList.setDynamicSlotValue(renamed_Class.dynamicSlots, Stella.SYM_STELLA_CLASS_DESTRUCTOR, ((Symbol)(value)), null);
        }
        else if (key == Stella.KWD_INITIAL_VALUE) {
          KeyValueList.setDynamicSlotValue(renamed_Class.dynamicSlots, Stella.SYM_STELLA_CLASS_INITIAL_VALUE, value, null);
        }
        else if (key == Stella.KWD_PRINT_FORM) {
          KeyValueList.setDynamicSlotValue(renamed_Class.dynamicSlots, Stella.SYM_STELLA_PRINT_FORM, value, null);
        }
        else if (key == Stella.KWD_EQUALITY_TEST) {
        }
        else if (key == Stella.KWD_KEY) {
          KeyValueList.setDynamicSlotValue(renamed_Class.dynamicSlots, Stella.SYM_STELLA_CLASS_KEY, List.newList(), null);
          { Stella_Object slotname = null;
            Cons iter001 = ((Cons)(value));
            List into000 = renamed_Class.classKey();
            Cons collect000 = null;

            for (;!(iter001 == Stella.NIL); iter001 = iter001.rest) {
              slotname = iter001.value;
              if (collect000 == null) {
                {
                  collect000 = Cons.cons(slotname, Stella.NIL);
                  if (into000.theConsList == Stella.NIL) {
                    into000.theConsList = collect000;
                  }
                  else {
                    Cons.addConsToEndOfConsList(into000.theConsList, collect000);
                  }
                }
              }
              else {
                {
                  collect000.rest = Cons.cons(slotname, Stella.NIL);
                  collect000 = collect000.rest;
                }
              }
            }
          }
        }
        else if (key == Stella.KWD_PARAMETERS) {
          KeyValueList.setDynamicSlotValue(renamed_Class.dynamicSlots, Stella.SYM_STELLA_CLASS_PARAMETERS, List.newList(), null);
          { Slot slot = null;
            Cons iter002 = ((List)(value)).theConsList;
            List into001 = renamed_Class.classParameters();
            Cons collect001 = null;

            for (;!(iter002 == Stella.NIL); iter002 = iter002.rest) {
              slot = ((Slot)(iter002.value));
              if (collect001 == null) {
                {
                  collect001 = Cons.cons(slot.slotName, Stella.NIL);
                  if (into001.theConsList == Stella.NIL) {
                    into001.theConsList = collect001;
                  }
                  else {
                    Cons.addConsToEndOfConsList(into001.theConsList, collect001);
                  }
                }
              }
              else {
                {
                  collect001.rest = Cons.cons(slot.slotName, Stella.NIL);
                  collect001 = collect001.rest;
                }
              }
            }
          }
        }
        else if (key == Stella.KWD_SYNONYMS) {
          KeyValueList.setDynamicSlotValue(renamed_Class.dynamicSlots, Stella.SYM_STELLA_CLASS_SYNONYMS, List.newList(), null);
          { Surrogate type = null;
            Cons iter003 = ((Cons)(value));
            List into002 = renamed_Class.classSynonyms();
            Cons collect002 = null;

            for (;!(iter003 == Stella.NIL); iter003 = iter003.rest) {
              type = ((Surrogate)(iter003.value));
              if (collect002 == null) {
                {
                  collect002 = Cons.cons(type, Stella.NIL);
                  if (into002.theConsList == Stella.NIL) {
                    into002.theConsList = collect002;
                  }
                  else {
                    Cons.addConsToEndOfConsList(into002.theConsList, collect002);
                  }
                }
              }
              else {
                {
                  collect002.rest = Cons.cons(type, Stella.NIL);
                  collect002 = collect002.rest;
                }
              }
            }
          }
        }
        else if (key == Stella.KWD_PROPERTIES) {
          KeyValueList.setDynamicSlotValue(renamed_Class.dynamicSlots, Stella.SYM_STELLA_PROPERTIES, ((List)(value)), null);
        }
        else if (key == Stella.KWD_META_ATTRIBUTES) {
          KeyValueList.setDynamicSlotValue(renamed_Class.dynamicSlots, Stella.SYM_STELLA_META_ATTRIBUTES, ((KeyValueList)(value)), null);
        }
        else if (key == Stella.KWD_CHILDREN) {
          renamed_Class.classDirectSubs = ((List)(value));
          Stella.$CLASSES_WITH_UNRESOLVED_CHILDREN_REFERENCES$.push(renamed_Class);
        }
        else {
          if (!(Stella_Object.runOptionHandlerP(renamed_Class, key, value))) {
            { Object old$PrintreadablyP$000 = Stella.$PRINTREADABLYp$.get();

              try {
                Native.setBooleanSpecial(Stella.$PRINTREADABLYp$, true);
                Stella.signalTranslationWarning();
                if (!(Stella.suppressWarningsP())) {
                  Stella.printErrorContext(">> WARNING: ", Stella.STANDARD_WARNING);
                  {
                    Stella.STANDARD_WARNING.nativeStream.println();
                    Stella.STANDARD_WARNING.nativeStream.println(" Skipping invalid class option `" + Stella_Object.deUglifyParseTree(key) + "'");
                    Stella.STANDARD_WARNING.nativeStream.println("in the definition of class `" + Stella_Class.classSymbol(renamed_Class) + "'.");
                  }
;
                }

              } finally {
                Stella.$PRINTREADABLYp$.set(old$PrintreadablyP$000);
              }
            }
          }
        }
      }
    }
  }