!7

!include #1011700 // quickExport

set flag FastLisp.
static S intern(S s) { ret internPerProgram(s); }

p {
  L<Web> webs = asList(allIndexedWebs());
  Class module = hotwire(programID());
  poorMansProfiling(50);
  time "Export" {
    quickExport(webs, module, l(webs)*20);
  }
  poorMansProfiling_stop();
  
  print("Total runtime: " + toS(sysNow()-vmStartTime_sys(), 1) + " s"
    + " (" + toS(sysNow()-programLoadTime_sys(), 1) + " s in program)");
    
  poorMansProfiling_saveResults();
  poorMansProfiling_printInnermostFunctions();
}