public static void clOutputAllUnitsToFile(String sourcefile) {
    { String outputfile = Stella.makeFileName(sourcefile, Stella.KWD_LISP, false);
      OutputFileStream outputstream = OutputFileStream.newOutputFileStream(outputfile);
      PrintableStringWriter writer = outputstream.nativeStream;

      if (((Integer)(Stella.$TRANSLATIONVERBOSITYLEVEL$.get())).intValue() >= 1) {
        System.out.println("Writing `" + outputfile + "'...");
      }
      OutputStream.outputFileHeader(outputstream, outputfile);
      {
        writer.println(";;; Auxiliary variables:");
        writer.println();
      }
;
      { TranslationUnit unit = null;
        Cons iter000 = ((List)(Stella.$TRANSLATIONUNITS$.get())).theConsList;

        for (;!(iter000 == Stella.NIL); iter000 = iter000.rest) {
          unit = ((TranslationUnit)(iter000.value));
          if (TranslationUnit.auxiliaryVariableUnitP(unit)) {
            TranslationUnit.clOutputOneUnit(unit, writer);
          }
        }
      }
      Stella.clOutputForwardDeclarations(writer);
      if (((List)(Stella.$CURRENT_STELLA_FEATURES$.get())).membP(Stella.KWD_USE_COMMON_LISP_STRUCTS) &&
          (!((List)(Stella.$CURRENT_STELLA_FEATURES$.get())).membP(Stella.KWD_USE_COMMON_LISP_VECTOR_STRUCTS))) {
        { TranslationUnit unit = null;
          Cons iter001 = ((List)(Stella.$TRANSLATIONUNITS$.get())).theConsList;

          for (;!(iter001 == Stella.NIL); iter001 = iter001.rest) {
            unit = ((TranslationUnit)(iter001.value));
            if (unit.category == Stella.SYM_STELLA_CLASS) {
              TranslationUnit.clOutputOneUnit(unit, writer);
            }
          }
        }
      }
      { TranslationUnit unit = null;
        Cons iter002 = ((List)(Stella.$TRANSLATIONUNITS$.get())).theConsList;

        for (;!(iter002 == Stella.NIL); iter002 = iter002.rest) {
          unit = ((TranslationUnit)(iter002.value));
          if (!TranslationUnit.auxiliaryVariableUnitP(unit)) {
            TranslationUnit.clOutputOneUnit(unit, writer);
          }
        }
      }
      outputstream.free();
    }
  }