diff options
author | dos-reis <gdr@axiomatics.org> | 2008-03-24 11:47:01 +0000 |
---|---|---|
committer | dos-reis <gdr@axiomatics.org> | 2008-03-24 11:47:01 +0000 |
commit | 55893dcd3118428f046d5f539d80e9aa5345b885 (patch) | |
tree | 05992761c4ad4d3421b7063de3357d1ced007c8a /src/interp/template.boot | |
parent | 97f54bf68c5aefffc94a4935e08fd6449ec501c9 (diff) | |
download | open-axiom-55893dcd3118428f046d5f539d80e9aa5345b885.tar.gz |
Add support for SBCL and CLisp
Diffstat (limited to 'src/interp/template.boot')
-rw-r--r-- | src/interp/template.boot | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/src/interp/template.boot b/src/interp/template.boot index c9c7f487..9529869d 100644 --- a/src/interp/template.boot +++ b/src/interp/template.boot @@ -121,16 +121,16 @@ evalSlotDomain(u,dollar) == -- Loadtime Operations --======================================================================= setLoadTime alist == - for [nam,:val] in alist repeat SET(nam,eval val) + for [nam,:val] in alist repeat setDynamicBinding(nam,eval val) setLoadTimeQ alist == - for [nam,:val] in alist repeat SET(nam,val) + for [nam,:val] in alist repeat setDynamicBinding(nam,val) makeTemplate vec == --called at instantiation time by setLoadTime --the form ['makeTemplate,MKQ $template] is recorded by compDefineFunctor1 -- $template is set below in NRTdescendCodeTran and NRTaddDeltaOpt - newVec := newDomainShell SIZE vec + newVec := newShell SIZE vec for index in 0..MAXINDEX vec repeat item := vec.index null item => nil @@ -192,7 +192,7 @@ putPredHash pred == --pred MUST have had addConsDB applied to it extendVectorSize v == n:= MAXINDEX v m:= (7*n)/5 -- make 40% longer - newVec := newDomainShell m + newVec := newShell m for i in 0..n repeat newVec.i := v.i newVec @@ -200,7 +200,7 @@ mkSigPredVectors() == $predHash:= MAKE_-HASHTABLE 'UEQUAL $consDB:= MAKE_-HASHTABLE 'UEQUAL $predVectorFrontier:= 1 --slot 0 in vector will be vacant - $predVector:= newDomainShell 100 + $predVector:= newShell 100 for nam in allConstructors() | null (GETDATABASE(nam, 'CONSTRUCTORKIND) = 'package) repeat for [op,:sigList] in GETDATABASE(nam,'OPERATIONALIST) repeat @@ -210,7 +210,7 @@ mkSigPredVectors() == 'done list2LongerVec(u,n) == - vec := newDomainShell ((7*n)/5) -- make 40% longer + vec := newShell ((7*n)/5) -- make 40% longer for i in 0.. for x in u repeat vec.i := x vec |