aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authordos-reis <gdr@axiomatics.org>2008-09-13 17:31:49 +0000
committerdos-reis <gdr@axiomatics.org>2008-09-13 17:31:49 +0000
commit65e866db45bf4713c62af9d727955d40c1f39b53 (patch)
tree338747c16baeaaf0ee033033195348de2d3262c6
parent589f7cf3f981b960121e03c529fb3dfe76981b45 (diff)
downloadopen-axiom-65e866db45bf4713c62af9d727955d40c1f39b53.tar.gz
* boot/translator.boot (AxiomCore::%sysInit) [ECL]: Remove
settings for ECL-base builds. (getIntermediateLispFile): Tidy.
-rw-r--r--src/ChangeLog6
-rw-r--r--src/boot/translator.boot5
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) ==