diff options
author | dos-reis <gdr@axiomatics.org> | 2008-09-13 17:31:49 +0000 |
---|---|---|
committer | dos-reis <gdr@axiomatics.org> | 2008-09-13 17:31:49 +0000 |
commit | 65e866db45bf4713c62af9d727955d40c1f39b53 (patch) | |
tree | 338747c16baeaaf0ee033033195348de2d3262c6 | |
parent | 589f7cf3f981b960121e03c529fb3dfe76981b45 (diff) | |
download | open-axiom-65e866db45bf4713c62af9d727955d40c1f39b53.tar.gz |
* boot/translator.boot (AxiomCore::%sysInit) [ECL]: Remove
settings for ECL-base builds.
(getIntermediateLispFile): Tidy.
-rw-r--r-- | src/ChangeLog | 6 | ||||
-rw-r--r-- | src/boot/translator.boot | 5 |
2 files changed, 9 insertions, 2 deletions
diff --git a/src/ChangeLog b/src/ChangeLog index eb8f8561..2aadfbd8 100644 --- a/src/ChangeLog +++ b/src/ChangeLog @@ -1,3 +1,9 @@ +2008-09-13 Gabriel Dos Reis <gdr@cs.tamu.edu> + + * boot/translator.boot (AxiomCore::%sysInit) [ECL]: Remove + settings for ECL-base builds. + (getIntermediateLispFile): Tidy. + 2008-09-10 Gabriel Dos Reis <gdr@cs.tamu.edu> * interp/define.boot (displayMissingFunctions): Fix typo. 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) == |