8 files changed, 13 insertions, 13 deletions
diff --git a/src/interp/c-doc.boot b/src/interp/c-doc.boot
index bb92d222..5ccc98ce 100644
--- a/src/interp/c-doc.boot
+++ b/src/interp/c-doc.boot
@@ -136,7 +136,7 @@ finalizeDocumentation() ==
   if u := [sig for [sig,:doc] in docList | null doc] then
     for y in u repeat
       y = 'constructor => noHeading := true
-      y is [x,b] and b is [='attribute,:r] =>
+      y is [x,b] and b is ['attribute,:r] =>
         attributes := [[x,:r],:attributes]
       signatures := [y,:signatures]
     name := first $lisplibForm
diff --git a/src/interp/clam.boot b/src/interp/clam.boot
index 5d1d5771..2adb438b 100644
--- a/src/interp/clam.boot
+++ b/src/interp/clam.boot
@@ -380,7 +380,7 @@ reportCircularCacheStats(fn,n) ==
   infovec:= GETL(fn,'cacheInfo)
   circList:= eval infovec.cacheName
   numberUsed :=
-    +/[1 for i in 1..n for x in circList while x isnt [='_$failed,:.]]
+    +/[1 for i in 1..n for x in circList while x isnt ['_$failed,:.]]
   sayBrightly ["%b",fn,"%d","has","%b",numberUsed,"%d","/ ",n," values cached"]
   displayCacheFrequency mkCircularCountAlist(circList,n)
   TERPRI()
diff --git a/src/interp/format.boot b/src/interp/format.boot
index f322e9a0..90030763 100644
--- a/src/interp/format.boot
+++ b/src/interp/format.boot
@@ -460,7 +460,7 @@ formArguments2String(argl,ml) == [fn(x,m) for x in argl for m in ml] where
   fn(x,m) ==
     x=$EmptyMode or x=$quadSymbol => specialChar 'quad
     string?(x) or IDENTP(x) => x
-    x is [ ='_:,:.] => form2String1 x
+    x is ['_:,:.] => form2String1 x
     isValidType(m) and cons?(m) and
       (getConstructorKindFromDB first(m) = "domain") =>
         (x' := coerceInteractive(objNewWrap(x,m),$OutputForm)) =>
@@ -494,14 +494,14 @@ formatJoinKey(r,key) ==
   key = 'mkCategory =>
     r is [opPart,catPart,:.] =>
       opString :=
-        opPart is [='LIST,:u] =>
+        opPart is ['LIST,:u] =>
           "append"/[concat("%l",formatOpSignature(op,sig),formatIf pred)
-            for [='QUOTE,[[op,sig],pred]] in u]
+            for ['QUOTE,[[op,sig],pred]] in u]
         nil
       catString :=
-        catPart is [='LIST,:u] =>
+        catPart is ['LIST,:u] =>
           "append"/[concat("%l",'" ",form2StringLocal con,formatIf pred)
-            for [='QUOTE,[con,pred]] in u]
+            for ['QUOTE,[con,pred]] in u]
         nil
       concat(opString,catString)
     '"?? unknown mkCategory format ??"
diff --git a/src/interp/i-code.boot b/src/interp/i-code.boot
index 4e27a17a..5794e271 100644
--- a/src/interp/i-code.boot
+++ b/src/interp/i-code.boot
@@ -84,7 +84,7 @@ intCodeGenCOERCE(triple,t2) ==
   t2 = '(Any) => objNew(['CONS,MKQ t1,val],t2)
 
   -- optimize coerces from Any
-  (t1 = '(Any)) and (val is [ ='CONS,t1',val']) =>
+  (t1 = '(Any)) and (val is ['CONS,t1',val']) =>
     intCodeGenCOERCE(objNew(val',removeQuote t1'),t2)
 
   -- specially handle coerce from Equation to Boolean
diff --git a/src/interp/i-coerce.boot b/src/interp/i-coerce.boot
index de699da9..a891b567 100644
--- a/src/interp/i-coerce.boot
+++ b/src/interp/i-coerce.boot
@@ -547,7 +547,7 @@ canCoerceUnion(t1,t2) ==
         for ud1 in unionDoms1]
     or/[canCoerce(t1,ud) for ud in unionDoms2]
   -- next, a little lie
-  t1 is ['Union,d1, ='"failed"] and t2 = d1 => true
+  t1 is ['Union,d1,'"failed"] and t2 = d1 => true
   isUnion1 =>
     and/[canCoerce(ud,t2) for ud in unionDoms1]
   keyedSystemError("S2GE0016",['"canCoerceUnion",
diff --git a/src/interp/i-eval.boot b/src/interp/i-eval.boot
index ba779085..509d247d 100644
--- a/src/interp/i-eval.boot
+++ b/src/interp/i-eval.boot
@@ -216,7 +216,7 @@ makeOrdinal i ==
 
 evaluateSignature sig ==
   -- calls evaluateType on a signature
-  sig is [ ='SIGNATURE,fun,sigl] =>
+  sig is ['SIGNATURE,fun,sigl] =>
     ['SIGNATURE,fun,
       [(t = '_$ => t; evaluateType(t)) for t in sigl]]
   sig
diff --git a/src/interp/i-output.boot b/src/interp/i-output.boot
index a05df223..4801bbf1 100644
--- a/src/interp/i-output.boot
+++ b/src/interp/i-output.boot
@@ -568,11 +568,11 @@ outputTran x ==
     ["+",a,["-",b]]
 
   -- next stuff translates exp(log(foo4)/foo3) into ROOT(foo4,foo3)
-  (x is ["**", ='"%e",foo1]) and (foo1 is [ ='"/",foo2, foo3]) and
+  (x is ["**",'"%e",foo1]) and (foo1 is ['"/",foo2, foo3]) and
     integer?(foo3) and (foo2 is ['log,foo4]) =>
        foo3 = 2 => ['ROOT,outputTran foo4]
        ['ROOT,outputTran foo4,outputTran foo3]
-  (x is ["**", ='"%e",foo1]) and (foo1 is [op',foo2, foo3]) and
+  (x is ["**",'"%e",foo1]) and (foo1 is [op',foo2, foo3]) and
     (op' = '"*") and ((foo3 is ['log,foo4]) or (foo2 is ['log,foo4])) =>
        foo3 is ['log,foo4] =>
          ["**", outputTran foo4, outputTran foo2]
diff --git a/src/interp/nruncomp.boot b/src/interp/nruncomp.boot
index a3427d0f..92ccc0f7 100644
--- a/src/interp/nruncomp.boot
+++ b/src/interp/nruncomp.boot
@@ -657,7 +657,7 @@ deepChaseInferences(pred,$e) ==
 
 vectorLocation(op,sig) ==
   u := or/[i for i in 1.. for u in $NRTdeltaList
-        | u is [=op,[='$,: xsig],:.] and sig=NRTsubstDelta(xsig) ]
+        | u is [=op,['$,: xsig],:.] and sig=NRTsubstDelta(xsig) ]
   u => $NRTdeltaLength - u + $NRTbase 
   nil    -- this signals that calls should be forwarded