diff options
| author | dos-reis <gdr@axiomatics.org> | 2008-03-10 07:27:19 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2008-03-10 07:27:19 +0000 |
| commit | 659bb476574c97451317ee227a6352fb28bf3ada (patch) | |
| tree | 34a91ef498e7b7e9fdd44a315667bbf8e03e0a00 /src/interp/setvars.boot | |
| parent | 8842ac47654da4c97d82763c4f197d4297775084 (diff) | |
| download | open-axiom-659bb476574c97451317ee227a6352fb28bf3ada.tar.gz | |
* interp/nocompil.lisp: Remove.
* interp/Makefile.pamphlet: Adjust.
Diffstat (limited to 'src/interp/setvars.boot')
| -rw-r--r-- | src/interp/setvars.boot | 22 |
1 files changed, 20 insertions, 2 deletions
diff --git a/src/interp/setvars.boot b/src/interp/setvars.boot index f0f4d933..c32d85d9 100644 --- a/src/interp/setvars.boot +++ b/src/interp/setvars.boot @@ -179,6 +179,15 @@ translateTrueFalse2YesNo x == set l == set1(l, $setOptions) +++ turn on/off GCL optimized function call. +useFastLinks flag == +)if %hasFeature KEYWORD::GCL + SI::USE_-FAST_-LINKS flag +)else + flag +)endif + + set1(l,setTree) == null l => displaySetVariableSettings(setTree,"") $setOptionNames : local := [x.0 for x in setTree] @@ -239,9 +248,9 @@ set1(l,setTree) == then SET(setData.setVar, translateYesNo2TrueFalse setData.setDef) else if arg2 = 'nobreak then - USE_-FAST_-LINKS 'T + useFastLinks true if arg2 = 'fastlinks then - USE_-FAST_-LINKS 'NIL + useFastLinks false arg2 := 'break SET(setData.setVar, translateYesNo2TrueFalse arg2) -- if so set or not a valid choice, then show option information @@ -896,6 +905,10 @@ protectedSymbolsWarning arg == describeProtectedSymbolsWarning() PROTECTED_-SYMBOL_-WARN translateYesNo2TrueFalse first arg +PROTECTED_-SYMBOL_-WARN flag == + -- ??? Nobody seems to know what this function is supposed to do. + -- ??? It is rumored to have been builtin to CCL. + flag describeProtectSymbols() == sayBrightly LIST( @@ -920,6 +933,11 @@ protectSymbols arg == PROTECT_-SYMBOLS translateYesNo2TrueFalse first arg +PROTECT_-SYMBOLS flag == + -- ??? nobody seems to know what this function is supposed to do. + -- ??? It has been rumored to be native to CCL. + flag + -- See the subsection output algebra in setvart.boot -- -- --------------------- The algebra Option ---------------------- |