From 75e606946370e97837e697e5f5070ddff4627952 Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Fri, 7 May 2010 19:41:44 +0000
Subject: 	* configure.ac.pamphlet: Add new option:
 --enable-int-file-retention. src/ 	* lisp/core.lisp.in ($FilesToRetain):
 New. Export. 	* lisp/Makefile.in: Tidy. 	* boot/translator.boot
 (retainFile?): New. 	(compileBootHandler): Use it.

---
 src/boot/translator.boot | 10 +++++++++-
 1 file changed, 9 insertions(+), 1 deletion(-)

(limited to 'src/boot/translator.boot')

diff --git a/src/boot/translator.boot b/src/boot/translator.boot
index ebedbe56..ff996f23 100644
--- a/src/boot/translator.boot
+++ b/src/boot/translator.boot
@@ -745,12 +745,20 @@ translateBootFile(progname, options, file) ==
   outFile := getOutputPathname options or defaultBootToLispFile file
   BOOTTOCL(file, ENOUGH_-NAMESTRING outFile)
 
+retainFile? ext ==
+  Option 'all in $FilesToRetain or Option 'yes in $FilesToRetain => true
+  Option 'no in $FilesToRetain => false
+  Option ext in $FilesToRetain
+
+TRACE retainFile?
+
 compileBootHandler(progname, options, file) ==
   intFile := BOOTTOCL(file, getIntermediateLispFile(file,options))
   errorCount() ~= 0 => nil
   intFile => 
     objFile := compileLispHandler(progname, options, intFile)
-    DELETE_-FILE intFile
+    if not retainFile? 'lisp then
+      DELETE_-FILE intFile
     objFile
   nil
 
-- 
cgit v1.2.3