aboutsummaryrefslogtreecommitdiff
path: root/src/boot/strap
diff options
context:
space:
mode:
authordos-reis <gdr@axiomatics.org>2010-05-07 22:55:43 +0000
committerdos-reis <gdr@axiomatics.org>2010-05-07 22:55:43 +0000
commit9ede6cd0b5be47c119455a8df1bc41cb56e2f5ff (patch)
tree3eb1f0f07959cb47103b524c71f6e541a0642a21 /src/boot/strap
parent75e606946370e97837e697e5f5070ddff4627952 (diff)
downloadopen-axiom-9ede6cd0b5be47c119455a8df1bc41cb56e2f5ff.tar.gz
* 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.
Diffstat (limited to 'src/boot/strap')
-rw-r--r--src/boot/strap/translator.clisp14
1 files changed, 13 insertions, 1 deletions
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)