diff options
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) |