From 9ede6cd0b5be47c119455a8df1bc41cb56e2f5ff Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Fri, 7 May 2010 22:55:43 +0000
Subject: 	* interp/c-util.boot: Replace uses of rplac with explicit
 assignments. 	* interp/compiler.boot: Likewise. 	* interp/define.boot:
 Likewise. 	* interp/g-opt.boot: Likewise. 	* interp/nrunfast.boot:
 Likewise. 	* lisp/core.lisp.in ($FilesToRetain): New. Export. 	*
 lisp/Makefile.in: Tidy. 	* boot/translator.boot (retainFile?): New. 
 (compileBootHandler): Use it.

---
 src/boot/strap/translator.clisp | 14 +++++++++++++-
 1 file changed, 13 insertions(+), 1 deletion(-)

(limited to 'src/boot/strap')

diff --git a/src/boot/strap/translator.clisp b/src/boot/strap/translator.clisp
index 9a23effe..bb7c66d3 100644
--- a/src/boot/strap/translator.clisp
+++ b/src/boot/strap/translator.clisp
@@ -1274,6 +1274,16 @@
                   (|defaultBootToLispFile| |file|)))
         (BOOTTOCL |file| (ENOUGH-NAMESTRING |outFile|))))))
 
+(DEFUN |retainFile?| (|ext|)
+  (COND
+    ((OR (MEMBER (|Option| '|all|) |$FilesToRetain|)
+         (MEMBER (|Option| '|yes|) |$FilesToRetain|))
+     T)
+    ((MEMBER (|Option| '|no|) |$FilesToRetain|) NIL)
+    (T (MEMBER (|Option| |ext|) |$FilesToRetain|))))
+
+(EVAL-WHEN (:EXECUTE :LOAD-TOPLEVEL) (TRACE |retainFile?|))
+
 (DEFUN |compileBootHandler| (|progname| |options| |file|)
   (PROG (|objFile| |intFile|)
     (RETURN
@@ -1287,7 +1297,9 @@
               (SETQ |objFile|
                     (|compileLispHandler| |progname| |options|
                         |intFile|))
-              (DELETE-FILE |intFile|) |objFile|)
+              (COND
+                ((NOT (|retainFile?| '|lisp|)) (DELETE-FILE |intFile|)))
+              |objFile|)
           (T NIL))))))
 
 (EVAL-WHEN (:EXECUTE :LOAD-TOPLEVEL)
-- 
cgit v1.2.3