diff options
| author | dos-reis <gdr@axiomatics.org> | 2011-02-10 21:06:02 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2011-02-10 21:06:02 +0000 |
| commit | 81f1eb5784645fffc263bae02d4d12020c1e694c (patch) | |
| tree | d0f93eba6aacab8bcb63d4793dcf1f56367579d2 /src/interp/modemap.boot | |
| parent | 23d51a95663fe0587a1252193f9a976495ddc146 (diff) | |
| download | open-axiom-81f1eb5784645fffc263bae02d4d12020c1e694c.tar.gz | |
* interp/vmlisp.lisp (VEC-SETELT): Remove.
* interp/scan.boot (scanInserts): Use vectorRef.
* interp/functor.boot (DescendCode): Don't check for SETELT or
QSETREFV forms.
* interp/nrunfast.boot (evalSlotDomain): Likewise.
Diffstat (limited to 'src/interp/modemap.boot')
| -rw-r--r-- | src/interp/modemap.boot | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/src/interp/modemap.boot b/src/interp/modemap.boot index 375ea972..d058a937 100644 --- a/src/interp/modemap.boot +++ b/src/interp/modemap.boot @@ -361,7 +361,9 @@ addConstructorModemaps(name,form is [functorName,:.],e) == --The way XLAMs work: --- ((XLAM ($1 $2 $3) (SETELT $1 0 $3)) X "c" V) ==> (SETELT X 0 V) +-- ((XLAM ($1 $2 $3) (%store (%vref $1 0) $3)) X "c" V) ==> +-- (%store (%vref X 0) V) +-- getDomainsInScope e == $insideCapsuleFunctionIfTrue=true => $CapsuleDomainsInScope |