diff options
| author | dos-reis <gdr@axiomatics.org> | 2010-05-07 22:55:43 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2010-05-07 22:55:43 +0000 |
| commit | 9ede6cd0b5be47c119455a8df1bc41cb56e2f5ff (patch) | |
| tree | 3eb1f0f07959cb47103b524c71f6e541a0642a21 /src/boot/strap/translator.clisp | |
| parent | 75e606946370e97837e697e5f5070ddff4627952 (diff) | |
| download | open-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/translator.clisp')
| -rw-r--r-- | src/boot/strap/translator.clisp | 14 |
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) |