From 4f53f075c13bccb6b52c9fe76ec11ad4d3461d83 Mon Sep 17 00:00:00 2001 From: ram <ram> Date: Mon, 23 Jul 1990 13:40:40 +0000 Subject: [PATCH] COmmented out the WITH-... macro use, since it is causing some sort of GC blowup. --- tools/comcom.lisp | 12 +++++++----- 1 file changed, 7 insertions(+), 5 deletions(-) diff --git a/tools/comcom.lisp b/tools/comcom.lisp index ccf9ef99e..524fa25c6 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") -- GitLab