diff options
| author | dos-reis <gdr@axiomatics.org> | 2011-02-24 18:06:28 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2011-02-24 18:06:28 +0000 |
| commit | 1f68c8c90efaf97535bfc1bfc99cad368213870e (patch) | |
| tree | b58a560a5e83f5dc73b3e5443e3a8bcabf5d0f19 /src/algebra/strap/URAGG-.lsp | |
| parent | 04608dfa938b011bce60031e7eccfb6cb67c2ced (diff) | |
| download | open-axiom-1f68c8c90efaf97535bfc1bfc99cad368213870e.tar.gz | |
* interp/sys-macros.lisp (shellEntry): New.
* interp/g-util.boot (setShellEntry): Remove.
* interp/compiler.boot: Use %store to %tref forms instead of
setHSellEntry.
* interp/define.boot: Likewise.
* interp/functor.boot: Likewise.
* interp/nruncomp.boot: Likewise.
* interp/nrunfast.boot: Likewise.
* interp/showimp.boot: Likewise.
* interp/c-util.boot (isSimple): Tidy.
(isSideEffectFree): Likewise.
(updateCapsuleDirectory): Likewise.
Diffstat (limited to 'src/algebra/strap/URAGG-.lsp')
| -rw-r--r-- | src/algebra/strap/URAGG-.lsp | 58 |
1 files changed, 30 insertions, 28 deletions
diff --git a/src/algebra/strap/URAGG-.lsp b/src/algebra/strap/URAGG-.lsp index 2ba68e32..e18e2164 100644 --- a/src/algebra/strap/URAGG-.lsp +++ b/src/algebra/strap/URAGG-.lsp @@ -488,43 +488,45 @@ ($ (|newShell| 88)) (|pv$| (|buildPredVector| 0 0 (LIST (|HasAttribute| |#1| '|shallowlyMutable|))))) - (|setShellEntry| $ 0 |dv$|) - (|setShellEntry| $ 3 |pv$|) + (SETF (|shellEntry| $ 0) |dv$|) + (SETF (|shellEntry| $ 3) |pv$|) (|stuffDomainSlots| $) - (|setShellEntry| $ 6 |#1|) - (|setShellEntry| $ 7 |#2|) + (SETF (|shellEntry| $ 6) |#1|) + (SETF (|shellEntry| $ 7) |#2|) (COND ((|HasAttribute| |#1| '|finiteAggregate|) - (|setShellEntry| $ 64 - (CONS (|dispatchFunction| |URAGG-;last;ANniA;22|) $)))) + (SETF (|shellEntry| $ 64) + (CONS (|dispatchFunction| |URAGG-;last;ANniA;22|) $)))) (COND ((|HasCategory| |#2| '(|SetCategory|)) (PROGN - (|setShellEntry| $ 67 - (CONS (|dispatchFunction| |URAGG-;=;2AB;23|) $)) - (|setShellEntry| $ 69 - (CONS (|dispatchFunction| |URAGG-;node?;2AB;24|) $))))) + (SETF (|shellEntry| $ 67) + (CONS (|dispatchFunction| |URAGG-;=;2AB;23|) $)) + (SETF (|shellEntry| $ 69) + (CONS (|dispatchFunction| |URAGG-;node?;2AB;24|) $))))) (COND ((|testBitVector| |pv$| 1) (PROGN - (|setShellEntry| $ 71 - (CONS (|dispatchFunction| |URAGG-;setelt;Afirst2S;25|) $)) - (|setShellEntry| $ 73 - (CONS (|dispatchFunction| |URAGG-;setelt;Alast2S;26|) $)) - (|setShellEntry| $ 75 - (CONS (|dispatchFunction| |URAGG-;setelt;Arest2A;27|) $)) - (|setShellEntry| $ 77 - (CONS (|dispatchFunction| |URAGG-;concat;3A;28|) $)) - (|setShellEntry| $ 78 - (CONS (|dispatchFunction| |URAGG-;setlast!;A2S;29|) $)) - (|setShellEntry| $ 81 - (CONS (|dispatchFunction| |URAGG-;setchildren!;ALA;30|) $)) - (|setShellEntry| $ 82 - (CONS (|dispatchFunction| |URAGG-;setvalue!;A2S;31|) $)) - (|setShellEntry| $ 85 - (CONS (|dispatchFunction| |URAGG-;split!;AIA;32|) $)) - (|setShellEntry| $ 86 - (CONS (|dispatchFunction| |URAGG-;cycleSplit!;2A;33|) $))))) + (SETF (|shellEntry| $ 71) + (CONS (|dispatchFunction| |URAGG-;setelt;Afirst2S;25|) + $)) + (SETF (|shellEntry| $ 73) + (CONS (|dispatchFunction| |URAGG-;setelt;Alast2S;26|) $)) + (SETF (|shellEntry| $ 75) + (CONS (|dispatchFunction| |URAGG-;setelt;Arest2A;27|) $)) + (SETF (|shellEntry| $ 77) + (CONS (|dispatchFunction| |URAGG-;concat;3A;28|) $)) + (SETF (|shellEntry| $ 78) + (CONS (|dispatchFunction| |URAGG-;setlast!;A2S;29|) $)) + (SETF (|shellEntry| $ 81) + (CONS (|dispatchFunction| |URAGG-;setchildren!;ALA;30|) + $)) + (SETF (|shellEntry| $ 82) + (CONS (|dispatchFunction| |URAGG-;setvalue!;A2S;31|) $)) + (SETF (|shellEntry| $ 85) + (CONS (|dispatchFunction| |URAGG-;split!;AIA;32|) $)) + (SETF (|shellEntry| $ 86) + (CONS (|dispatchFunction| |URAGG-;cycleSplit!;2A;33|) $))))) $)) (MAKEPROP '|UnaryRecursiveAggregate&| '|infovec| |