* boot/tokens.boot: Retire "^" as negation operator.

	* interp/br-search.boot: Use "not" instead of "^".
	* interp/br-util.boot: Likewise.
	* interp/database.boot: Likewise.
	* interp/define.boot: Likewise.
	* interp/format.boot: Likewise.
	* interp/g-error.boot: Likewise.
	* interp/i-analy.boot: Likewise.
	* interp/i-coerce.boot: Likewise.
	* interp/i-coerfn.boot: Likewise.
	* interp/i-funsel.boot: Likewise.
	* interp/i-map.boot: Likewise.
	* interp/i-output.boot: Likewise.
	* interp/i-resolv.boot: Likewise.
	* interp/i-spec1.boot: Likewise.
	* interp/i-spec2.boot: Likewise.
	* interp/i-syscmd.boot: Likewise.
	* interp/mark.boot: Likewise.
	* interp/modemap.boot: Likewise.
	* interp/pspad1.boot: Likewise.
	* interp/pspad2.boot: Likewise.
	* interp/spad-parser.boot: Likewise.
	* interp/trace.boot: Likewise.
	* interp/wi1.boot: Likewise.
	* interp/wi2.boot: Likewise.

1 files changed, 21 insertions, 21 deletions

diff --git a/src/interp/i-syscmd.boot b/src/interp/i-syscmd.boot
index 92db9407..6e179730 100644
--- a/src/interp/i-syscmd.boot
+++ b/src/interp/i-syscmd.boot
@@ -327,7 +327,7 @@ clearCmdAll() ==
 clearCmdExcept(l is [opt,:vl]) ==
   --clears elements of vl of all options EXCEPT opt
   for option in $clearOptions |
-    ^stringPrefix?(object2String opt,object2String option)
+    not stringPrefix?(object2String opt,object2String option)
       repeat clearCmdParts [option,:vl]
 
 clearCmdParts(l is [opt,:vl]) ==
@@ -355,7 +355,7 @@ clearCmdParts(l is [opt,:vl]) ==
   for x in vl repeat
     clearDependencies(x,true)
     if option='properties and x in pmacs then clearParserMacro(x)
-    if option='properties and x in imacs and ^(x in pmacs) then
+    if option='properties and x in imacs and not (x in pmacs) then
         sayMessage ['"   You cannot clear the definition of the system-defined macro ",
             fixObjectForPrinting x,"."]
     p1 := assoc(x,CAAR $InteractiveFrame) =>
@@ -428,7 +428,7 @@ compiler args ==
     optlist := '(new old translate constructor)
     haveNew := nil
     haveOld := nil
-    for opt in $options while ^(haveNew and haveOld) repeat
+    for opt in $options while not (haveNew and haveOld) repeat
         [optname,:optargs] := opt
         fullopt := selectOptionLC(optname,optlist,nil)
         fullopt = 'new => haveNew := true
@@ -516,7 +516,7 @@ compileAsharpCmd1 args ==
     path := pathname args
     pathType := pathnameType path
     (pathType ~= '"as") and (pathType ~= '"ao") => throwKeyedMsg("S2IZ0083", nil)
-    ^PROBE_-FILE path => throwKeyedMsg("S2IL0003",[namestring args])
+    null PROBE_-FILE path => throwKeyedMsg("S2IL0003",[namestring args])
 
     SETQ(_/EDITFILE, path)
     updateSourceFiles path
@@ -585,7 +585,7 @@ compileAsharpCmd1 args ==
             s
         tempArgs
 
-    if ^beQuiet then sayKeyedMsg("S2IZ0038A",[namestring args, asharpArgs])
+    if not beQuiet then sayKeyedMsg("S2IZ0038A",[namestring args, asharpArgs])
 
     command :=
      STRCONC(STRCONC(GETENV('"ALDORROOT"),'"/bin/"),_
@@ -595,16 +595,16 @@ compileAsharpCmd1 args ==
     if (rc = 0) and doCompileLisp then
         lsp := fnameMake('".", pathnameName args, '"lsp")
         if fnameReadable?(lsp) then
-            if ^beQuiet then sayKeyedMsg("S2IZ0089", [namestring lsp])
+            if not beQuiet then sayKeyedMsg("S2IZ0089", [namestring lsp])
             compileFileQuietly(lsp)
         else
             sayKeyedMsg("S2IL0003", [namestring lsp])
 
     if rc = 0 and doLibrary then
         -- do we need to worry about where the compilation output went?
-        if ^beQuiet then sayKeyedMsg("S2IZ0090", [ pathnameName path ])
+        if not beQuiet then sayKeyedMsg("S2IZ0090", [ pathnameName path ])
         withAsharpCmd [ pathnameName path ]
-    else if ^beQuiet then
+    else if not beQuiet then
         sayKeyedMsg("S2IZ0084", nil)
 
     if not $buildingSystemAlgebra then
@@ -616,7 +616,7 @@ compileAsharpArchiveCmd args ==
     -- the name is fully qualified.
 
     path := pathname args
-    ^PROBE_-FILE path => throwKeyedMsg("S2IL0003",[namestring args])
+    null PROBE_-FILE path => throwKeyedMsg("S2IL0003",[namestring args])
 
     -- here is the plan:
     --   1. extract the file name and try to make a directory based
@@ -672,7 +672,7 @@ compileAsharpLispCmd args ==
     -- and is a file with file extension .lsp
 
     path := pathname args
-    ^PROBE_-FILE path => throwKeyedMsg("S2IL0003",[namestring args])
+    null PROBE_-FILE path => throwKeyedMsg("S2IL0003",[namestring args])
 
     optList :=  '( _
       quiet _
@@ -698,16 +698,16 @@ compileAsharpLispCmd args ==
 
     lsp := fnameMake(pathnameDirectory path, pathnameName path, pathnameType path)
     if fnameReadable?(lsp) then
-        if ^beQuiet then sayKeyedMsg("S2IZ0089", [namestring lsp])
+        if not beQuiet then sayKeyedMsg("S2IZ0089", [namestring lsp])
         compileFileQuietly(lsp)
     else
         sayKeyedMsg("S2IL0003", [namestring lsp])
 
     if doLibrary then
         -- do we need to worry about where the compilation output went?
-        if ^beQuiet then sayKeyedMsg("S2IZ0090", [ pathnameName path ])
+        if not beQuiet then sayKeyedMsg("S2IZ0090", [ pathnameName path ])
         withAsharpCmd [ pathnameName path ]
-    else if ^beQuiet then
+    else if not beQuiet then
         sayKeyedMsg("S2IZ0084", nil)
     terminateSystemCommand()
 
@@ -716,7 +716,7 @@ compileSpadLispCmd args ==
     -- and is a file with file extension .NRLIB
 
     path := pathname fnameMake(first args, '"code", '"lsp")
-    ^PROBE_-FILE path => throwKeyedMsg("S2IL0003",[namestring args])
+    null PROBE_-FILE path => throwKeyedMsg("S2IL0003",[namestring args])
 
     optList :=  '( _
       quiet _
@@ -742,7 +742,7 @@ compileSpadLispCmd args ==
 
     lsp := fnameMake(pathnameDirectory path, pathnameName path, pathnameType path)
     if fnameReadable?(lsp) then
-        if ^beQuiet then sayKeyedMsg("S2IZ0089", [namestring lsp])
+        if not beQuiet then sayKeyedMsg("S2IZ0089", [namestring lsp])
         --compileFileQuietly(lsp)
         RECOMPILE_-LIB_-FILE_-IF_-NECESSARY lsp
     else
@@ -750,9 +750,9 @@ compileSpadLispCmd args ==
 
     if doLibrary then
         -- do we need to worry about where the compilation output went?
-        if ^beQuiet then sayKeyedMsg("S2IZ0090", [ pathnameName path ])
+        if not beQuiet then sayKeyedMsg("S2IZ0090", [ pathnameName path ])
         LOCALDATABASE([ pathnameName first args ],[])
-    else if ^beQuiet then
+    else if not beQuiet then
         sayKeyedMsg("S2IZ0084", nil)
     terminateSystemCommand()
 
@@ -763,7 +763,7 @@ compileSpad2Cmd args ==
 
     path := pathname args
     pathnameType path ~= '"spad" => throwKeyedMsg("S2IZ0082", nil)
-    ^PROBE_-FILE path => throwKeyedMsg("S2IL0003",[namestring args])
+    null PROBE_-FILE path => throwKeyedMsg("S2IL0003",[namestring args])
 
     SETQ(_/EDITFILE, path)
     updateSourceFiles path
@@ -1180,7 +1180,7 @@ displayProperties(option,l) ==
             displayMacro v
         sayMSG '"   none"
       propsSeen:= nil
-      for [prop,:val] in pl | ^MEMQ(prop,propsSeen) and val repeat
+      for [prop,:val] in pl | not MEMQ(prop,propsSeen) and val repeat
         prop in '(alias generatedCode IS_-GENSYM mapBody localVars) =>
           nil
         prop = 'condition =>
@@ -1689,7 +1689,7 @@ writeInputLines(fn,initial) ==
       while n > maxn repeat
         -- search backwards for a blank
         done := nil
-        for j in 1..maxn while ^done repeat
+        for j in 1..maxn while not done repeat
           k := 1 + maxn - j
           MEMQ(vec.k,breakChars) =>
             svec := STRCONC(SUBSTRING(vec,0,k+1),UNDERBAR)
@@ -1698,7 +1698,7 @@ writeInputLines(fn,initial) ==
             vec := SUBSTRING(vec,k+1,NIL)
             n := SIZE vec
         -- in case we can't find a breaking point
-        if ^done then n := 0
+        if not done then n := 0
       lineList := [vec,:lineList]
   file := histInputFileName(fn)
   histFileErase file