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/functor.boot | |
| parent | 97f54bf68c5aefffc94a4935e08fd6449ec501c9 (diff) | |
| download | open-axiom-55893dcd3118428f046d5f539d80e9aa5345b885.tar.gz | |
Add support for SBCL and CLisp
Diffstat (limited to 'src/interp/functor.boot')
| -rw-r--r-- | src/interp/functor.boot | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/src/interp/functor.boot b/src/interp/functor.boot index 3e129534..63a94544 100644 --- a/src/interp/functor.boot +++ b/src/interp/functor.boot @@ -227,7 +227,7 @@ compCategories1(u,v) == error 'compCategories1 NewbFVectorCopy(u,domName) == - v:= newDomainShell SIZE u + v:= newShell SIZE u for i in 0..5 repeat v.i:= u.i for i in 6..MAXINDEX v | PAIRP u.i repeat v.i:= [function Undef,[domName,i],:first u.i] v @@ -550,9 +550,9 @@ DescendCodeAdd1(base,flag,target,formalArgs,formalArgModes) == 'adding))^=nil] --The code from here to the end is designed to replace repeated LOAD/STORE --combinations (SETELT ...(ELT ..)) by MVCs where this is practicable - copyvec := newDomainShell (1+n) - for u in code repeat - if update(u,copyvec,[]) then code:=delete(u,code) + copyvec := newShell (1+n) + (for u in code repeat + if update(u,copyvec,[]) then code:=delete(u,code)) where update(code,copyvec,sofar) == ATOM code =>nil MEMQ(QCAR code,'(ELT QREFELT)) => |