aboutsummaryrefslogtreecommitdiff
path: root/src/interp
diff options
context:
space:
mode:
authordos-reis <gdr@axiomatics.org>2010-05-07 15:16:57 +0000
committerdos-reis <gdr@axiomatics.org>2010-05-07 15:16:57 +0000
commitc9c4d89aa7cc261a19ac29c7d74a43f1369f1773 (patch)
treef4ec2476d730b9c24cb0930a13c087666f16cbe3 /src/interp
parent57cc9e7ab4606e72a6a12fd73fc4cc3cf0e10a83 (diff)
downloadopen-axiom-c9c4d89aa7cc261a19ac29c7d74a43f1369f1773.tar.gz
* interp/as.boot: Miscellaneous cleanup.
* interp/ax.boot: Likewise. * interp/br-con.boot: Likewise. * interp/br-prof.boot: Likewise. * interp/br-saturn.boot: Likewise. * interp/br-search.boot: Likewise. * interp/br-util.boot: Likewise. * interp/c-doc.boot: Likewise. * interp/clammed.boot: Likewise. * interp/compiler.boot: Likewise. * interp/database.boot: Likewise. * interp/cstream.boot: Likewise. * interp/define.boot: Likewise. * interp/diagnostics.boot: Likewise. * interp/format.boot: Likewise. * interp/fortcall.boot: Likewise. * interp/functor.boot: Likewise. * interp/g-boot.boot: Likewise. * interp/g-opt.boot: Likewise. * interp/g-util.boot: Likewise. * interp/ht-util.boot: Likewise. * interp/htsetvar.boot: Likewise. * interp/i-analy.boot: Likewise. * interp/i-coerce.boot: Likewise. * interp/i-funsel.boot: Likewise. * interp/i-intern.boot: Likewise. * interp/i-map.boot: Likewise. * interp/i-output.boot: Likewise. * interp/i-spec1.boot: Likewise. * interp/i-syscmd.boot: Likewise. * interp/interop.boot: Likewise. * interp/lisplib.boot: Likewise. * interp/mark.boot: Likewise. * interp/msgdb.boot: Likewise. * interp/newfort.boot: Likewise. * interp/nrunfast.boot: Likewise. * interp/nrungo.boot: Likewise. * interp/pathname.boot: Likewise. * interp/pf2atree.boot: Likewise. * interp/pf2sex.boot: Likewise. * interp/pspad1.boot: Likewise. * interp/record.boot: Likewise. * interp/setvars.boot: Likewise. * interp/trace.boot: Likewise. * interp/wi1.boot: Likewise. * interp/wi2.boot: Likewise.
Diffstat (limited to 'src/interp')
-rw-r--r--src/interp/as.boot4
-rw-r--r--src/interp/ax.boot10
-rw-r--r--src/interp/br-con.boot4
-rw-r--r--src/interp/br-prof.boot4
-rw-r--r--src/interp/br-saturn.boot2
-rw-r--r--src/interp/br-search.boot2
-rw-r--r--src/interp/br-util.boot2
-rw-r--r--src/interp/c-doc.boot2
-rw-r--r--src/interp/clammed.boot2
-rw-r--r--src/interp/compiler.boot2
-rw-r--r--src/interp/cstream.boot4
-rw-r--r--src/interp/database.boot2
-rw-r--r--src/interp/define.boot6
-rw-r--r--src/interp/diagnostics.boot2
-rw-r--r--src/interp/format.boot8
-rw-r--r--src/interp/fortcall.boot2
-rw-r--r--src/interp/functor.boot14
-rw-r--r--src/interp/g-boot.boot62
-rw-r--r--src/interp/g-opt.boot2
-rw-r--r--src/interp/g-util.boot16
-rw-r--r--src/interp/ht-util.boot16
-rw-r--r--src/interp/htsetvar.boot2
-rw-r--r--src/interp/i-analy.boot2
-rw-r--r--src/interp/i-coerce.boot24
-rw-r--r--src/interp/i-funsel.boot10
-rw-r--r--src/interp/i-intern.boot2
-rw-r--r--src/interp/i-map.boot12
-rw-r--r--src/interp/i-output.boot12
-rw-r--r--src/interp/i-spec1.boot6
-rw-r--r--src/interp/i-syscmd.boot14
-rw-r--r--src/interp/interop.boot4
-rw-r--r--src/interp/lisplib.boot8
-rw-r--r--src/interp/mark.boot6
-rw-r--r--src/interp/msgdb.boot22
-rw-r--r--src/interp/newfort.boot2
-rw-r--r--src/interp/nrunfast.boot6
-rw-r--r--src/interp/nrungo.boot8
-rw-r--r--src/interp/pathname.boot4
-rw-r--r--src/interp/pf2atree.boot4
-rw-r--r--src/interp/pf2sex.boot4
-rw-r--r--src/interp/pspad1.boot8
-rw-r--r--src/interp/record.boot4
-rw-r--r--src/interp/setvars.boot2
-rw-r--r--src/interp/trace.boot2
-rw-r--r--src/interp/wi1.boot2
-rw-r--r--src/interp/wi2.boot8
46 files changed, 173 insertions, 173 deletions
diff --git a/src/interp/as.boot b/src/interp/as.boot
index cfb7ce97..114696ba 100644
--- a/src/interp/as.boot
+++ b/src/interp/as.boot
@@ -138,8 +138,8 @@ asMakeAlist con ==
record := HGET($conHash,con)
[form,sig,predlist,kind,exposure,comments,typeCode,:filename] := first record
--TTT in case we put the wrong thing in for niladic catgrs
---if ATOM(form) and kind='category then form:=[form]
- if ATOM(form) then form:=[form]
+--if atom(form) and kind='category then form:=[form]
+ if atom(form) then form:=[form]
kind = 'function => asMakeAlistForFunction con
abb := asyAbbreviation(con,#(KDR sig))
if null KDR form then PUT(opOf form,'NILADIC,'T)
diff --git a/src/interp/ax.boot b/src/interp/ax.boot
index 57831a7c..2effa6b6 100644
--- a/src/interp/ax.boot
+++ b/src/interp/ax.boot
@@ -109,7 +109,7 @@ modemapToAx(modemap) ==
categoryInfo := getConstructorCategoryFromDB constructor
categoryInfo := SUBLISLIS($FormalMapVariableList, $TriangleVariableList,
categoryInfo)
- NULL args =>
+ null args =>
['Define,['Declare, constructor,'Category],
addDefaults(constructor, axFormatType categoryInfo)]
['Define,
@@ -118,7 +118,7 @@ modemapToAx(modemap) ==
['Label, constructor,
addDefaults(constructor, axFormatType categoryInfo)]]]
constructor in $extendedDomains =>
- NULL args =>
+ null args =>
['Extend, ['Define, ['Declare, constructor, resultType],
['Add, ['PretendTo, ['Add, [], []], resultType], []]]]
conscat := INTERN(STRCONC(SYMBOL_-NAME(constructor), "ExtendCategory"),"BOOT")
@@ -137,7 +137,7 @@ modemapToAx(modemap) ==
['Lambda, argdecls, rtype,
['Label, constructor,
['Add, ['PretendTo, ['Add, [], []], rtype], []]]]]]]
- NULL args =>
+ null args =>
['Export, ['Declare, constructor, resultType],[],[]]
-- if resultType is ['With,a,b] then
-- if not(b is ['Sequence,:withseq]) then withseq := [b]
@@ -242,7 +242,7 @@ axFormatType(typeform) ==
axFormatOpList ops == ['Sequence,:[axFormatOp o for o in ops]]
axOpTran(name) ==
- ATOM name =>
+ atom name =>
name = 'elt => 'apply
name = 'setelt => 'set_!
name = 'SEGMENT => ".."
@@ -287,7 +287,7 @@ axFormatCondOp op ==
axFormatOp op ==
op is ['IF, pred, trueops, falseops] =>
- NULL(trueops) or trueops='%noBranch =>
+ null(trueops) or trueops='%noBranch =>
['If, ['Test,['Not, axFormatPred pred]],
axFormatCondOp falseops,
axFormatCondOp trueops]
diff --git a/src/interp/br-con.boot b/src/interp/br-con.boot
index b4360039..7560ac0c 100644
--- a/src/interp/br-con.boot
+++ b/src/interp/br-con.boot
@@ -707,7 +707,7 @@ mkConform(kind,name,argString) ==
sayBrightlyNT '"Won't parse: "
pp form
systemError '"Keywords in argument list?"
- ATOM parse => [parse]
+ atom parse => [parse]
parse
[INTERN name,:rest ncParseFromString STRCONC(char 'd,argString)] --& case
@@ -885,7 +885,7 @@ dbGetDocTable(op,$sig,docTable,$which,aux) == main where
or/[gn x for x in HGET(docTable,op)]
gn u == --u is [origin,entry1,...,:code]
$conform := first u --origin
- if ATOM $conform then $conform := [$conform]
+ if atom $conform then $conform := [$conform]
code := LASTATOM u --optional topic code
comments := or/[p for entry in rest u | p := hn entry] or return nil
[$conform,first comments,:code]
diff --git a/src/interp/br-prof.boot b/src/interp/br-prof.boot
index 32979507..b67bb4a4 100644
--- a/src/interp/br-prof.boot
+++ b/src/interp/br-prof.boot
@@ -1,6 +1,6 @@
-- Copyright (c) 1991-2002, The Numerical Algorithms Group Ltd.
-- All rights reserved.
--- Copyright (C) 2007-2009, Gabriel Dos Reis.
+-- Copyright (C) 2007-2010, Gabriel Dos Reis.
-- All rights reserved.
--
-- Redistribution and use in source and binary forms, with or without
@@ -247,7 +247,7 @@ hasNewInfoAlist conname ==
(u := getInfoAlist conname) and hasNewInfoText u
hasNewInfoText u ==
- and/[ATOM op and "and"/[item is [sig,:alist] and
+ and/[atom op and "and"/[item is [sig,:alist] and
null sig or null atom sig and null atom alist for item in items] for [op,:items] in u]
getInfoAlist conname ==
diff --git a/src/interp/br-saturn.boot b/src/interp/br-saturn.boot
index 83933fd5..e5bcb8b6 100644
--- a/src/interp/br-saturn.boot
+++ b/src/interp/br-saturn.boot
@@ -556,7 +556,7 @@ htpAddToPageDescription(htPage, pageDescrip) ==
htProcessBcStrings strings ==
for [numChars, default, stringName, spadType, :filter] in strings repeat
mess2 := '""
- if NULL LASSOC(stringName, htpInputAreaAlist page()) then
+ if null LASSOC(stringName, htpInputAreaAlist page()) then
setUpDefault(stringName, ['string, default, spadType, filter])
if htpLabelErrorMsg(page(), stringName) then
iht ['"\centerline{{\em ", htpLabelErrorMsg(page(), stringName), '"}}"]
diff --git a/src/interp/br-search.boot b/src/interp/br-search.boot
index 0fefccb3..18448cb4 100644
--- a/src/interp/br-search.boot
+++ b/src/interp/br-search.boot
@@ -340,7 +340,7 @@ aPage(a,:b) == --called by \spadatt{a}
arg := IFCAR b or a
s := pmParseFromString STRINGIMAGE arg
searchOn :=
- ATOM s => s
+ atom s => s
IFCAR s
$attributeArgs : local := IFCAR IFCDR s
aSearch searchOn
diff --git a/src/interp/br-util.boot b/src/interp/br-util.boot
index 0a6c06d4..2f976504 100644
--- a/src/interp/br-util.boot
+++ b/src/interp/br-util.boot
@@ -184,7 +184,7 @@ unMkEvalable u ==
lisp2HT u == ['"_'",:fn u] where fn u ==
IDENTP u => escapeSpecialIds PNAME u
string? u => escapeString u
- ATOM u => systemError()
+ atom u => systemError()
['"_(",:"append"/[fn x for x in u],'")"]
args2HtString(x,:options) ==
diff --git a/src/interp/c-doc.boot b/src/interp/c-doc.boot
index bee36a7f..a2423913 100644
--- a/src/interp/c-doc.boot
+++ b/src/interp/c-doc.boot
@@ -107,7 +107,7 @@ recordDocumentation(key,lineno) ==
recordHeaderDocumentation lineno ==
if $maxSignatureLineNumber = 0 then
al := [p for (p := [n,:u]) in $COMBLOCKLIST
- | NULL n or NULL lineno or n < lineno]
+ | null n or null lineno or n < lineno]
$COMBLOCKLIST := SETDIFFERENCE($COMBLOCKLIST,al)
$headerDocumentation := ASSOCRIGHT al
if $headerDocumentation then $maxSignatureLineNumber := 1 --see postDef
diff --git a/src/interp/clammed.boot b/src/interp/clammed.boot
index 9cf3d5c4..a1798e3a 100644
--- a/src/interp/clammed.boot
+++ b/src/interp/clammed.boot
@@ -164,7 +164,7 @@ isLegitimateMode(t,hasPolyMode,polyVarList) ==
null t => true -- a terminating condition with underDomainOf
t = $EmptyMode => true
string? t => true
- ATOM t => false
+ atom t => false
badDoubles := CONS($QuotientField, '(Gaussian Complex Polynomial Expression))
t is [T1, [T2, :.]] and T1 = T2 and member(T1, badDoubles) => false
diff --git a/src/interp/compiler.boot b/src/interp/compiler.boot
index bb50ac19..fdc81fe7 100644
--- a/src/interp/compiler.boot
+++ b/src/interp/compiler.boot
@@ -257,7 +257,7 @@ applyMapping([op,:argl],m,e,ml) ==
-- if argl'="failed" then return nil
-- mappingHasCategoryTarget => convert([form,first ml,e],m)
-- form:=
--- not MEMQ(op,$formalArgList) and ATOM op =>
+-- not MEMQ(op,$formalArgList) and atom op =>
-- [op',:argl',"$"] where
-- op':= INTERN STRCONC(STRINGIMAGE $prefix,";",STRINGIMAGE op)
-- ["%Call",["applyFun",op],:argl']
diff --git a/src/interp/cstream.boot b/src/interp/cstream.boot
index 5ada55f1..941faef6 100644
--- a/src/interp/cstream.boot
+++ b/src/interp/cstream.boot
@@ -1,6 +1,6 @@
-- Copyright (c) 1991-2002, The Numerical ALgorithms Group Ltd.
-- All rights reserved.
--- Copyright (C) 2007-2009, Gabriel Dos Reis.
+-- Copyright (C) 2007-2010, Gabriel Dos Reis.
-- All rights reserved.
--
-- Redistribution and use in source and binary forms, with or without
@@ -56,7 +56,7 @@ incRgen s==Delay(function incRgen1,[s])
incRgen1(:z)==
[s]:=z
a:=shoeread_-line s
- if NULL a
+ if null a
then (CLOSE s;StreamNil)
else cons(a,incRgen s)
diff --git a/src/interp/database.boot b/src/interp/database.boot
index f30bceec..93c1b632 100644
--- a/src/interp/database.boot
+++ b/src/interp/database.boot
@@ -749,7 +749,7 @@ dropPrefix(fn) ==
--++ x := dropLeadingBlanks x
--++ -- should be two tokens on the line
--++ p := STRPOS('" ",x,1,NIL)
---++ NULL p =>
+--++ null p =>
--++ throwKeyedMsg("S2IZ0069B",[namestring egFile,x])
--++ n := object2Identifier SUBSTRING(x,0,p)
--++ x := dropLeadingBlanks SUBSTRING(x,p+1,NIL)
diff --git a/src/interp/define.boot b/src/interp/define.boot
index bdaf06d6..e1fe1ebf 100644
--- a/src/interp/define.boot
+++ b/src/interp/define.boot
@@ -1537,8 +1537,8 @@ doItIf(item is [.,p,x,y],$predl,$e) ==
-- of functorLocalParameters that were added during the
-- conditional compilation
nils:=ans:=[]
- for u in flp1 repeat -- is =u form always an ATOM?
- if ATOM u or (or/[v is [.,=u,:.] for v in $getDomainCode])
+ for u in flp1 repeat -- is =u form always an atom?
+ if atom u or (or/[v is [.,=u,:.] for v in $getDomainCode])
then
nils:=[u,:nils]
else
@@ -1622,7 +1622,7 @@ DomainSubstitutionFunction(parameters,body) ==
if parameters then
(body:= Subst(parameters,body)) where
Subst(parameters,body) ==
- ATOM body =>
+ atom body =>
MEMQ(body,parameters) => MKQ body
body
member(body,parameters) =>
diff --git a/src/interp/diagnostics.boot b/src/interp/diagnostics.boot
index 600244f8..21e15092 100644
--- a/src/interp/diagnostics.boot
+++ b/src/interp/diagnostics.boot
@@ -83,7 +83,7 @@ MESSAGEPRINT_-1 x ==
x = "%l" or x = '"%l" => TERPRI()
string? x => PRINC x
IDENTP x => PRINC x
- ATOM x => PRINC x
+ atom x => PRINC x
PRINC '"("
MESSAGEPRINT_-1 car x
MESSAGEPRINT_-2 cdr x
diff --git a/src/interp/format.boot b/src/interp/format.boot
index f2f45437..4dce8583 100644
--- a/src/interp/format.boot
+++ b/src/interp/format.boot
@@ -385,7 +385,7 @@ constructorName con ==
con
form2String1 u ==
- ATOM u =>
+ atom u =>
u=$EmptyMode or u=$quadSymbol => formWrapId specialChar 'quad
IDENTP u =>
constructor? u => app2StringWrap(formWrapId u, [u])
@@ -544,7 +544,7 @@ tuple2String argl ==
if member(string, '("failed" "nil" "prime" "sqfr" "irred"))
then string := STRCONC('"_"",string,'"_"")
else string :=
- ATOM string => object2String string
+ atom string => object2String string
[f x for x in string]
for x in rest argl repeat
if member(x,'("failed" "nil" "prime" "sqfr" "irred")) then
@@ -553,7 +553,7 @@ tuple2String argl ==
string
where
f x ==
- ATOM x => object2String x
+ atom x => object2String x
-- [f first x,:f rest x]
[f y for y in x]
@@ -733,7 +733,7 @@ mathObject2String x ==
object2String x ==
string? x => x
IDENTP x => PNAME x
- NULL x => '""
+ null x => '""
cons? x => STRCONC(object2String first x, object2String rest x)
WRITE_-TO_-STRING x
diff --git a/src/interp/fortcall.boot b/src/interp/fortcall.boot
index 52179838..7c4ba4e4 100644
--- a/src/interp/fortcall.boot
+++ b/src/interp/fortcall.boot
@@ -619,7 +619,7 @@ writeData(tmpFile,indata) ==
-- the two Boolean values
v = "T" =>
xdrWrite(xstr,1)
- NULL v =>
+ null v =>
xdrWrite(xstr,0)
-- characters
string? v =>
diff --git a/src/interp/functor.boot b/src/interp/functor.boot
index 13dc8c96..bd435cab 100644
--- a/src/interp/functor.boot
+++ b/src/interp/functor.boot
@@ -192,8 +192,8 @@ CategoriesFromGDC x ==
x is ['QUOTE,a] and a is [b] => [a]
compCategories u ==
- ATOM u => u
- not ATOM first u =>
+ atom u => u
+ not atom first u =>
error ['"compCategories: need an atom in operator position", first u]
first u = "Record" =>
-- There is no modemap property for these guys so do it by hand.
@@ -203,7 +203,7 @@ compCategories u ==
[first u, :[compCategories1(a,'(SetCategory)) for a in rest u]]
u is ['SubDomain,D,.] => compCategories D
v:=get(first u,'modemap,$e)
- ATOM v =>
+ atom v =>
error ['"compCategories: could not get proper modemap for operator",first u]
if rest v then
sayBrightly ['"compCategories: ", '%b, '"Warning", '%d,
@@ -211,7 +211,7 @@ compCategories u ==
pp rest v
-- the next line "fixes" a bad modemap which sometimes appears ....
--
- if rest v and NULL CAAAR v then v:=rest v
+ if rest v and null CAAAR v then v:=rest v
v:= CDDAAR v
v:=resolvePatternVars(v, rest u) -- replaces #n forms
-- select the modemap part of the first entry, and skip result etc.
@@ -220,7 +220,7 @@ compCategories u ==
compCategories1(u,v) ==
-- v is the mode of u
- ATOM u => u
+ atom u => u
isCategoryForm(v,$e) => compCategories u
[c,:.] := comp(macroExpand(u,$e),v,$e) => c
error 'compCategories1
@@ -325,7 +325,7 @@ setVector12 args ==
freeof($domainShell.4,args1) => nil
[['SetDomainSlots124,'$,['QUOTE,args1],['LIST,:args2]]]
where freeof(a,b) ==
- ATOM a => NULL MEMQ(a,b)
+ atom a => null MEMQ(a,b)
freeof(first a,b) => freeof(rest a,b)
false
@@ -528,7 +528,7 @@ DescendCodeAdd1(base,flag,target,formalArgs,formalArgModes) ==
(for u in code repeat
if update(u,copyvec,[]) then code:=delete(u,code))
where update(code,copyvec,sofar) ==
- ATOM code =>nil
+ atom code =>nil
QCAR code in '(getShellEntry ELT QREFELT) =>
copyvec.(third code):=union(copyvec.(third code), sofar)
true
diff --git a/src/interp/g-boot.boot b/src/interp/g-boot.boot
index a38ad917..77d99e9e 100644
--- a/src/interp/g-boot.boot
+++ b/src/interp/g-boot.boot
@@ -52,7 +52,7 @@ $isGenVarCounter := 1
$LET := 'SPADLET -- LET is a standard macro in Common Lisp
nakedEXIT? c ==
- ATOM c => NIL
+ atom c => NIL
[a,:d] := c
IDENTP a =>
a = 'EXIT => true
@@ -62,7 +62,7 @@ nakedEXIT? c ==
nakedEXIT?(a) or nakedEXIT?(d)
mergeableCOND x ==
- ATOM(x) or x isnt ['COND,:cls] => NIL
+ atom(x) or x isnt ['COND,:cls] => NIL
-- to be mergeable, every result must be an EXIT and the last
-- predicate must be a pair
ok := true
@@ -70,8 +70,8 @@ mergeableCOND x ==
[[p,:r],:cls] := cls
cons? QCDR r => ok := NIL
first(r) isnt ['EXIT,.] => ok := NIL
- NULL(cls) and ATOM(p) => ok := NIL
- NULL(cls) and (p = ''T) => ok := NIL
+ null(cls) and atom(p) => ok := NIL
+ null(cls) and (p = ''T) => ok := NIL
ok
mergeCONDsWithEXITs l ==
@@ -79,7 +79,7 @@ mergeCONDsWithEXITs l ==
-- (COND (foo (EXIT a)))
-- (COND (bar (EXIT b)))
-- into one COND
- NULL l => NIL
+ null l => NIL
atom l => l
atom QCDR l => l
a := QCAR l
@@ -111,14 +111,14 @@ removeEXITFromCOND c ==
-- c is '(COND ...)
z := NIL
for cl in rest c repeat
- ATOM cl => z := CONS(cl,z)
+ atom cl => z := CONS(cl,z)
cond := QCAR cl
length1? cl =>
cond is ["EXIT",:.] => z := CONS(QCDR cond,z)
z := CONS(cl,z)
cl' := reverse cl
lastSE := QCAR cl'
- ATOM lastSE => z := CONS(cl,z)
+ atom lastSE => z := CONS(cl,z)
lastSE is ["EXIT",:.] =>
z := CONS(reverse CONS(second lastSE,rest cl'),z)
z := CONS(cl,z)
@@ -149,7 +149,7 @@ bootIF c ==
bootCOND c ==
-- handles COND expressions: c is ['COND,:.]
cls := rest c
- NULL cls => NIL
+ null cls => NIL
cls is [[''T,r],:.] => r
[:icls,fcls] := cls
ncls := NIL
@@ -197,17 +197,17 @@ tryToRemoveSEQ e ==
bootAbsorbSEQsAndPROGNs e ==
-- assume e is a list from a SEQ or a PROGN
- ATOM e => e
+ atom e => e
[:cls,lcl] := e
g := [:flatten(f) for f in cls] where
flatten x ==
- NULL x => NIL
+ null x => NIL
IDENTP x =>
MEMQ(x,$labelsForGO) => [x]
NIL
- ATOM x => NIL
+ atom x => NIL
x is ['PROGN,:pcls,lpcl] =>
- ATOM lpcl => pcls
+ atom lpcl => pcls
rest x
-- next usually comes about from if foo then bar := zap
x is ['COND,y,[''T,'NIL]] => [['COND,y]]
@@ -240,7 +240,7 @@ bootSEQ e ==
bootPROGN e ==
e := ['PROGN,:bootAbsorbSEQsAndPROGNs rest e]
[.,:cls] := e
- NULL cls => NIL
+ null cls => NIL
cls is [body] => body
e
@@ -277,12 +277,12 @@ defLET1(lhs,rhs) ==
defLET2(lhs,rhs) ==
IDENTP lhs => defLetForm(lhs,rhs)
- NULL lhs => NIL
+ null lhs => NIL
lhs is ['FLUID,id] => defLetForm(lhs,rhs)
lhs is [=$LET,a,b] =>
a := defLET2(a,rhs)
null (b := defLET2(b,rhs)) => a
- ATOM b => [a,b]
+ atom b => [a,b]
cons? QCAR b => CONS(a,b)
[a,b]
lhs is ['CONS,var1,var2] =>
@@ -290,11 +290,11 @@ defLET2(lhs,rhs) ==
defLET2(var2,addCARorCDR('CDR,rhs))
l1 := defLET2(var1,addCARorCDR('CAR,rhs))
var2 in '(NIL _.) => l1
- if cons? l1 and ATOM first l1 then l1 := cons(l1,nil)
+ if cons? l1 and atom first l1 then l1 := cons(l1,nil)
IDENTP var2 =>
[:l1,defLetForm(var2,addCARorCDR('CDR,rhs))]
l2 := defLET2(var2,addCARorCDR('CDR,rhs))
- if cons? l2 and ATOM first l2 then l2 := cons(l2,nil)
+ if cons? l2 and atom first l2 then l2 := cons(l2,nil)
append(l1,l2)
lhs is ['APPEND,var1,var2] =>
patrev := defISReverse(var2,var1)
@@ -302,7 +302,7 @@ defLET2(lhs,rhs) ==
g := INTERN STRCONC('"LETTMP#",STRINGIMAGE $letGenVarCounter)
$letGenVarCounter := $letGenVarCounter + 1
l2 := defLET2(patrev,g)
- if cons? l2 and ATOM first l2 then l2 := cons(l2,nil)
+ if cons? l2 and atom first l2 then l2 := cons(l2,nil)
var1 = "." => [[$LET,g,rev],:l2]
last l2 is [=$LET, =var1, val1] =>
[[$LET,g,rev],:reverse rest reverse l2,
@@ -343,20 +343,20 @@ defISReverse(x,a) ==
-- reverses forms coming from APPENDs in patterns
-- pretty much just a translation of DEF-IS-REV
x is ['CONS,:.] =>
- NULL third x => ['CONS,second x, a]
+ null third x => ['CONS,second x, a]
y := defISReverse(third x, NIL)
RPLAC(third y,['CONS,second x,a])
y
ERRHUH()
defIS1(lhs,rhs) ==
- NULL rhs =>
+ null rhs =>
['NULL,lhs]
string? rhs =>
['EQ,lhs,['QUOTE,INTERN rhs]]
NUMBERP rhs =>
['EQUAL,lhs,rhs]
- ATOM rhs =>
+ atom rhs =>
['PROGN,defLetForm(rhs,lhs),''T]
rhs is ['QUOTE,a] =>
IDENTP a => ['EQ,lhs,rhs]
@@ -374,12 +374,12 @@ defIS1(lhs,rhs) ==
MKPROGN [[$LET,g,lhs],defIS1(g,rhs)]
rhs is ['CONS,a,b] =>
a = "." =>
- NULL b =>
+ null b =>
['AND,['CONSP,lhs],
['EQ,['QCDR,lhs],'NIL]]
['AND,['CONSP,lhs],
defIS1(['QCDR,lhs],b)]
- NULL b =>
+ null b =>
['AND,['CONSP,lhs],
['EQ,['QCDR,lhs],'NIL],_
defIS1(['QCAR,lhs],a)]
@@ -396,7 +396,7 @@ defIS1(lhs,rhs) ==
$isGenVarCounter := $isGenVarCounter + 1
rev := ['AND,['CONSP,lhs],['PROGN,[$LET,g,['REVERSE,lhs]],''T]]
l2 := defIS1(g,patrev)
- if cons? l2 and ATOM first l2 then l2 := cons(l2,nil)
+ if cons? l2 and atom first l2 then l2 := cons(l2,nil)
a = "." => ['AND,rev,:l2]
['AND,rev,:l2,['PROGN,defLetForm(a,['NREVERSE,a]),''T]]
SAY '"WARNING (defIS1): possibly bad IS code being generated"
@@ -412,8 +412,8 @@ defIS(lhs,rhs) ==
bootOR e ==
-- flatten any contained ORs.
cls := rest e
- NULL cls => NIL
- NULL rest cls => first cls
+ null cls => NIL
+ null rest cls => first cls
ncls := [:flatten(c) for c in cls] where
flatten x ==
x is ['OR,:.] => QCDR x
@@ -423,8 +423,8 @@ bootOR e ==
bootAND e ==
-- flatten any contained ANDs.
cls := rest e
- NULL cls => 'T
- NULL rest cls => first cls
+ null cls => 'T
+ null rest cls => first cls
ncls := [:flatten(c) for c in cls] where
flatten x ==
x is ['AND,:.] => QCDR x
@@ -434,7 +434,7 @@ bootAND e ==
--% Main Transformation Functions
bootLabelsForGO e ==
- ATOM e => NIL
+ atom e => NIL
[head,:tail] := e
IDENTP head =>
head = 'GO => $labelsForGO := CONS(first tail,$labelsForGO)
@@ -444,7 +444,7 @@ bootLabelsForGO e ==
bootLabelsForGO tail
bootTran e ==
- ATOM e => e
+ atom e => e
[head,:tail] := e
head = 'QUOTE => e
tail := [bootTran t for t in tail]
@@ -460,7 +460,7 @@ bootTran e ==
[bootTran head,:QCDR e]
bootTransform e ==
---NULL $BOOT => e
+--null $BOOT => e
$labelsForGO : local := NIL
bootLabelsForGO e
bootTran e
diff --git a/src/interp/g-opt.boot b/src/interp/g-opt.boot
index 3b9976f2..c7dba6e2 100644
--- a/src/interp/g-opt.boot
+++ b/src/interp/g-opt.boot
@@ -235,7 +235,7 @@ optSpecialCall(x,y,n) ==
emitIndirectCall(fn,a,x)
compileTimeBindingOf u ==
- NULL(name:= BPINAME u) => keyedSystemError("S2OO0001",[u])
+ null(name:= BPINAME u) => keyedSystemError("S2OO0001",[u])
name="Undef" => MOAN "optimiser found unknown function"
name
diff --git a/src/interp/g-util.boot b/src/interp/g-util.boot
index 97e4e45c..cb4099c1 100644
--- a/src/interp/g-util.boot
+++ b/src/interp/g-util.boot
@@ -309,7 +309,7 @@ getTypeOfSyntax t ==
-- Convert an arbitrary lisp object to canonical boolean.
bool: %Thing -> %Boolean
bool x ==
- NULL NULL x
+ null null x
TruthP x ==
--True if x is a predicate that's always true
@@ -525,9 +525,9 @@ removeZeroOneDestructively t ==
flattenSexpr s ==
null s => s
- ATOM s => s
+ atom s => s
[f,:r] := s
- ATOM f => [f,:flattenSexpr r]
+ atom f => [f,:flattenSexpr r]
[:flattenSexpr f,:flattenSexpr r]
isLowerCaseLetter c ==
@@ -554,7 +554,7 @@ update() ==
listSort(pred,list,:optional) ==
NOT functionp pred => error "listSort: first arg must be a function"
NOT LISTP list => error "listSort: second argument must be a list"
- NULL optional => mergeSort(pred,function Identity,list,LENGTH list)
+ null optional => mergeSort(pred,function Identity,list,LENGTH list)
key := first optional
NOT functionp key => error "listSort: last arg must be a function"
mergeSort(pred,key,list,LENGTH list)
@@ -573,16 +573,16 @@ orderList l == listSort(function _?ORDER, COPY_-LIST l)
mergeInPlace(f,g,p,q) ==
-- merge the two sorted lists p and q
- if NULL p then return p
- if NULL q then return q
+ if null p then return p
+ if null q then return q
if FUNCALL(f,FUNCALL(g, QCAR p),FUNCALL(g, QCAR q))
then (r := t := p; p := QCDR p)
else (r := t := q; q := QCDR q)
- while not NULL p and not NULL q repeat
+ while not null p and not null q repeat
if FUNCALL(f,FUNCALL(g,QCAR p),FUNCALL(g,QCAR q))
then (QRPLACD(t,p); t := p; p := QCDR p)
else (QRPLACD(t,q); t := q; q := QCDR q)
- if NULL p then QRPLACD(t,q) else QRPLACD(t,p)
+ if null p then QRPLACD(t,q) else QRPLACD(t,p)
r
mergeSort(f,g,p,n) ==
diff --git a/src/interp/ht-util.boot b/src/interp/ht-util.boot
index 79543cfc..924110d8 100644
--- a/src/interp/ht-util.boot
+++ b/src/interp/ht-util.boot
@@ -219,7 +219,7 @@ bcIssueHt line ==
iht line
mapStringize l ==
- ATOM l => l
+ atom l => l
RPLACA(l, basicStringize first l)
RPLACD(l, mapStringize rest l)
l
@@ -254,7 +254,7 @@ htQuote s ==
htProcessToggleButtons buttons ==
iht '"\newline\indent{5}\beginitems "
for [message, info, defaultValue, buttonName] in buttons repeat
- if NULL LASSOC(buttonName, htpInputAreaAlist $curPage) then
+ if null LASSOC(buttonName, htpInputAreaAlist $curPage) then
setUpDefault(buttonName, ['button, defaultValue])
iht ['"\item{\em\inputbox[", htpLabelDefault($curPage, buttonName), '"]{",
buttonName, '"}{\htbmfile{pick}}{\htbmfile{unpick}}\space{}"]
@@ -265,7 +265,7 @@ htProcessToggleButtons buttons ==
htProcessBcButtons buttons ==
for [defaultValue, buttonName] in buttons repeat
- if NULL LASSOC(buttonName, htpInputAreaAlist $curPage) then
+ if null LASSOC(buttonName, htpInputAreaAlist $curPage) then
setUpDefault(buttonName, ['button, defaultValue])
k := htpLabelDefault($curPage,buttonName)
k = 0 => iht ['"\off{",buttonName,'"}"]
@@ -309,7 +309,7 @@ htRadioButtons [groupName, :buttons] ==
'"}{\htbmfile{pick}}{\htbmfile{unpick}}\beginitems "]
defaultValue := '"1"
for [message, info, buttonName] in buttons repeat
- if NULL LASSOC(buttonName, htpInputAreaAlist $curPage) then
+ if null LASSOC(buttonName, htpInputAreaAlist $curPage) then
setUpDefault(buttonName, ['button, defaultValue])
defaultValue := '"0"
iht ['"\item{\em\radiobox[", htpLabelDefault($curPage, buttonName), '"]{",
@@ -327,7 +327,7 @@ htBcRadioButtons [groupName, :buttons] ==
'"}{\htbmfile{pick}}{\htbmfile{unpick}} "]
defaultValue := '"1"
for [message, info, buttonName] in buttons repeat
- if NULL LASSOC(buttonName, htpInputAreaAlist $curPage) then
+ if null LASSOC(buttonName, htpInputAreaAlist $curPage) then
setUpDefault(buttonName, ['button, defaultValue])
defaultValue := '"0"
iht ['"{\em\radiobox[", htpLabelDefault($curPage, buttonName), '"]{",
@@ -343,7 +343,7 @@ htInputStrings strings ==
iht '"\newline\indent{5}\beginitems "
for [mess1, mess2, numChars, default, stringName, spadType, :filter]
in strings repeat
- if NULL LASSOC(stringName, htpInputAreaAlist $curPage) then
+ if null LASSOC(stringName, htpInputAreaAlist $curPage) then
setUpDefault(stringName, ['string, default, spadType, filter])
if htpLabelErrorMsg($curPage, stringName) then
iht ['"\centerline{{\em ", htpLabelErrorMsg($curPage, stringName), '"}}"]
@@ -397,7 +397,7 @@ pvarCondList1(pvarList, activeConds, condList) ==
pvarCondList1(pvarList, activeConds, restConds)
pvarsOfPattern pattern ==
- NULL LISTP pattern => nil
+ null LISTP pattern => nil
[pvar for pvar in rest pattern | pvar in $PatternVariableList]
htMakeTemplates(templateList, numLabels) ==
@@ -409,7 +409,7 @@ htMakeTemplates(templateList, numLabels) ==
template
templateParts template ==
- NULL string? template => template
+ null string? template => template
i := SEARCH('"%l", template)
null i => template
[SUBSEQ(template, 0, i), : SUBSEQ(template, i+2)]
diff --git a/src/interp/htsetvar.boot b/src/interp/htsetvar.boot
index 1f82625b..ab5e9a6b 100644
--- a/src/interp/htsetvar.boot
+++ b/src/interp/htsetvar.boot
@@ -320,7 +320,7 @@ chkNonNegativeInteger s ==
chkRange s ==
(u := ncParseFromString s) and integer? u
- and u >= $htInitial and (NULL $htFinal or u <= $htFinal)
+ and u >= $htInitial and (null $htFinal or u <= $htFinal)
=> u
null $htFinal =>
STRCONC('"Please enter an integer greater than ",stringize ($htInitial - 1))
diff --git a/src/interp/i-analy.boot b/src/interp/i-analy.boot
index 44bf2b28..29319472 100644
--- a/src/interp/i-analy.boot
+++ b/src/interp/i-analy.boot
@@ -580,7 +580,7 @@ printableArgModeSetList() ==
amsl := nil
for a in reverse $origArgModeSetList repeat
b := prefix2String first a
- if ATOM b then b := [b]
+ if atom b then b := [b]
amsl := ['%l,:b,:amsl]
if amsl then amsl := rest amsl
amsl
diff --git a/src/interp/i-coerce.boot b/src/interp/i-coerce.boot
index a1dad5ea..92828a74 100644
--- a/src/interp/i-coerce.boot
+++ b/src/interp/i-coerce.boot
@@ -311,7 +311,7 @@ retractByFunction(object,u) ==
fun :=
--+
compiledLookup(funName,[target,t],dcVector)
- NULL fun => NIL
+ null fun => NIL
first(fun) = function Undef => NIL
--+
$: fluid := dcVector
@@ -634,8 +634,8 @@ canCoercePermute(t1,t2) ==
-- to t2 in the sense that the components of t1 are in the same order
-- as in t2. If length towers = 2 and t2 = last towers, we quit to
-- avoid an infinte loop.
- NULL towers or NULL rest towers => NIL
- NULL CDDR towers and t2 = second towers => NIL
+ null towers or null rest towers => NIL
+ null CDDR towers and t2 = second towers => NIL
-- do the coercions successively, quitting if any fail
ok := true
for t in rest towers while ok repeat
@@ -671,7 +671,7 @@ absolutelyCanCoerceByCheating(t1,t2) ==
-- difference is a subdomain
isEqualOrSubDomain(t1,t2) => true
typeIsASmallInteger(t1) and t2 = $Integer => true
- ATOM(t1) or ATOM(t2) => false
+ atom(t1) or atom(t2) => false
[tl1,:u1] := deconstructT t1
[tl2,:u2] := deconstructT t2
tl1 = '(Stream) and tl2 = '(InfiniteTuple) =>
@@ -684,7 +684,7 @@ absolutelyCanCoerceByCheating(t1,t2) ==
absolutelyCannotCoerce(t1,t2) ==
-- response of true means "definitely cannot coerce"
-- this is largely an efficiency hack
- ATOM(t1) or ATOM(t2) => NIL
+ atom(t1) or atom(t2) => NIL
t2 = $None => true
n1 := first t1
n2 := first t2
@@ -1048,7 +1048,7 @@ coerceIntByMap(triple,t2) ==
[[dc,:sig],slot,.]:= first mms
fun := compiledLookup('map,sig,evalDomain(dc))
- NULL fun => NIL
+ null fun => NIL
[fn,:d]:= fun
fn = function Undef => NIL
-- now compile a function to do the coercion
@@ -1186,8 +1186,8 @@ coerceIntPermute(object,t2) ==
-- to t2 in the sense that the components of t1 are in the same order
-- as in t2. If length towers = 2 and t2 = last towers, we quit to
-- avoid an infinte loop.
- NULL towers or NULL rest towers => NIL
- NULL CDDR towers and t2 = second towers => NIL
+ null towers or null rest towers => NIL
+ null CDDR towers and t2 = second towers => NIL
-- do the coercions successively, quitting if any fail
ok := true
for t in rest towers while ok repeat
@@ -1233,15 +1233,15 @@ computeTTTranspositions(t1,t2) ==
nreverse towers
decomposeTypeIntoTower t ==
- ATOM t => [t]
+ atom t => [t]
d := deconstructT t
- NULL rest d => [t]
+ null rest d => [t]
rd := reverse t
[reverse QCDR rd,:decomposeTypeIntoTower QCAR rd]
reassembleTowerIntoType tower ==
- ATOM tower => tower
- NULL rest tower => first tower
+ atom tower => tower
+ null rest tower => first tower
[:top,t,s] := tower
reassembleTowerIntoType [:top,[:t,s]]
diff --git a/src/interp/i-funsel.boot b/src/interp/i-funsel.boot
index 8818d7c8..7bb306f4 100644
--- a/src/interp/i-funsel.boot
+++ b/src/interp/i-funsel.boot
@@ -228,7 +228,7 @@ selectMms2(op,tar,args1,args2,$Coerce) ==
while a repeat
x:= first a
a:= rest a
- ATOM x => 'iterate
+ atom x => 'iterate
mmS := append(mmS, findFunctionInDomain(op,x,tar,args1,args2,NIL,NIL))
-- step 2. if we didn't get one, trying coercing (if we are
@@ -239,7 +239,7 @@ selectMms2(op,tar,args1,args2,$Coerce) ==
while a repeat
x:= first a
a:= rest a
- ATOM x => 'iterate
+ atom x => 'iterate
mmS := append(mmS,
findFunctionInDomain(op,x,tar,args1,args2,$Coerce,NIL))
@@ -274,7 +274,7 @@ defaultTarget(opNode,op,nargs,args) ==
target
a1 := first args
- ATOM a1 => target
+ atom a1 => target
a1f := QCAR a1
nargs = 1 =>
@@ -528,7 +528,7 @@ argCouldBelongToSubdomain(op, nargs) ==
CONTAINEDisDomain(symbol,cond) ==
-- looks for [isSubDomain,symbol,[domain]] in cond: returning T or NIL
-- with domain being one of PositiveInteger and NonNegativeInteger
- ATOM cond => false
+ atom cond => false
QCAR cond in '(AND OR and or) =>
or/[CONTAINEDisDomain(symbol, u) for u in QCDR cond]
EQ(QCAR cond,'isDomain) =>
@@ -1238,7 +1238,7 @@ replaceSharpCalls t ==
doReplaceSharpCalls t
doReplaceSharpCalls t ==
- ATOM t => t
+ atom t => t
t is ['_#, l] => #l
t is ['construct,: l] => EVAL ['LIST,:l]
[first t,:[ doReplaceSharpCalls u for u in rest t]]
diff --git a/src/interp/i-intern.boot b/src/interp/i-intern.boot
index b12bc1f2..8278d1af 100644
--- a/src/interp/i-intern.boot
+++ b/src/interp/i-intern.boot
@@ -63,7 +63,7 @@ transferSrcPosInfo(pf, atree) ==
-- following is a hack because parser code for getting filename
-- seems wrong.
fn := lnPlaceOfOrigin poGetLineObject(pos)
- if NULL fn or fn = '"strings" then fn := '"console"
+ if null fn or fn = '"strings" then fn := '"console"
putSrcPos(atree, fn, pfSourceText(pf), pfLinePosn(pos), pfCharPosn(pos))
atree
diff --git a/src/interp/i-map.boot b/src/interp/i-map.boot
index 5ca3e726..41026051 100644
--- a/src/interp/i-map.boot
+++ b/src/interp/i-map.boot
@@ -431,7 +431,7 @@ simplifyMapPattern (x,alias) ==
simplifyMapConstructorRefs form ==
-- try to linear format constructor names
- ATOM form => form
+ atom form => form
[op,:args] := form
op in '(exit SEQ) =>
[op,:[simplifyMapConstructorRefs a for a in args]]
@@ -440,11 +440,11 @@ simplifyMapConstructorRefs form ==
op in '(_: _:_: _@) =>
args is [obj,dom] =>
dom' := prefix2String dom
- --if ATOM dom' then dom' := [dom']
+ --if atom dom' then dom' := [dom']
--[op,obj,APPLY('CONCAT,dom')]
dom'' :=
- ATOM dom' => dom'
- NULL rest dom' => first dom'
+ atom dom' => dom'
+ null rest dom' => first dom'
APPLY('CONCAT, dom')
[op,obj, dom'']
form
@@ -1001,10 +1001,10 @@ findLocalVars1(op,form) ==
mkFreeVar($mapName,form)
form is ['local, :vars] =>
for x in vars repeat
- ATOM x => mkLocalVar(op, x)
+ atom x => mkLocalVar(op, x)
form is ['free, :vars] =>
for x in vars repeat
- ATOM x => mkFreeVar(op, x)
+ atom x => mkFreeVar(op, x)
form is ["%LET",a,b] =>
(a is ["tuple",:vars]) and (b is ["tuple",:vals]) =>
for var in vars for val in vals repeat
diff --git a/src/interp/i-output.boot b/src/interp/i-output.boot
index 84e22ba6..21a3c31a 100644
--- a/src/interp/i-output.boot
+++ b/src/interp/i-output.boot
@@ -1139,7 +1139,7 @@ maprin0 x ==
maprinChk x ==
null $MatrixList => maPrin x
- ATOM x and (u:= assoc(x,$MatrixList)) =>
+ atom x and (u:= assoc(x,$MatrixList)) =>
$MatrixList := delete(u,$MatrixList)
maPrin deMatrix rest u
x is ["=",arg,y] => --case for tracing with )math and printing matrices
@@ -1189,7 +1189,7 @@ LargeMatrixp(u,width, dist) ==
-- sees if there is a matrix wider than 'width' in the next 'dist'
-- part of u, a sized charybdis structure.
-- NIL if not, first such matrix if there is one
- ATOM u => nil
+ atom u => nil
CDAR u <= width => nil
--CDAR is the width of a charybdis structure
op:=CAAR u
@@ -1254,7 +1254,7 @@ SubstWhileDesizing(u,m) ==
-- arg. m is always nil (historical: EU directive to increase argument lists 1991/XGII)
--Replaces all occurrences of matrix m by name in u
--Taking out any outdated size information as it goes
- ATOM u => u
+ atom u => u
[[op,:n],:l]:=u
--name := RASSOC(u,$MatrixList) => name
-- doesn't work since RASSOC seems to use an EQ test, and returns the
@@ -1268,7 +1268,7 @@ SubstWhileDesizing(u,m) ==
PushMatrix u
l':=SubstWhileDesizingList(l,m)
-- [op,:l']
- ATOM op => [op,:l']
+ atom op => [op,:l']
[SubstWhileDesizing(op,m),:l']
--;SubstWhileDesizingList(u,m) ==
@@ -1284,11 +1284,11 @@ SubstWhileDesizing(u,m) ==
SubstWhileDesizingList(u,m) ==
u is [a,:b] =>
res:=
- ATOM a => [a]
+ atom a => [a]
[SubstWhileDesizing(a,m)]
tail:=res
for i in b repeat
- if ATOM i then RPLACD(tail,[i]) else RPLACD(tail,[SubstWhileDesizing(i,m)])
+ if atom i then RPLACD(tail,[i]) else RPLACD(tail,[SubstWhileDesizing(i,m)])
tail:=rest tail
res
u
diff --git a/src/interp/i-spec1.boot b/src/interp/i-spec1.boot
index 562b10ac..8e1a4480 100644
--- a/src/interp/i-spec1.boot
+++ b/src/interp/i-spec1.boot
@@ -346,7 +346,7 @@ upcase t ==
if first unionDoms is [":",.,.] then
for i in 0.. for d in unionDoms repeat
if d is [":",=rhs,.] then rhstag := i
- if NULL rhstag then error '"upcase: bad Union form"
+ if null rhstag then error '"upcase: bad Union form"
$genValue =>
rhstag = first unwrap objVal triple => code := wrap true
code := wrap false
@@ -797,7 +797,7 @@ checkForFreeVariables(v,locals) ==
-- bound variables, the parameter locals contains local variables which might
-- be free, or the token ALL, which means that any parameter is a candidate
-- to be free.
- NULL v => v
+ null v => v
symbol? v =>
v="$$$" => v -- Placeholder for mini-vector
MEMQ(v,$boundVariables) => v
@@ -932,7 +932,7 @@ mkIterZippedFun(indexList,funBody,zipType,$localVars) ==
vec
subVecNodes(new,old,form) ==
- ATOM form =>
+ atom form =>
(VECP form) and (form.0 = old) => new
form
[subVecNodes(new,old,first form), :subVecNodes(new,old,rest form)]
diff --git a/src/interp/i-syscmd.boot b/src/interp/i-syscmd.boot
index 6a9ab627..54e57973 100644
--- a/src/interp/i-syscmd.boot
+++ b/src/interp/i-syscmd.boot
@@ -1252,7 +1252,7 @@ displayType($op,u,omitVariableNameIfTrue) ==
sayMSG ['" Type of value of ",
fixObjectForPrinting PNAME $op,'": (none)"]
type := prefix2String objMode(u)
- if ATOM type then type := [type]
+ if atom type then type := [type]
sayMSG concat ['" Type of value of ",fixObjectForPrinting PNAME $op,'": ",:type]
NIL
@@ -1268,7 +1268,7 @@ displayValue($op,u,omitVariableNameIfTrue) ==
rhs := '": "
STRCONC('"Value of ", PNAME $op,'": ")
labmode := prefix2String objMode(u)
- if ATOM labmode then labmode := [labmode]
+ if atom labmode then labmode := [labmode]
IDENTP expr and getConstructorKindFromDB expr = "domain" =>
sayMSG concat('" ",label,labmode,rhs,form2String expr)
mathprint ['CONCAT,label,:labmode,rhs,
@@ -1335,7 +1335,7 @@ newHelpSpad2Cmd args ==
filestream := MAKE_-INSTREAM(helpFile)
repeat
line := read_-line(filestream,false)
- NULL line =>
+ null line =>
SHUT filestream
return true
SAY line
@@ -1375,7 +1375,7 @@ frameSpad2Cmd args ==
arg := selectOptionLC(first args,frameArgs,'optionError)
args := rest args
if args is [a] then args := a
- if ATOM args then args := object2Identifier args
+ if atom args then args := object2Identifier args
arg = 'drop =>
args and cons?(args) => throwKeyedMsg("S2IZ0017",[args])
closeInterpreterFrame(args)
@@ -1719,7 +1719,7 @@ resetInCoreHist() ==
changeHistListLen(n) ==
-- changes the length of $HistList. n must be nonnegative
- NULL integer? n => sayKeyedMsg("S2IH0015",[n])
+ null integer? n => sayKeyedMsg("S2IH0015",[n])
dif:= n-$HistListLen
$HistListLen:= n
l:= rest $HistList
@@ -1989,7 +1989,7 @@ readHiFi(n) ==
if $useInternalHistoryTable
then
pair := assoc(n,$internalHistoryTable)
- ATOM pair => keyedSystemError("S2IH0034",NIL)
+ atom pair => keyedSystemError("S2IH0034",NIL)
vec := QCDR pair
else
HiFi:= RDEFIOSTREAM ['(MODE . INPUT),['FILE,:histFileName()]]
@@ -2420,7 +2420,7 @@ reportOperations(oldArg,u) ==
sayKeyedMsg("S2IZ0064",NIL)
u isnt ['Record,:.] and u isnt ['Union,:.] and
null(isNameOfType u) and u isnt ['typeOf,.] =>
- if ATOM oldArg then oldArg := [oldArg]
+ if atom oldArg then oldArg := [oldArg]
sayKeyedMsg("S2IZ0063",NIL)
for op in oldArg repeat
sayKeyedMsg("S2IZ0062",[opOf op])
diff --git a/src/interp/interop.boot b/src/interp/interop.boot
index 36d8c28b..9e9b6581 100644
--- a/src/interp/interop.boot
+++ b/src/interp/interop.boot
@@ -61,7 +61,7 @@ DNameTupleID := 2
DNameOtherID := 3
DNameToSExpr1 dname ==
- NULL dname => error "unexpected domain name"
+ null dname => error "unexpected domain name"
first dname = DNameStringID =>
INTERN(CompStrToString rest dname)
name0 := DNameToSExpr1 second dname
@@ -201,7 +201,7 @@ quoteCatOp cat ==
oldAxiomCategoryLookupExport(catenv, self, op, sig, box, env) ==
[catform,hash, pack,:.] := catenv
opIsHasCat op => if EQL(sig, hash) then [self] else nil
- NULL(pack) => nil
+ null(pack) => nil
if not VECP pack then
pack:=apply(pack, CONS(self, rest catform))
RPLACA(CDDR catenv, pack)
diff --git a/src/interp/lisplib.boot b/src/interp/lisplib.boot
index 9cd82943..3f2653f9 100644
--- a/src/interp/lisplib.boot
+++ b/src/interp/lisplib.boot
@@ -1,6 +1,6 @@
-- Copyright (c) 1991-2002, The Numerical Algorithms Group Ltd.
-- All rights reserved.
--- Copyright (C) 2007-2009, Gabriel Dos Reis.
+-- Copyright (C) 2007-2010, Gabriel Dos Reis.
-- All rights reserved.
--
-- Redistribution and use in source and binary forms, with or without
@@ -102,7 +102,7 @@ hasFilePropertyNoCache(p,id,abbrev) ==
-- it is assumed that the file exists and is a proper pathname
-- startTimingProcess 'diskread
fnStream:= readLibPathFast p
- NULL fnStream => NIL
+ null fnStream => NIL
-- str:= object2String id
val:= rread(id,fnStream, nil)
RSHUT fnStream
@@ -482,8 +482,8 @@ mergeSignatureAndLocalVarAlists(signatureAlist, localVarAlist) ==
[funcName, :signature] in signatureAlist]
Operators u ==
- ATOM u => []
- ATOM first u =>
+ atom u => []
+ atom first u =>
answer:="union"/[Operators v for v in rest u]
MEMQ(first u,answer) => answer
[first u,:answer]
diff --git a/src/interp/mark.boot b/src/interp/mark.boot
index 7ba9df49..2ce85383 100644
--- a/src/interp/mark.boot
+++ b/src/interp/mark.boot
@@ -299,7 +299,7 @@ markImport(d,:option) == --from compFormWithModemap/genDeltaEntry/compImport
if IFCAR option then $globalDeclareStack := insert(dom,$globalDeclareStack)
markMacroTran name == --called by markImport
- ATOM name => name
+ atom name => name
u := or/[x for [x,:y] in $globalMacroStack | y = name] => u
u := or/[x for [x,:y] in $localMacroStack | y = name] => u
[op,:argl] := name
@@ -1263,7 +1263,7 @@ changeToEqualEqual lines ==
sayMessage x ==
u :=
- ATOM x => ['">> ", x]
+ atom x => ['">> ", x]
['">> ",: x]
sayBrightly u
@@ -1335,7 +1335,7 @@ diff(x,y) ==
diff1(x,y) ==
x = y => nil
- ATOM x or ATOM y => [[x,y]]
+ atom x or atom y => [[x,y]]
#x ~= #y => [x,y]
"APPEND"/[diff1(u,v) for u in x for v in y]
diff --git a/src/interp/msgdb.boot b/src/interp/msgdb.boot
index 3798484f..b048b07a 100644
--- a/src/interp/msgdb.boot
+++ b/src/interp/msgdb.boot
@@ -118,7 +118,7 @@ getKeyedMsg key == fetchKeyedMsg(key,false)
segmentKeyedMsg(msg) == string2Words msg
segmentedMsgPreprocess x ==
- ATOM x => x
+ atom x => x
[head,:tail] := x
center := rightJust := NIL
if member(head, '(%ceon "%ceon")) then center := true
@@ -132,7 +132,7 @@ segmentedMsgPreprocess x ==
member(t, '(%ceoff "%ceoff" %rjoff "%rjoff")) => ok := NIL
y := CONS(segmentedMsgPreprocess t,y)
head1 := [(center => '"%ce"; '"%rj"),:nreverse y]
- NULL tail => [head1]
+ null tail => [head1]
[head1,:segmentedMsgPreprocess tail]
head1 := segmentedMsgPreprocess head
tail1 := segmentedMsgPreprocess tail
@@ -571,8 +571,8 @@ throwKeyedMsgCannotCoerceWithValue(val,t1,t2) ==
--% Some Standard Message Printing Functions
-bright x == ['"%b",:(cons?(x) and NULL rest LASTNODE x => x; [x]),'"%d"]
---bright x == ['%b,:(ATOM x => [x]; x),'%d]
+bright x == ['"%b",:(cons?(x) and null rest LASTNODE x => x; [x]),'"%d"]
+--bright x == ['%b,:(atom x => [x]; x),'%d]
mkMessage msg ==
msg and (cons? msg) and member((first msg),'(%l "%l")) and
@@ -706,7 +706,7 @@ brightPrintHighlight(x, out == $OutputStream) ==
-- following line helps find certain bugs that slip through
-- also see sayBrightlyLength1
VECP x => sayString('"UNPRINTABLE",out)
- ATOM x => sayString(object2String x,out)
+ atom x => sayString(object2String x,out)
[key,:rst] := x
if IDENTP key then key:=PNAME key
key = '"%m" => mathprint(rst,out)
@@ -730,7 +730,7 @@ brightPrintHighlightAsTeX(x, out == $OutputStream) ==
IDENTP x =>
pn := PNAME x
sayString(pn,out)
- ATOM x => sayString(object2String x,out)
+ atom x => sayString(object2String x,out)
VECP x => sayString('"UNPRINTABLE",out)
[key,:rst] := x
key = '"%m" => mathprint(rst,out)
@@ -761,7 +761,7 @@ tabber num ==
brightPrintCenter(x,out == $OutputStream) ==
$texFormatting => brightPrintCenterAsTeX(x,out)
-- centers rst within $LINELENGTH, checking for %l's
- ATOM x =>
+ atom x =>
x := object2String x
wid := STRINGLENGTH x
if wid < $LINELENGTH then
@@ -787,7 +787,7 @@ brightPrintCenter(x,out == $OutputStream) ==
NIL
brightPrintCenterAsTeX(x, out == $OutputStream) ==
- ATOM x =>
+ atom x =>
sayString('"\centerline{",out)
sayString(x,out)
sayString('"}",out)
@@ -807,7 +807,7 @@ brightPrintCenterAsTeX(x, out == $OutputStream) ==
brightPrintRightJustify(x, out == $OutputStream) ==
-- right justifies rst within $LINELENGTH, checking for %l's
- ATOM x =>
+ atom x =>
x := object2String x
wid := STRINGLENGTH x
wid < $LINELENGTH =>
@@ -841,7 +841,7 @@ sayBrightlyLength l ==
sayBrightlyLength1 x ==
member(x,'("%b" "%d" %b %d)) =>
- NULL $highlightAllowed => 1
+ null $highlightAllowed => 1
1
member(x,'("%l" %l)) => 0
string? x and STRINGLENGTH x > 2 and x.0 = '"%" and x.1 = '"x" =>
@@ -851,7 +851,7 @@ sayBrightlyLength1 x ==
-- following line helps find certain bugs that slip through
-- also see brightPrintHighlight
VECP x => STRINGLENGTH '"UNPRINTABLE"
- ATOM x => STRINGLENGTH STRINGIMAGE x
+ atom x => STRINGLENGTH STRINGIMAGE x
2 + sayBrightlyLength x
sayAsManyPerLineAsPossible l ==
diff --git a/src/interp/newfort.boot b/src/interp/newfort.boot
index 21f90651..4fafac33 100644
--- a/src/interp/newfort.boot
+++ b/src/interp/newfort.boot
@@ -712,7 +712,7 @@ fortFormatCharacterTypes(names) ==
sortedByLength := []
genuineArrays := []
for u in names repeat
- ATOM u => sortedByLength := insertEntry(0,u,sortedByLength)
+ atom u => sortedByLength := insertEntry(0,u,sortedByLength)
#u=2 => sortedByLength := insertEntry(second u,first u,sortedByLength)
genuineArrays := [u,:genuineArrays]
for u in sortedByLength repeat
diff --git a/src/interp/nrunfast.boot b/src/interp/nrunfast.boot
index 38a7bd47..0b9ea020 100644
--- a/src/interp/nrunfast.boot
+++ b/src/interp/nrunfast.boot
@@ -497,7 +497,7 @@ lazyMatchArgDollarCheck(s,d,dollarName,domainName) ==
x is ['elt,someDomain,opname] => lookupInDomainByName(opname,evalDomain someDomain,arg)
x = '$ and (arg = dollarName or arg = domainName) => true
x = dollarName and arg = domainName => true
- ATOM x or ATOM arg => false
+ atom x or atom arg => false
xt and first x = first arg =>
lazyMatchArgDollarCheck(x,arg,dollarName,domainName)
false
@@ -541,7 +541,7 @@ newExpandTypeSlot(slot, dollar, domain) ==
newExpandLocalType(lazyt,dollar,domain) ==
VECP lazyt => lazyt.0
- ATOM lazyt => lazyt
+ atom lazyt => lazyt
lazyt is [vec,.,:lazyForm] and VECP vec => --old style
newExpandLocalTypeForm(lazyForm,dollar,domain)
newExpandLocalTypeForm(lazyt,dollar,domain) --new style
@@ -647,7 +647,7 @@ newHasTest(domform,catOrAtt) ==
for [aCat,:cond] in [:ancestorsOf(domform,NIL),:SUBLISLIS (rest domform,$FormalMapVariableList,getConstructorAttributesFromDB(opOf domform))] | aCat = catOrAtt repeat
return evalCond cond where
evalCond x ==
- ATOM x => x
+ atom x => x
[pred,:l] := x
pred = "has" =>
l is [ w1,['ATTRIBUTE,w2]] => newHasTest(w1,w2)
diff --git a/src/interp/nrungo.boot b/src/interp/nrungo.boot
index 3c5e9026..ad16cbd2 100644
--- a/src/interp/nrungo.boot
+++ b/src/interp/nrungo.boot
@@ -168,7 +168,7 @@ lookupInTable(op,sig,dollar,[domain,table]) ==
slot is ["goGet",:.] =>
lookupDisplay(op,sig,domain,'" !! goGet found, will ignore")
lookupInAddChain(op,sig,domain,dollar) or 'failed
- NULL slot =>
+ null slot =>
lookupDisplay(op,sig,domain,'" !! null slot entry, continuing")
lookupInAddChain(op,sig,domain,dollar) or 'failed
lookupDisplay(op,sig,domain,'" !! found in NEW table!!")
@@ -285,7 +285,7 @@ lazyCompareSigEqual(s,tslot,dollar,domain) ==
compareSigEqual(s,t,dollar,domain) ==
EQUAL(s,t) => true
- ATOM t =>
+ atom t =>
u :=
t='$ => dollar
isSharpVar t =>
@@ -297,7 +297,7 @@ compareSigEqual(s,t,dollar,domain) ==
u => compareSigEqual(s,u,dollar,domain)
EQUAL(s,u)
s='$ => compareSigEqual(dollar,t,dollar,domain)
- ATOM s => nil
+ atom s => nil
#s ~= #t => nil
match := true
for u in s for v in t repeat
@@ -318,7 +318,7 @@ NRTcompiledLookup(op,sig,dom) ==
compiledLookupCheck(op,sig,dom)
NRTtypeHack t ==
- ATOM t => t
+ atom t => t
first t = '_# => # second t
[first t,:[NRTtypeHack tt for tt in rest t]]
diff --git a/src/interp/pathname.boot b/src/interp/pathname.boot
index 0fcd0b64..3b0bca5c 100644
--- a/src/interp/pathname.boot
+++ b/src/interp/pathname.boot
@@ -1,6 +1,6 @@
-- Copyright (c) 1991-2002, The Numerical Algorithms Group Ltd.
-- All rights reserved.
--- Copyright (C) 2007-2008, Gabriel Dos Reis.
+-- Copyright (C) 2007-2010, Gabriel Dos Reis.
-- All rights reserved.
--
-- Redistribution and use in source and binary forms, with or without
@@ -105,7 +105,7 @@ isSystemDirectory dir ==
_/MKINFILENAM(infile) == CATCH('FILNAM, newMKINFILENAM infile)
newMKINFILENAM(infile) ==
- NULL infile => nil
+ null infile => nil
file := infile := pathname infile
repeat
fn := pathnameName file
diff --git a/src/interp/pf2atree.boot b/src/interp/pf2atree.boot
index d9236313..9f9fd30d 100644
--- a/src/interp/pf2atree.boot
+++ b/src/interp/pf2atree.boot
@@ -523,8 +523,8 @@ pfCollect2Atree pf ==
-- patternVarsOf1(expr, nil)
--
-- patternVarsOf1(expr, varList) ==
--- NULL expr => varList
--- ATOM expr =>
+-- null expr => varList
+-- atom expr =>
-- null symbol? expr => varList
-- SymMemQ(expr, varList) => varList
-- [expr, :varList]
diff --git a/src/interp/pf2sex.boot b/src/interp/pf2sex.boot
index d760baa4..bdc6b70f 100644
--- a/src/interp/pf2sex.boot
+++ b/src/interp/pf2sex.boot
@@ -461,8 +461,8 @@ patternVarsOf expr ==
patternVarsOf1(expr, nil)
patternVarsOf1(expr, varList) ==
- NULL expr => varList
- ATOM expr =>
+ null expr => varList
+ atom expr =>
null symbol? expr => varList
SymMemQ(expr, varList) => varList
[expr, :varList]
diff --git a/src/interp/pspad1.boot b/src/interp/pspad1.boot
index 15bf093e..0af4b345 100644
--- a/src/interp/pspad1.boot
+++ b/src/interp/pspad1.boot
@@ -297,7 +297,7 @@ formatDollar(name,p,argl) ==
or (indent() and format "$__" and formatForcePren name and undent()))
formatMacroCheck name ==
- ATOM name => name
+ atom name => name
u := or/[x for [x,:y] in $globalMacroStack | y = name] => u
u := or/[x for [x,:y] in $localMacroStack | y = name] => u
[op,:argl] := name
@@ -434,7 +434,7 @@ formatApplication2 x ==
formatDot ["dot",a,x] ==
tryLine (formatOp a and format ".") and
- ATOM x => format x
+ atom x => format x
formatPren x
formatSelection u ==
@@ -442,7 +442,7 @@ formatSelection u ==
formatSpill("formatSelection1",u)
formatSelection1 [f,x] == formatSelectionOp f and format "." and
- ATOM x => format x
+ atom x => format x
formatPren x
formatSelectionOp op ==
@@ -453,7 +453,7 @@ formatSelectionOp op ==
formatSelectionOp1 f ==
f is [op,:argl] =>
argl is [a] =>
- not ATOM op and ATOM a => formatSelection1 [op,a]
+ not atom op and atom a => formatSelection1 [op,a]
formatPren f
format f
formatOp f
diff --git a/src/interp/record.boot b/src/interp/record.boot
index d987b802..023f985c 100644
--- a/src/interp/record.boot
+++ b/src/interp/record.boot
@@ -104,7 +104,7 @@ printRecordFile(pathname,:option) ==
$printTypeIfTrue: local := true
stream := DEFIOSTREAM([['FILE,:pathname], '(MODE . INPUT)],80,0)
repeat
- NULL (PEEK_-CHAR ( true, stream , nil, nil )) => return nil
+ null (PEEK_-CHAR ( true, stream , nil, nil )) => return nil
[i,t,:o] := dewritify VMREAD stream
sayNewLine()
for x in i repeat sayBrightly x
@@ -151,7 +151,7 @@ verifyRecordFile(pathname) ==
clearCmdAll()
result := 'ok
for j in 1.. repeat
- NULL (PEEK_-CHAR ( true, stream ,nil,nil ))=>return nil
+ null (PEEK_-CHAR ( true, stream ,nil,nil ))=>return nil
[i,t,:o] := dewritify VMREAD stream
null i => return nil
t = 'ForSystemCommands =>
diff --git a/src/interp/setvars.boot b/src/interp/setvars.boot
index 911fe2ff..8de73e17 100644
--- a/src/interp/setvars.boot
+++ b/src/interp/setvars.boot
@@ -775,7 +775,7 @@ countCache n ==
$options =>
$options is [["vars",:l]] =>
for x in l repeat
- NULL IDENTP x => sayKeyedMsg("S2IF0007",[x])
+ null IDENTP x => sayKeyedMsg("S2IF0007",[x])
$cacheAlist:= insertAlist(x,n,$cacheAlist)
cacheCountName:= INTERNL(x,'";COUNT")
setDynamicBinding(cacheCountName,n)
diff --git a/src/interp/trace.boot b/src/interp/trace.boot
index 765fc5bd..93adc5e4 100644
--- a/src/interp/trace.boot
+++ b/src/interp/trace.boot
@@ -337,7 +337,7 @@ coerceSpadArgs2E(args) ==
for arg in args for type in rest $tracedSpadModemap]
subTypes(mm,sublist) ==
- ATOM mm =>
+ atom mm =>
(s:= LASSOC(mm,sublist)) => s
mm
[subTypes(m,sublist) for m in mm]
diff --git a/src/interp/wi1.boot b/src/interp/wi1.boot
index 24236d61..bb772e94 100644
--- a/src/interp/wi1.boot
+++ b/src/interp/wi1.boot
@@ -857,7 +857,7 @@ spadCompileOrSetq form ==
if vl is [:vl',E] and body is [nam',: =vl'] then
LAM_,EVALANDFILEACTQ ['PUT,MKQ nam,MKQ 'SPADreplace,MKQ nam']
sayBrightly ['" ",:bright nam,'"is replaced by",:bright nam']
- else if (ATOM body or and/[ATOM x for x in body])
+ else if (atom body or and/[atom x for x in body])
and vl is [:vl',E] and not CONTAINED(E,body) then
macform := ['XLAM,vl',body]
LAM_,EVALANDFILEACTQ ['PUT,MKQ nam,MKQ 'SPADreplace,MKQ macform]
diff --git a/src/interp/wi2.boot b/src/interp/wi2.boot
index 80e63182..e0e3cef6 100644
--- a/src/interp/wi2.boot
+++ b/src/interp/wi2.boot
@@ -130,7 +130,7 @@ compDefineFunctor1(df, m,$e,$prefix,$formalArgList) ==
where FindRep cb ==
u:=
while cb repeat
- ATOM cb => return nil
+ atom cb => return nil
cb is [["%LET",'Rep,v,:.],:.] => return (u:=v)
cb:=rest cb
u
@@ -431,7 +431,7 @@ applyMapping([op,:argl],m,e,ml) ==
T() == [.,.,e]:= comp(x,m',e) or return "failed"
if argl'="failed" then return nil
form:=
- not MEMQ(op,$formalArgList) and ATOM op and not get(op,'value,e) =>
+ not MEMQ(op,$formalArgList) and atom op and not get(op,'value,e) =>
nprefix := $prefix or
-- following needed for referencing local funs at capsule level
getAbbreviation($op,#rest $form)
@@ -989,8 +989,8 @@ doItIf(item is [.,p,x,y],$predl,$e) ==
-- of functorLocalParameters that were added during the
-- conditional compilation
nils:=ans:=[]
- for u in flp1 repeat -- is =u form always an ATOM?
- if ATOM u or (or/[v is [.,=u,:.] for v in $getDomainCode])
+ for u in flp1 repeat -- is =u form always an atom?
+ if atom u or (or/[v is [.,=u,:.] for v in $getDomainCode])
then
nils:=[u,:nils]
else