public static Keyword classifyFileExtension(String file) {
    { String extension = Stella.fileExtension(file);

      if (extension == null) {
        return (Stella.KWD_NONE);
      }
      { Cons entry = null;
        Cons iter000 = Stella.$TYPE_TO_FILE_EXTENSION_TABLE$;

        for (;!(iter000 == Stella.NIL); iter000 = iter000.rest) {
          entry = ((Cons)(iter000.value));
          if (Stella_Object.eqlToStringP(entry.rest.value, extension)) {
            return (((Keyword)(entry.value)));
          }
        }
      }
      if (Stella.runningAsLispP()) {
        if (Stella.stringEqlP(Keyword.computeCommonLispFileExtension(Stella.KWD_LISP), extension)) {
          return (Stella.KWD_LISP);
        }
        if (Stella.stringEqlP(Keyword.computeCommonLispFileExtension(Stella.KWD_LISP_BINARY), extension)) {
          return (Stella.KWD_LISP_BINARY);
        }
      }
      if (Stella.stringEqlP(Keyword.defaultCommonLispFileExtension(Stella.KWD_LISP), extension)) {
        return (Stella.KWD_LISP);
      }
      if (Stella.stringEqlP(Keyword.defaultCommonLispFileExtension(Stella.KWD_LISP_BINARY), extension)) {
        return (Stella.KWD_LISP_BINARY);
      }
      return (Stella.KWD_OTHER);
    }
  }