From 659bb476574c97451317ee227a6352fb28bf3ada Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Mon, 10 Mar 2008 07:27:19 +0000
Subject: 	* interp/nocompil.lisp: Remove. 	*
 interp/Makefile.pamphlet: Adjust.

---
 src/interp/setvars.boot | 22 ++++++++++++++++++++--
 1 file changed, 20 insertions(+), 2 deletions(-)

(limited to 'src/interp/setvars.boot')

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 ----------------------
-- 
cgit v1.2.3