public static void startupHttpServerImpl() {
    { Object old$Module$000 = Stella.$MODULE$.get();
      Object old$Context$000 = Stella.$CONTEXT$.get();

      try {
        Native.setSpecial(Stella.$MODULE$, Stella.getStellaModule("/HTTP/SUN", Stella.$STARTUP_TIME_PHASE$ > 1));
        Native.setSpecial(Stella.$CONTEXT$, ((Module)(Stella.$MODULE$.get())));
        if (Stella.currentStartupTimePhaseP(2)) {
          Sun.SGT_SUN_HTTP_SERVER_SUN = ((Surrogate)(GeneralizedSymbol.internRigidSymbolWrtModule("HTTP-SERVER-SUN", null, 1)));
          Sun.SYM_SUN_CURRENT_SERVER_PORT = ((Symbol)(GeneralizedSymbol.internRigidSymbolWrtModule("CURRENT-SERVER-PORT", null, 0)));
          Sun.KWD_OK = ((Keyword)(GeneralizedSymbol.internRigidSymbolWrtModule("OK", null, 2)));
          Sun.SGT_SUN_HTTP_EXCHANGE_SUN = ((Surrogate)(GeneralizedSymbol.internRigidSymbolWrtModule("HTTP-EXCHANGE-SUN", null, 1)));
          Sun.SYM_SUN_RESPONSE_CODE = ((Symbol)(GeneralizedSymbol.internRigidSymbolWrtModule("RESPONSE-CODE", null, 0)));
          Sun.SYM_SUN_HANDLER_OPTIONS = ((Symbol)(GeneralizedSymbol.internRigidSymbolWrtModule("HANDLER-OPTIONS", null, 0)));
          Sun.KWD_BLOCK = ((Keyword)(GeneralizedSymbol.internRigidSymbolWrtModule("BLOCK", null, 2)));
          Sun.KWD_CONTENT_TYPE = ((Keyword)(GeneralizedSymbol.internRigidSymbolWrtModule("CONTENT-TYPE", null, 2)));
          Sun.KWD_HTML = ((Keyword)(GeneralizedSymbol.internRigidSymbolWrtModule("HTML", null, 2)));
          Sun.SYM_SUN_STARTUP_HTTP_SERVER_IMPL = ((Symbol)(GeneralizedSymbol.internRigidSymbolWrtModule("STARTUP-HTTP-SERVER-IMPL", null, 0)));
          Sun.SYM_STELLA_METHOD_STARTUP_CLASSNAME = ((Symbol)(GeneralizedSymbol.internRigidSymbolWrtModule("METHOD-STARTUP-CLASSNAME", Stella.getStellaModule("/STELLA", true), 0)));
        }
        if (Stella.currentStartupTimePhaseP(5)) {
          Stella.defineClassFromStringifiedSource("NATIVE-HTTP-SERVER", "(DEFCLASS NATIVE-HTTP-SERVER () :JAVA-NATIVE-TYPE \"com.sun.net.httpserver.HttpServer\")");
          { Stella_Class renamed_Class = Stella.defineClassFromStringifiedSource("HTTP-SERVER-SUN", "(DEFCLASS HTTP-SERVER-SUN (HTTP-SERVER) :PUBLIC? TRUE :SLOTS ((CURRENT-SERVER :TYPE NATIVE-HTTP-SERVER) (CURRENT-SERVER-PORT :TYPE INTEGER)))");

            renamed_Class.classConstructorCode = Native.find_java_method("edu.isi.webtools.http.sun.HttpServerSun", "newHttpServerSun", new java.lang.Class [] {});
            renamed_Class.classSlotAccessorCode = Native.find_java_method("edu.isi.webtools.http.sun.HttpServerSun", "accessHttpServerSunSlotValue", new java.lang.Class [] {Native.find_java_class("edu.isi.webtools.http.sun.HttpServerSun"), Native.find_java_class("edu.isi.stella.Symbol"), Native.find_java_class("edu.isi.stella.Stella_Object"), java.lang.Boolean.TYPE});
          }
          Stella.defineClassFromStringifiedSource("NATIVE-HTTP-EXCHANGE", "(DEFCLASS NATIVE-HTTP-EXCHANGE () :JAVA-NATIVE-TYPE \"com.sun.net.httpserver.HttpExchange\")");
          { Stella_Class renamed_Class = Stella.defineClassFromStringifiedSource("HTTP-EXCHANGE-SUN", "(DEFCLASS HTTP-EXCHANGE-SUN (HTTP-EXCHANGE) :SLOTS ((NATIVE-EXCHANGE :TYPE NATIVE-HTTP-EXCHANGE) (RESPONSE-CODE :TYPE INTEGER :INITIALLY (GET-HTTP-RESPONSE-CODE :OK NULL)) (REPLY-STREAM :TYPE NATIVE-OUTPUT-STREAM) (HANDLER-OPTIONS :TYPE PROPERTY-LIST)))");

            renamed_Class.classConstructorCode = Native.find_java_method("edu.isi.webtools.http.sun.HttpExchangeSun", "newHttpExchangeSun", new java.lang.Class [] {});
            renamed_Class.classSlotAccessorCode = Native.find_java_method("edu.isi.webtools.http.sun.HttpExchangeSun", "accessHttpExchangeSunSlotValue", new java.lang.Class [] {Native.find_java_class("edu.isi.webtools.http.sun.HttpExchangeSun"), Native.find_java_class("edu.isi.stella.Symbol"), Native.find_java_class("edu.isi.stella.Stella_Object"), java.lang.Boolean.TYPE});
          }
        }
        if (Stella.currentStartupTimePhaseP(6)) {
          Stella.finalizeClasses();
        }
        if (Stella.currentStartupTimePhaseP(7)) {
          Stella.defineMethodObject("(DEFMETHOD (START-HTTP-SERVER-IMPL STRING) ((SERVER HTTP-SERVER-SUN) (PORT INTEGER)))", Native.find_java_method("edu.isi.webtools.http.sun.HttpServerSun", "startHttpServerImpl", new java.lang.Class [] {java.lang.Integer.TYPE}), ((java.lang.reflect.Method)(null)));
          Stella.defineMethodObject("(DEFMETHOD STOP-HTTP-SERVER-IMPL ((SERVER HTTP-SERVER-SUN)))", Native.find_java_method("edu.isi.webtools.http.sun.HttpServerSun", "stopHttpServerImpl", new java.lang.Class [] {}), ((java.lang.reflect.Method)(null)));
          Stella.defineMethodObject("(DEFMETHOD (GET-HEADER-VALUE-IMPL STRING) ((SERVER HTTP-SERVER-SUN) (XCHG HTTP-EXCHANGE) (KEY KEYWORD)))", Native.find_java_method("edu.isi.webtools.http.sun.HttpServerSun", "getHeaderValueImpl", new java.lang.Class [] {Native.find_java_class("edu.isi.webtools.http.HttpExchange"), Native.find_java_class("edu.isi.stella.Keyword")}), ((java.lang.reflect.Method)(null)));
          Stella.defineMethodObject("(DEFMETHOD (GET-REPLY-HEADER-VALUE-IMPL STRING) ((SERVER HTTP-SERVER-SUN) (XCHG HTTP-EXCHANGE) (KEY KEYWORD)))", Native.find_java_method("edu.isi.webtools.http.sun.HttpServerSun", "getReplyHeaderValueImpl", new java.lang.Class [] {Native.find_java_class("edu.isi.webtools.http.HttpExchange"), Native.find_java_class("edu.isi.stella.Keyword")}), ((java.lang.reflect.Method)(null)));
          Stella.defineMethodObject("(DEFMETHOD SET-REPLY-HEADER-VALUE-IMPL ((SERVER HTTP-SERVER-SUN) (XCHG HTTP-EXCHANGE) (KEY KEYWORD) (VALUE STRING)))", Native.find_java_method("edu.isi.webtools.http.sun.HttpServerSun", "setReplyHeaderValueImpl", new java.lang.Class [] {Native.find_java_class("edu.isi.webtools.http.HttpExchange"), Native.find_java_class("edu.isi.stella.Keyword"), Native.find_java_class("java.lang.String")}), ((java.lang.reflect.Method)(null)));
          Stella.defineMethodObject("(DEFMETHOD (GET-REQUEST-URI-IMPL STRING) ((SERVER HTTP-SERVER-SUN) (XCHG HTTP-EXCHANGE)))", Native.find_java_method("edu.isi.webtools.http.sun.HttpServerSun", "getRequestUriImpl", new java.lang.Class [] {Native.find_java_class("edu.isi.webtools.http.HttpExchange")}), ((java.lang.reflect.Method)(null)));
          Stella.defineMethodObject("(DEFMETHOD (GET-REQUEST-URI-QUERY-IMPL STRING) ((SERVER HTTP-SERVER-SUN) (XCHG HTTP-EXCHANGE)))", Native.find_java_method("edu.isi.webtools.http.sun.HttpServerSun", "getRequestUriQueryImpl", new java.lang.Class [] {Native.find_java_class("edu.isi.webtools.http.HttpExchange")}), ((java.lang.reflect.Method)(null)));
          Stella.defineMethodObject("(DEFMETHOD (GET-REQUEST-URI-PATH-IMPL STRING) ((SERVER HTTP-SERVER-SUN) (XCHG HTTP-EXCHANGE)))", Native.find_java_method("edu.isi.webtools.http.sun.HttpServerSun", "getRequestUriPathImpl", new java.lang.Class [] {Native.find_java_class("edu.isi.webtools.http.HttpExchange")}), ((java.lang.reflect.Method)(null)));
          Stella.defineMethodObject("(DEFMETHOD (GET-REQUEST-METHOD-IMPL KEYWORD) ((SERVER HTTP-SERVER-SUN) (XCHG HTTP-EXCHANGE)))", Native.find_java_method("edu.isi.webtools.http.sun.HttpServerSun", "getRequestMethodImpl", new java.lang.Class [] {Native.find_java_class("edu.isi.webtools.http.HttpExchange")}), ((java.lang.reflect.Method)(null)));
          Stella.defineMethodObject("(DEFMETHOD (GET-REQUEST-PROTOCOL-IMPL STRING) ((SERVER HTTP-SERVER-SUN) (XCHG HTTP-EXCHANGE)))", Native.find_java_method("edu.isi.webtools.http.sun.HttpServerSun", "getRequestProtocolImpl", new java.lang.Class [] {Native.find_java_class("edu.isi.webtools.http.HttpExchange")}), ((java.lang.reflect.Method)(null)));
          Stella.defineMethodObject("(DEFMETHOD (GET-REQUEST-BODY-IMPL STRING) ((SERVER HTTP-SERVER-SUN) (XCHG HTTP-EXCHANGE)))", Native.find_java_method("edu.isi.webtools.http.sun.HttpServerSun", "getRequestBodyImpl", new java.lang.Class [] {Native.find_java_class("edu.isi.webtools.http.HttpExchange")}), ((java.lang.reflect.Method)(null)));
          Stella.defineMethodObject("(DEFMETHOD (GET-REQUEST-LOCAL-ADDRESS-IMPL STRING) ((SERVER HTTP-SERVER-SUN) (XCHG HTTP-EXCHANGE)))", Native.find_java_method("edu.isi.webtools.http.sun.HttpServerSun", "getRequestLocalAddressImpl", new java.lang.Class [] {Native.find_java_class("edu.isi.webtools.http.HttpExchange")}), ((java.lang.reflect.Method)(null)));
          Stella.defineMethodObject("(DEFMETHOD (GET-REQUEST-REMOTE-ADDRESS-IMPL STRING) ((SERVER HTTP-SERVER-SUN) (XCHG HTTP-EXCHANGE)))", Native.find_java_method("edu.isi.webtools.http.sun.HttpServerSun", "getRequestRemoteAddressImpl", new java.lang.Class [] {Native.find_java_class("edu.isi.webtools.http.HttpExchange")}), ((java.lang.reflect.Method)(null)));
          Stella.defineMethodObject("(DEFMETHOD (GET-REPLY-STREAM-IMPL NATIVE-OUTPUT-STREAM) ((SERVER HTTP-SERVER-SUN) (XCHG HTTP-EXCHANGE)))", Native.find_java_method("edu.isi.webtools.http.sun.HttpServerSun", "getReplyStreamImpl", new java.lang.Class [] {Native.find_java_class("edu.isi.webtools.http.HttpExchange")}), ((java.lang.reflect.Method)(null)));
          Stella.defineMethodObject("(DEFMETHOD SET-RESPONSE-CODE-IMPL ((SERVER HTTP-SERVER-SUN) (XCHG HTTP-EXCHANGE) (CODE KEYWORD)))", Native.find_java_method("edu.isi.webtools.http.sun.HttpServerSun", "setResponseCodeImpl", new java.lang.Class [] {Native.find_java_class("edu.isi.webtools.http.HttpExchange"), Native.find_java_class("edu.isi.stella.Keyword")}), ((java.lang.reflect.Method)(null)));
          Stella.defineMethodObject("(DEFMETHOD PUBLISH-FILE-IMPL ((SERVER HTTP-SERVER-SUN) (PATH STRING) (FILE STRING) (OPTIONS PROPERTY-LIST)))", Native.find_java_method("edu.isi.webtools.http.sun.HttpServerSun", "publishFileImpl", new java.lang.Class [] {Native.find_java_class("java.lang.String"), Native.find_java_class("java.lang.String"), Native.find_java_class("edu.isi.stella.PropertyList")}), ((java.lang.reflect.Method)(null)));
          Stella.defineMethodObject("(DEFMETHOD PUBLISH-DIRECTORY-IMPL ((SERVER HTTP-SERVER-SUN) (PATH STRING) (DIRECTORY STRING) (OPTIONS PROPERTY-LIST)))", Native.find_java_method("edu.isi.webtools.http.sun.HttpServerSun", "publishDirectoryImpl", new java.lang.Class [] {Native.find_java_class("java.lang.String"), Native.find_java_class("java.lang.String"), Native.find_java_class("edu.isi.stella.PropertyList")}), ((java.lang.reflect.Method)(null)));
          Stella.defineMethodObject("(DEFMETHOD PUBLISH-HANDLER-IMPL ((SERVER HTTP-SERVER-SUN) (PATH STRING) (HANDLER FUNCTION-CODE) (OPTIONS PROPERTY-LIST)))", Native.find_java_method("edu.isi.webtools.http.sun.HttpServerSun", "publishHandlerImpl", new java.lang.Class [] {Native.find_java_class("java.lang.String"), Native.find_java_class("java.lang.reflect.Method"), Native.find_java_class("edu.isi.stella.PropertyList")}), ((java.lang.reflect.Method)(null)));
          Stella.defineMethodObject("(DEFMETHOD (GET-HANDLER-OPTIONS-IMPL PROPERTY-LIST) ((SERVER HTTP-SERVER-SUN) (XCHG HTTP-EXCHANGE)))", Native.find_java_method("edu.isi.webtools.http.sun.HttpServerSun", "getHandlerOptionsImpl", new java.lang.Class [] {Native.find_java_class("edu.isi.webtools.http.HttpExchange")}), ((java.lang.reflect.Method)(null)));
          Stella.defineFunctionObject("STARTUP-HTTP-SERVER-IMPL", "(DEFUN STARTUP-HTTP-SERVER-IMPL () :PUBLIC? TRUE)", Native.find_java_method("edu.isi.webtools.http.sun._StartupHttpServerImpl", "startupHttpServerImpl", new java.lang.Class [] {}), null);
          { MethodSlot function = Symbol.lookupFunction(Sun.SYM_SUN_STARTUP_HTTP_SERVER_IMPL);

            KeyValueList.setDynamicSlotValue(function.dynamicSlots, Sun.SYM_STELLA_METHOD_STARTUP_CLASSNAME, StringWrapper.wrapString("_StartupHttpServerImpl"), Stella.NULL_STRING_WRAPPER);
          }
        }
        if (Stella.currentStartupTimePhaseP(8)) {
          Stella.finalizeSlots();
          Stella.cleanupUnfinalizedClasses();
        }
        if (Stella.currentStartupTimePhaseP(9)) {
          Stella_Object.inModule(((StringWrapper)(Stella_Object.copyConsTree(StringWrapper.wrapString("HTTP/SUN")))));
          if ((Http.$HTTP_SERVER_IMPLEMENTATION$ != null) &&
              (!Stella_Object.isaP(Http.$HTTP_SERVER_IMPLEMENTATION$, Sun.SGT_SUN_HTTP_SERVER_SUN))) {
            throw ((StellaException)(StellaException.newStellaException("Conflicting HTTP server implementation already loaded").fillInStackTrace()));
          }
          else {
            Http.$HTTP_SERVER_IMPLEMENTATION$ = HttpServerSun.newHttpServerSun();
          }
        }

      } finally {
        Stella.$CONTEXT$.set(old$Context$000);
        Stella.$MODULE$.set(old$Module$000);
      }
    }
  }