aboutsummaryrefslogtreecommitdiff
path: root/src/algebra/strap/ABELMON-.lsp
diff options
context:
space:
mode:
authordos-reis <gdr@axiomatics.org>2011-02-24 18:06:28 +0000
committerdos-reis <gdr@axiomatics.org>2011-02-24 18:06:28 +0000
commit1f68c8c90efaf97535bfc1bfc99cad368213870e (patch)
treeb58a560a5e83f5dc73b3e5443e3a8bcabf5d0f19 /src/algebra/strap/ABELMON-.lsp
parent04608dfa938b011bce60031e7eccfb6cb67c2ced (diff)
downloadopen-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/ABELMON-.lsp')
-rw-r--r--src/algebra/strap/ABELMON-.lsp10
1 files changed, 5 insertions, 5 deletions
diff --git a/src/algebra/strap/ABELMON-.lsp b/src/algebra/strap/ABELMON-.lsp
index 8bad28b8..b73e55f3 100644
--- a/src/algebra/strap/ABELMON-.lsp
+++ b/src/algebra/strap/ABELMON-.lsp
@@ -31,14 +31,14 @@
(LET* ((|dv$1| (|devaluate| |#1|))
(|dv$| (LIST '|AbelianMonoid&| |dv$1|)) ($ (|newShell| 20))
(|pv$| (|buildPredVector| 0 0 NIL)))
- (|setShellEntry| $ 0 |dv$|)
- (|setShellEntry| $ 3 |pv$|)
+ (SETF (|shellEntry| $ 0) |dv$|)
+ (SETF (|shellEntry| $ 3) |pv$|)
(|stuffDomainSlots| $)
- (|setShellEntry| $ 6 |#1|)
+ (SETF (|shellEntry| $ 6) |#1|)
(COND
((|HasCategory| |#1| '(|Ring|)))
- (T (|setShellEntry| $ 19
- (CONS (|dispatchFunction| |ABELMON-;*;Nni2S;4|) $))))
+ (T (SETF (|shellEntry| $ 19)
+ (CONS (|dispatchFunction| |ABELMON-;*;Nni2S;4|) $))))
$))
(MAKEPROP '|AbelianMonoid&| '|infovec|