dec20-cross.mic 536 B

12345678910111213141516171819202122
  1. @delete s:ex-dec20-cross.exe,
  2. exp
  3. @get psl:ex-rlisp
  4. @st
  5. *Options!*:=NIL; % Force reload of ALL
  6. *load(zboot, syslisp, if!-system, lap!-to!-asm);
  7. *load(dec20!-comp,dec20!-asm);
  8. *load(dec20!-cmac);
  9. *remflag(''(extrareg),''terminaloperand);
  10. *off usermode;
  11. *% This patch is until init files can be read
  12. *%CopyD(''SaveUncompiledExpression, ''SaveForCompilation);
  13. *%in "DEC20-PATCHES.sl"$
  14. *in "pt:new-sym.red"$
  15. *cross!-compiler!-name := "S:EX-DEC20-CROSS.EXE";
  16. *Date!* := "Extended Dec 20 cross compiler";
  17. *writesavefile();
  18. *Quit;
  19. @reset .