diff --git a/tools/comcom.lisp b/tools/comcom.lisp index ccf9ef99ecb420e79c126a6d38a3ac6c86768953..524fa25c6284fbe0cbe71e47dea9794ba12932c8 100644 --- a/tools/comcom.lisp +++ b/tools/comcom.lisp @@ -5,8 +5,8 @@ (c::%proclaim '(optimize (speed 2) (space 2) (c::brevity 2))) (setq *print-pretty* nil) -(with-compiler-log-file ("c:compile-compiler.log") - +;(with-compiler-log-file ("c:compile-compiler.log") +#+nil (unless *new-compile* (comf "code:fdefinition") (load "code:extensions.lisp") @@ -22,7 +22,7 @@ (comf "code:struct" :load t) (comf "c:macros" :load t :bootstrap-macros :both)) -(when *new-compile* +;(when *new-compile* (comf "code:globals" :always-once t) ; For global variables. (comf "code:struct" :always-once t) ; For structures. (comf "c:globals" :always-once t) @@ -80,7 +80,7 @@ (comf "c:rt/assem-insts" :load t) -(when *new-compile* +;(when *new-compile* (comf "c:eval-comp") (comf "c:eval" :bootstrap-macros :both)) @@ -88,6 +88,7 @@ (comf "c:aliencomp") (comf "c:debug-dump") +#+nil (unless *new-compile* (comf "code:constants" :load t :proceed t) (comf "assem:rompconst" :load t :proceed t) @@ -98,7 +99,7 @@ (comf "c:rt/dump") -(when *new-compile* +;(when *new-compile* (comf "c:rt/core")) (comf "c:rt/vm" :always-once *new-compile*) @@ -137,6 +138,7 @@ #+new-compiler (comf "c:rt/genesis") +#+nil (unless *new-compile* (comf "code:defstruct") (comf "code:error")