diff options
Diffstat (limited to 'src/boot/translator.boot')
| -rw-r--r-- | src/boot/translator.boot | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/src/boot/translator.boot b/src/boot/translator.boot index 508fc2e8..c972af6c 100644 --- a/src/boot/translator.boot +++ b/src/boot/translator.boot @@ -69,7 +69,7 @@ $translatingOldBoot := false AxiomCore::%sysInit() == SETQ(_*LOAD_-VERBOSE_*,false) - if %hasFeature KEYWORD::GCL or %hasFeature KEYWORD::ECL then + if %hasFeature KEYWORD::GCL then SETF(SYMBOL_-VALUE bfColonColon("COMPILER","*COMPILE-VERBOSE*"),false) SETF(SYMBOL_-VALUE @@ -845,7 +845,8 @@ defaultBootToLispFile file == getIntermediateLispFile(file,options) == out := NAMESTRING getOutputPathname(options) out ^= nil => - strconc(shoeRemoveStringIfNec($effectiveFaslType,out),'"clisp") + strconc(shoeRemoveStringIfNec + (strconc('".",$effectiveFaslType),out),'".clisp") defaultBootToLispFile file translateBootFile(progname, options, file) == |