diff options
| -rw-r--r-- | src/interp/define.boot | 2 | ||||
| -rw-r--r-- | src/interp/nruncomp.boot | 6 | ||||
| -rw-r--r-- | src/interp/nrunopt.boot | 4 | ||||
| -rw-r--r-- | src/interp/wi2.boot | 2 |
4 files changed, 7 insertions, 7 deletions
diff --git a/src/interp/define.boot b/src/interp/define.boot index b4f954e9..3ffbbee8 100644 --- a/src/interp/define.boot +++ b/src/interp/define.boot @@ -598,7 +598,7 @@ compDefineFunctor1(df is ['DEF,form,signature,$functorSpecialCases,body], -->--these globals used by NRTmakeCategoryAlist, set by NRTsetVector4Part1 $condAlist: local := nil $uncondAlist: local := nil --->>-- next global initialized here, reset by NRTbuildFunctor +-->>-- next global initialized here, reset by buildFunctor $NRTslot1PredicateList: local := REMDUP [CADR x for x in attributeList] -->>-- next global initialized here, used by NRTgenAttributeAlist (NRUNOPT) diff --git a/src/interp/nruncomp.boot b/src/interp/nruncomp.boot index 115e57f9..287d5bc8 100644 --- a/src/interp/nruncomp.boot +++ b/src/interp/nruncomp.boot @@ -69,7 +69,7 @@ $killOptimizeIfTrue := false -----------------------------NEW buildFunctor CODE----------------------------- NRTaddDeltaCode() == ---NOTES: This function is called from NRTbuildFunctor to initially +--NOTES: This function is called from buildFunctor to initially -- fill slots in $template. The $template so created is stored in the -- NRLIB. On load, makeDomainTemplate is called on this $template to -- create a template which becomes slot 0 of the infovec for the constructor. @@ -681,9 +681,9 @@ NRTaddToSlam([name,:argnames],shell) == args:= ['LIST,:ASSOCRIGHT $devaluateList] addToConstructorCache(name,args,shell) -changeDirectoryInSlot1() == --called by NRTbuildFunctor +changeDirectoryInSlot1() == --called by buildFunctor --3 cases: - -- if called inside NRTbuildFunctor, $NRTdeltaLength gives different locs + -- if called inside buildFunctor, $NRTdeltaLength gives different locs -- otherwise called from compFunctorBody (all lookups are forwarded): -- $NRTdeltaList = nil ===> all slot numbers become nil $lisplibOperationAlist := [sigloc entry for entry in $domainShell.1] where diff --git a/src/interp/nrunopt.boot b/src/interp/nrunopt.boot index a4d10e00..d3fd3de2 100644 --- a/src/interp/nrunopt.boot +++ b/src/interp/nrunopt.boot @@ -248,10 +248,10 @@ makePrefixForm(u,op) == --======================================================================= -- Generate Slot 3 Predicate Vector --======================================================================= -makePredicateBitVector pl == --called by NRTbuildFunctor +makePredicateBitVector pl == --called by buildFunctor if $insideCategoryPackageIfTrue then pl := union(pl,$categoryPredicateList) - $predGensymAlist := nil --bound by NRTbuildFunctor, used by optHas + $predGensymAlist := nil --bound by buildFunctor, used by optHas for p in removeAttributePredicates pl repeat pred := simpBool transHasCode p atom pred => 'skip --skip over T and NIL diff --git a/src/interp/wi2.boot b/src/interp/wi2.boot index d0481570..df2d1d96 100644 --- a/src/interp/wi2.boot +++ b/src/interp/wi2.boot @@ -112,7 +112,7 @@ compDefineFunctor1(df, m,$e,$prefix,$formalArgList) == -->--these globals used by NRTmakeCategoryAlist, set by NRTsetVector4Part1 $condAlist: local := nil $uncondAlist: local := nil --->>-- next global initialized here, reset by NRTbuildFunctor +-->>-- next global initialized here, reset by buildFunctor $NRTslot1PredicateList: local := REMDUP [CADR x for x in attributeList] -->>-- next global initialized here, used by NRTgenAttributeAlist (NRUNOPT) |