public static String computeCommonLispFileExtension(Keyword type) {
    if (!(Stella.runningAsLispP())) {
      throw ((StellaException)(StellaException.newStellaException("Shouldn't call COMPUTE-COMMON-LISP-FILE-EXTENSION unless running in Lisp").fillInStackTrace()));
    }
    { String suffix = null;

      if (type == Stella.KWD_LISP_BINARY) {
        suffix = null;
        if (((List)(Stella.$CURRENT_STELLA_FEATURES$.get())).membP(Stella.KWD_USE_COMMON_LISP_STRUCTS)) {
          suffix = "s" + suffix;
        }
        else if (((List)(Stella.$CURRENT_STELLA_FEATURES$.get())).membP(Stella.KWD_USE_COMMON_LISP_VECTOR_STRUCTS)) {
          suffix = "vs" + suffix;
        }
        else {
        }
      }
      else if (type == Stella.KWD_LISP) {
        if (((List)(Stella.$CURRENT_STELLA_FEATURES$.get())).membP(Stella.KWD_USE_COMMON_LISP_STRUCTS)) {
          suffix = ".slisp";
        }
        else if (((List)(Stella.$CURRENT_STELLA_FEATURES$.get())).membP(Stella.KWD_USE_COMMON_LISP_VECTOR_STRUCTS)) {
          suffix = ".vslisp";
        }
        else {
          suffix = ".lisp";
        }
      }
      else {
        { OutputStringStream stream000 = OutputStringStream.newOutputStringStream();

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