* 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.

1 files changed, 8 insertions, 8 deletions

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)]