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 | |
| 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')
71 files changed, 505 insertions, 488 deletions
diff --git a/src/algebra/strap/ABELGRP-.lsp b/src/algebra/strap/ABELGRP-.lsp index a10e5227..53465f1c 100644 --- a/src/algebra/strap/ABELGRP-.lsp +++ b/src/algebra/strap/ABELGRP-.lsp @@ -35,14 +35,14 @@ (LET* ((|dv$1| (|devaluate| |#1|)) (|dv$| (LIST '|AbelianGroup&| |dv$1|)) ($ (|newShell| 27)) (|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| $ 26 - (CONS (|dispatchFunction| |ABELGRP-;*;I2S;4|) $)))) + (T (SETF (|shellEntry| $ 26) + (CONS (|dispatchFunction| |ABELGRP-;*;I2S;4|) $)))) $)) (MAKEPROP '|AbelianGroup&| '|infovec| diff --git a/src/algebra/strap/ABELGRP.lsp b/src/algebra/strap/ABELGRP.lsp index 22c7b920..a089f569 100644 --- a/src/algebra/strap/ABELGRP.lsp +++ b/src/algebra/strap/ABELGRP.lsp @@ -11,7 +11,7 @@ (|mkCategory| '|domain| '(((- ($ $)) T) ((- ($ $ $)) T)) NIL 'NIL NIL))))) - (|setShellEntry| #0# 0 '(|AbelianGroup|)) + (SETF (|shellEntry| #0# 0) '(|AbelianGroup|)) #0#)) (DEFUN |AbelianGroup| () 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| diff --git a/src/algebra/strap/ABELMON.lsp b/src/algebra/strap/ABELMON.lsp index 84630f4a..6d804db3 100644 --- a/src/algebra/strap/ABELMON.lsp +++ b/src/algebra/strap/ABELMON.lsp @@ -12,7 +12,7 @@ ((|zero?| ((|Boolean|) $)) T) ((* ($ (|NonNegativeInteger|) $)) T)) NIL '((|NonNegativeInteger|) (|Boolean|)) NIL)))) - (|setShellEntry| #0# 0 '(|AbelianMonoid|)) + (SETF (|shellEntry| #0# 0) '(|AbelianMonoid|)) #0#)) (DEFUN |AbelianMonoid| () diff --git a/src/algebra/strap/ABELSG-.lsp b/src/algebra/strap/ABELSG-.lsp index c06795c0..a6270096 100644 --- a/src/algebra/strap/ABELSG-.lsp +++ b/src/algebra/strap/ABELSG-.lsp @@ -12,14 +12,14 @@ (LET* ((|dv$1| (|devaluate| |#1|)) (|dv$| (LIST '|AbelianSemiGroup&| |dv$1|)) ($ (|newShell| 11)) (|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| $ 10 - (CONS (|dispatchFunction| |ABELSG-;*;Pi2S;1|) $)))) + (T (SETF (|shellEntry| $ 10) + (CONS (|dispatchFunction| |ABELSG-;*;Pi2S;1|) $)))) $)) (MAKEPROP '|AbelianSemiGroup&| '|infovec| diff --git a/src/algebra/strap/ABELSG.lsp b/src/algebra/strap/ABELSG.lsp index 7e50c7f2..5a89a18f 100644 --- a/src/algebra/strap/ABELSG.lsp +++ b/src/algebra/strap/ABELSG.lsp @@ -10,7 +10,7 @@ '(((+ ($ $ $)) T) ((* ($ (|PositiveInteger|) $)) T)) NIL '((|PositiveInteger|)) NIL)))) - (|setShellEntry| #0# 0 '(|AbelianSemiGroup|)) + (SETF (|shellEntry| #0# 0) '(|AbelianSemiGroup|)) #0#)) (DEFUN |AbelianSemiGroup| () diff --git a/src/algebra/strap/ALAGG.lsp b/src/algebra/strap/ALAGG.lsp index 28958d18..738a2062 100644 --- a/src/algebra/strap/ALAGG.lsp +++ b/src/algebra/strap/ALAGG.lsp @@ -29,9 +29,9 @@ |t#1| $)) T)) NIL 'NIL NIL))))))))) - (|setShellEntry| #0# 0 - (LIST '|AssociationListAggregate| (|devaluate| |t#1|) - (|devaluate| |t#2|))) + (SETF (|shellEntry| #0# 0) + (LIST '|AssociationListAggregate| (|devaluate| |t#1|) + (|devaluate| |t#2|))) #0#)) (DEFUN |AssociationListAggregate| (&REST #0=#:G1377 &AUX #1=#:G1375) diff --git a/src/algebra/strap/BOOLEAN.lsp b/src/algebra/strap/BOOLEAN.lsp index ad0e0af6..3be57204 100644 --- a/src/algebra/strap/BOOLEAN.lsp +++ b/src/algebra/strap/BOOLEAN.lsp @@ -165,8 +165,8 @@ (DECLARE (SPECIAL |$ConstructorCache|)) (LET ((|dv$| '(|Boolean|)) ($ (|newShell| 39)) (|pv$| (|buildPredVector| 0 0 NIL))) - (|setShellEntry| $ 0 |dv$|) - (|setShellEntry| $ 3 |pv$|) + (SETF (|shellEntry| $ 0) |dv$|) + (SETF (|shellEntry| $ 3) |pv$|) (|haddProp| |$ConstructorCache| '|Boolean| NIL (CONS 1 $)) (|stuffDomainSlots| $) $)) diff --git a/src/algebra/strap/CABMON.lsp b/src/algebra/strap/CABMON.lsp index d8673af2..d1719927 100644 --- a/src/algebra/strap/CABMON.lsp +++ b/src/algebra/strap/CABMON.lsp @@ -10,7 +10,7 @@ '(((|subtractIfCan| ((|Union| $ "failed") $ $)) T)) NIL 'NIL NIL)))) - (|setShellEntry| #0# 0 '(|CancellationAbelianMonoid|)) + (SETF (|shellEntry| #0# 0) '(|CancellationAbelianMonoid|)) #0#)) (DEFUN |CancellationAbelianMonoid| () diff --git a/src/algebra/strap/CHAR.lsp b/src/algebra/strap/CHAR.lsp index f886884b..a2a1ff14 100644 --- a/src/algebra/strap/CHAR.lsp +++ b/src/algebra/strap/CHAR.lsp @@ -266,8 +266,8 @@ (DECLARE (SPECIAL |$ConstructorCache|)) (LET ((|dv$| '(|Character|)) ($ (|newShell| 62)) (|pv$| (|buildPredVector| 0 0 NIL))) - (|setShellEntry| $ 0 |dv$|) - (|setShellEntry| $ 3 |pv$|) + (SETF (|shellEntry| $ 0) |dv$|) + (SETF (|shellEntry| $ 3) |pv$|) (|haddProp| |$ConstructorCache| '|Character| NIL (CONS 1 $)) (|stuffDomainSlots| $) $)) diff --git a/src/algebra/strap/CLAGG-.lsp b/src/algebra/strap/CLAGG-.lsp index 91ec911e..e30b90d6 100644 --- a/src/algebra/strap/CLAGG-.lsp +++ b/src/algebra/strap/CLAGG-.lsp @@ -133,43 +133,45 @@ '(|ConvertibleTo| (|InputForm|))) (|HasCategory| |#2| '(|SetCategory|)) (|HasAttribute| |#1| '|finiteAggregate|))))) - (|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 ((|testBitVector| |pv$| 3) (PROGN - (|setShellEntry| $ 12 - (CONS (|dispatchFunction| |CLAGG-;#;ANni;1|) $)) - (|setShellEntry| $ 18 - (CONS (|dispatchFunction| |CLAGG-;count;MANni;2|) $)) - (|setShellEntry| $ 21 - (CONS (|dispatchFunction| |CLAGG-;any?;MAB;3|) $)) - (|setShellEntry| $ 24 - (CONS (|dispatchFunction| |CLAGG-;every?;MAB;4|) $)) - (|setShellEntry| $ 27 - (CONS (|dispatchFunction| |CLAGG-;find;MAU;5|) $)) - (|setShellEntry| $ 30 - (CONS (|dispatchFunction| |CLAGG-;reduce;MAS;6|) $)) - (|setShellEntry| $ 32 - (CONS (|dispatchFunction| |CLAGG-;reduce;MA2S;7|) $)) - (|setShellEntry| $ 35 - (CONS (|dispatchFunction| |CLAGG-;remove;M2A;8|) $)) - (|setShellEntry| $ 37 - (CONS (|dispatchFunction| |CLAGG-;select;M2A;9|) $)) + (SETF (|shellEntry| $ 12) + (CONS (|dispatchFunction| |CLAGG-;#;ANni;1|) $)) + (SETF (|shellEntry| $ 18) + (CONS (|dispatchFunction| |CLAGG-;count;MANni;2|) $)) + (SETF (|shellEntry| $ 21) + (CONS (|dispatchFunction| |CLAGG-;any?;MAB;3|) $)) + (SETF (|shellEntry| $ 24) + (CONS (|dispatchFunction| |CLAGG-;every?;MAB;4|) $)) + (SETF (|shellEntry| $ 27) + (CONS (|dispatchFunction| |CLAGG-;find;MAU;5|) $)) + (SETF (|shellEntry| $ 30) + (CONS (|dispatchFunction| |CLAGG-;reduce;MAS;6|) $)) + (SETF (|shellEntry| $ 32) + (CONS (|dispatchFunction| |CLAGG-;reduce;MA2S;7|) $)) + (SETF (|shellEntry| $ 35) + (CONS (|dispatchFunction| |CLAGG-;remove;M2A;8|) $)) + (SETF (|shellEntry| $ 37) + (CONS (|dispatchFunction| |CLAGG-;select;M2A;9|) $)) (COND ((|testBitVector| |pv$| 2) (PROGN - (|setShellEntry| $ 40 - (CONS (|dispatchFunction| |CLAGG-;remove;S2A;10|) $)) - (|setShellEntry| $ 42 - (CONS (|dispatchFunction| |CLAGG-;reduce;MA3S;11|) $)) - (|setShellEntry| $ 44 - (CONS (|dispatchFunction| - |CLAGG-;removeDuplicates;2A;12|) - $)))))))) + (SETF (|shellEntry| $ 40) + (CONS (|dispatchFunction| |CLAGG-;remove;S2A;10|) + $)) + (SETF (|shellEntry| $ 42) + (CONS (|dispatchFunction| |CLAGG-;reduce;MA3S;11|) + $)) + (SETF (|shellEntry| $ 44) + (CONS (|dispatchFunction| + |CLAGG-;removeDuplicates;2A;12|) + $)))))))) $)) (MAKEPROP '|Collection&| '|infovec| diff --git a/src/algebra/strap/CLAGG.lsp b/src/algebra/strap/CLAGG.lsp index 85246919..3bc59621 100644 --- a/src/algebra/strap/CLAGG.lsp +++ b/src/algebra/strap/CLAGG.lsp @@ -66,7 +66,8 @@ (|has| |t#1| (|ConvertibleTo| (|InputForm|))))) '((|List| |t#1|)) NIL)))))))) - (|setShellEntry| #0# 0 (LIST '|Collection| (|devaluate| |t#1|))) + (SETF (|shellEntry| #0# 0) + (LIST '|Collection| (|devaluate| |t#1|))) #0#)) (DEFUN |Collection| (#0=#:G1373) diff --git a/src/algebra/strap/COMRING.lsp b/src/algebra/strap/COMRING.lsp index 125e68cb..2c90cf82 100644 --- a/src/algebra/strap/COMRING.lsp +++ b/src/algebra/strap/COMRING.lsp @@ -8,7 +8,7 @@ (|Join| (|Ring|) (|BiModule| '$ '$) (|mkCategory| '|package| NIL '(((|commutative| "*") T)) 'NIL NIL)))) - (|setShellEntry| #0# 0 '(|CommutativeRing|)) + (SETF (|shellEntry| #0# 0) '(|CommutativeRing|)) #0#)) (DEFUN |CommutativeRing| () diff --git a/src/algebra/strap/DFLOAT.lsp b/src/algebra/strap/DFLOAT.lsp index 7f68cab6..a5f3881d 100644 --- a/src/algebra/strap/DFLOAT.lsp +++ b/src/algebra/strap/DFLOAT.lsp @@ -915,8 +915,8 @@ (DECLARE (SPECIAL |$ConstructorCache|)) (LET ((|dv$| '(|DoubleFloat|)) ($ (|newShell| 164)) (|pv$| (|buildPredVector| 0 0 NIL))) - (|setShellEntry| $ 0 |dv$|) - (|setShellEntry| $ 3 |pv$|) + (SETF (|shellEntry| $ 0) |dv$|) + (SETF (|shellEntry| $ 3) |pv$|) (|haddProp| |$ConstructorCache| '|DoubleFloat| NIL (CONS 1 $)) (|stuffDomainSlots| $) $)) diff --git a/src/algebra/strap/DIFRING.lsp b/src/algebra/strap/DIFRING.lsp index 0b5fa14c..b9b784d8 100644 --- a/src/algebra/strap/DIFRING.lsp +++ b/src/algebra/strap/DIFRING.lsp @@ -5,7 +5,7 @@ (DEFUN |DifferentialRing;| () (LET ((#0=#:G1372 (|Join| (|Ring|) (|DifferentialSpace|)))) - (|setShellEntry| #0# 0 '(|DifferentialRing|)) + (SETF (|shellEntry| #0# 0) '(|DifferentialRing|)) #0#)) (DEFUN |DifferentialRing| () diff --git a/src/algebra/strap/DIVRING-.lsp b/src/algebra/strap/DIVRING-.lsp index ffcd2e1d..822769d1 100644 --- a/src/algebra/strap/DIVRING-.lsp +++ b/src/algebra/strap/DIVRING-.lsp @@ -31,10 +31,10 @@ (LET* ((|dv$1| (|devaluate| |#1|)) (|dv$| (LIST '|DivisionRing&| |dv$1|)) ($ (|newShell| 29)) (|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|) $)) (MAKEPROP '|DivisionRing&| '|infovec| diff --git a/src/algebra/strap/DIVRING.lsp b/src/algebra/strap/DIVRING.lsp index 8b678a03..13f9c32f 100644 --- a/src/algebra/strap/DIVRING.lsp +++ b/src/algebra/strap/DIVRING.lsp @@ -11,7 +11,7 @@ '(((** ($ $ (|Integer|))) T) ((|inv| ($ $)) T)) NIL '((|Integer|)) NIL))))) - (|setShellEntry| #0# 0 '(|DivisionRing|)) + (SETF (|shellEntry| #0# 0) '(|DivisionRing|)) #0#)) (DEFUN |DivisionRing| () diff --git a/src/algebra/strap/ENTIRER.lsp b/src/algebra/strap/ENTIRER.lsp index cd7f845a..fa02fa3d 100644 --- a/src/algebra/strap/ENTIRER.lsp +++ b/src/algebra/strap/ENTIRER.lsp @@ -8,7 +8,7 @@ (|Join| (|Ring|) (|BiModule| '$ '$) (|mkCategory| '|package| NIL '((|noZeroDivisors| T)) 'NIL NIL)))) - (|setShellEntry| #0# 0 '(|EntireRing|)) + (SETF (|shellEntry| #0# 0) '(|EntireRing|)) #0#)) (DEFUN |EntireRing| () diff --git a/src/algebra/strap/EUCDOM-.lsp b/src/algebra/strap/EUCDOM-.lsp index 28c0a095..f1cac41f 100644 --- a/src/algebra/strap/EUCDOM-.lsp +++ b/src/algebra/strap/EUCDOM-.lsp @@ -327,10 +327,10 @@ (LET* ((|dv$1| (|devaluate| |#1|)) (|dv$| (LIST '|EuclideanDomain&| |dv$1|)) ($ (|newShell| 66)) (|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|) $)) (MAKEPROP '|EuclideanDomain&| '|infovec| diff --git a/src/algebra/strap/EUCDOM.lsp b/src/algebra/strap/EUCDOM.lsp index 1704e681..8a9e63ef 100644 --- a/src/algebra/strap/EUCDOM.lsp +++ b/src/algebra/strap/EUCDOM.lsp @@ -36,7 +36,7 @@ '((|List| $) (|NonNegativeInteger|) (|Boolean|)) NIL)))) - (|setShellEntry| #0# 0 '(|EuclideanDomain|)) + (SETF (|shellEntry| #0# 0) '(|EuclideanDomain|)) #0#)) (DEFUN |EuclideanDomain| () diff --git a/src/algebra/strap/FFIELDC-.lsp b/src/algebra/strap/FFIELDC-.lsp index 67a74101..e94aad9f 100644 --- a/src/algebra/strap/FFIELDC-.lsp +++ b/src/algebra/strap/FFIELDC-.lsp @@ -402,11 +402,8 @@ (T (SEQ (LETT |rho| - (SPADCALL - (CDR |rhoHelp|) - |mult| - (|getShellEntry| $ - 92)) + (* (CDR |rhoHelp|) + |mult|) |FFIELDC-;discreteLog;2SU;12|) (SETQ |disclog| (+ |disclog| |rho|)) @@ -427,48 +424,48 @@ (EXIT (CONS 0 |disclog|)))))))))) (DEFUN |FFIELDC-;squareFreePolynomial| (|f| $) - (SPADCALL |f| (|getShellEntry| $ 97))) + (SPADCALL |f| (|getShellEntry| $ 96))) (DEFUN |FFIELDC-;factorPolynomial| (|f| $) - (SPADCALL |f| (|getShellEntry| $ 99))) + (SPADCALL |f| (|getShellEntry| $ 98))) (DEFUN |FFIELDC-;factorSquareFreePolynomial| (|f| $) (COND - ((SPADCALL |f| (|spadConstant| $ 100) (|getShellEntry| $ 101)) - (|spadConstant| $ 102)) - (T (LET ((|flist| (SPADCALL |f| T (|getShellEntry| $ 106)))) - (SPADCALL (SPADCALL (CAR |flist|) (|getShellEntry| $ 107)) + ((SPADCALL |f| (|spadConstant| $ 99) (|getShellEntry| $ 100)) + (|spadConstant| $ 101)) + (T (LET ((|flist| (SPADCALL |f| T (|getShellEntry| $ 105)))) + (SPADCALL (SPADCALL (CAR |flist|) (|getShellEntry| $ 106)) (LET ((#0=#:G1483 NIL) (#1=#:G1484 T) (#2=#:G1495 (CDR |flist|))) (LOOP (COND ((ATOM #2#) (RETURN - (COND (#1# (|spadConstant| $ 110)) (T #0#)))) + (COND (#1# (|spadConstant| $ 109)) (T #0#)))) (T (LET ((|u| (CAR #2#))) (LET ((#3=#:G1482 (SPADCALL (CAR |u|) (CDR |u|) - (|getShellEntry| $ 108)))) + (|getShellEntry| $ 107)))) (COND (#1# (SETQ #0# #3#)) (T (SETQ #0# (SPADCALL #0# #3# - (|getShellEntry| $ 109))))) + (|getShellEntry| $ 108))))) (SETQ #1# NIL))))) (SETQ #2# (CDR #2#)))) - (|getShellEntry| $ 111)))))) + (|getShellEntry| $ 110)))))) (DEFUN |FFIELDC-;gcdPolynomial;3Sup;16| (|f| |g| $) - (SPADCALL |f| |g| (|getShellEntry| $ 113))) + (SPADCALL |f| |g| (|getShellEntry| $ 112))) (DEFUN |FiniteFieldCategory&| (|#1|) (LET* ((|dv$1| (|devaluate| |#1|)) (|dv$| (LIST '|FiniteFieldCategory&| |dv$1|)) - ($ (|newShell| 116)) (|pv$| (|buildPredVector| 0 0 NIL))) - (|setShellEntry| $ 0 |dv$|) - (|setShellEntry| $ 3 |pv$|) + ($ (|newShell| 115)) (|pv$| (|buildPredVector| 0 0 NIL))) + (SETF (|shellEntry| $ 0) |dv$|) + (SETF (|shellEntry| $ 3) |pv$|) (|stuffDomainSlots| $) - (|setShellEntry| $ 6 |#1|) + (SETF (|shellEntry| $ 6) |#1|) $)) (MAKEPROP '|FiniteFieldCategory&| '|infovec| @@ -506,27 +503,27 @@ (225 . |rem|) (231 . |zero?|) (|Factored| $) (236 . |factor|) (|Factored| 20) (241 . |factors|) (|DiscreteLogarithmPackage| 6) - (246 . |shanksDiscLogAlgorithm|) (253 . *) + (246 . |shanksDiscLogAlgorithm|) |FFIELDC-;discreteLog;2SU;12| - (|SparseUnivariatePolynomial| 6) (|Factored| 94) - (|UnivariatePolynomialSquareFree| 6 94) - (259 . |squareFree|) (|DistinctDegreeFactorize| 6 94) - (264 . |factor|) (269 . |Zero|) (273 . =) (279 . |Zero|) - (|Record| (|:| |irr| 94) (|:| |pow| 20)) (|List| 103) - (|Record| (|:| |cont| 6) (|:| |factors| 104)) - (283 . |distdfact|) (289 . |coerce|) (294 . |primeFactor|) - (300 . *) (306 . |One|) (310 . *) (|EuclideanDomain&| 94) - (316 . |gcd|) (|SparseUnivariatePolynomial| $) + (|SparseUnivariatePolynomial| 6) (|Factored| 93) + (|UnivariatePolynomialSquareFree| 6 93) + (253 . |squareFree|) (|DistinctDegreeFactorize| 6 93) + (258 . |factor|) (263 . |Zero|) (267 . =) (273 . |Zero|) + (|Record| (|:| |irr| 93) (|:| |pow| 20)) (|List| 102) + (|Record| (|:| |cont| 6) (|:| |factors| 103)) + (277 . |distdfact|) (283 . |coerce|) (288 . |primeFactor|) + (294 . *) (300 . |One|) (304 . *) (|EuclideanDomain&| 93) + (310 . |gcd|) (|SparseUnivariatePolynomial| $) |FFIELDC-;gcdPolynomial;3Sup;16|) - '#(|primitive?| 322 |order| 327 |nextItem| 337 |init| 342 - |gcdPolynomial| 346 |discreteLog| 352 |differentiate| 363 - |createPrimitiveElement| 368 |conditionP| 372 |charthRoot| - 377) + '#(|primitive?| 316 |order| 321 |nextItem| 331 |init| 336 + |gcdPolynomial| 340 |discreteLog| 346 |differentiate| 357 + |createPrimitiveElement| 362 |conditionP| 366 |charthRoot| + 371) 'NIL (CONS (|makeByteWordVec2| 1 'NIL) (CONS '#() (CONS '#() - (|makeByteWordVec2| 115 + (|makeByteWordVec2| 114 '(0 6 0 7 1 6 10 0 11 0 10 0 12 2 10 0 0 0 13 1 6 0 10 14 1 6 15 0 16 1 6 10 0 19 1 21 0 20 22 1 26 25 0 27 1 25 @@ -543,14 +540,14 @@ 2 20 0 20 0 75 1 20 0 0 76 2 6 0 0 0 77 2 20 0 0 0 78 1 82 80 81 83 2 39 0 0 0 84 1 39 15 0 85 1 20 86 0 87 1 88 - 55 0 89 3 90 70 6 6 39 91 2 20 0 39 0 - 92 1 96 95 94 97 1 98 95 94 99 0 94 0 - 100 2 94 15 0 0 101 0 95 0 102 2 98 - 105 94 15 106 1 94 0 6 107 2 95 0 94 - 20 108 2 95 0 0 0 109 0 95 0 110 2 95 - 0 94 0 111 2 112 0 0 0 113 1 0 15 0 - 60 1 0 10 0 64 1 0 21 0 23 1 0 17 0 - 18 0 0 0 9 2 0 114 114 114 115 1 0 39 - 0 79 2 0 70 0 0 93 1 0 0 0 8 0 0 0 53 - 1 0 36 37 38 1 0 0 0 44 1 0 17 0 45))))) + 55 0 89 3 90 70 6 6 39 91 1 95 94 93 + 96 1 97 94 93 98 0 93 0 99 2 93 15 0 + 0 100 0 94 0 101 2 97 104 93 15 105 1 + 93 0 6 106 2 94 0 93 20 107 2 94 0 0 + 0 108 0 94 0 109 2 94 0 93 0 110 2 + 111 0 0 0 112 1 0 15 0 60 1 0 10 0 64 + 1 0 21 0 23 1 0 17 0 18 0 0 0 9 2 0 + 113 113 113 114 1 0 39 0 79 2 0 70 0 + 0 92 1 0 0 0 8 0 0 0 53 1 0 36 37 38 + 1 0 0 0 44 1 0 17 0 45))))) '|lookupComplete|)) diff --git a/src/algebra/strap/FFIELDC.lsp b/src/algebra/strap/FFIELDC.lsp index 5bf2d89c..e4904d9d 100644 --- a/src/algebra/strap/FFIELDC.lsp +++ b/src/algebra/strap/FFIELDC.lsp @@ -43,7 +43,7 @@ (|:| |exponent| (|Integer|)))) (|Matrix| $)) NIL)))) - (|setShellEntry| #0# 0 '(|FiniteFieldCategory|)) + (SETF (|shellEntry| #0# 0) '(|FiniteFieldCategory|)) #0#)) (DEFUN |FiniteFieldCategory| () diff --git a/src/algebra/strap/FPS-.lsp b/src/algebra/strap/FPS-.lsp index e98d51fa..cc13cc83 100644 --- a/src/algebra/strap/FPS-.lsp +++ b/src/algebra/strap/FPS-.lsp @@ -29,10 +29,10 @@ (|pv$| (|buildPredVector| 0 0 (LIST (|HasAttribute| |#1| '|arbitraryExponent|) (|HasAttribute| |#1| '|arbitraryPrecision|))))) - (|setShellEntry| $ 0 |dv$|) - (|setShellEntry| $ 3 |pv$|) + (SETF (|shellEntry| $ 0) |dv$|) + (SETF (|shellEntry| $ 3) |pv$|) (|stuffDomainSlots| $) - (|setShellEntry| $ 6 |#1|) + (SETF (|shellEntry| $ 6) |#1|) $)) (MAKEPROP '|FloatingPointSystem&| '|infovec| diff --git a/src/algebra/strap/FPS.lsp b/src/algebra/strap/FPS.lsp index 2b75657f..51f60a2b 100644 --- a/src/algebra/strap/FPS.lsp +++ b/src/algebra/strap/FPS.lsp @@ -49,7 +49,7 @@ (ATTRIBUTE |arbitraryExponent|)))))) '((|approximate| T)) '((|PositiveInteger|) (|Integer|)) NIL)))) - (|setShellEntry| #0# 0 '(|FloatingPointSystem|)) + (SETF (|shellEntry| #0# 0) '(|FloatingPointSystem|)) #0#)) (DEFUN |FloatingPointSystem| () diff --git a/src/algebra/strap/GCDDOM-.lsp b/src/algebra/strap/GCDDOM-.lsp index da18be94..33cd4136 100644 --- a/src/algebra/strap/GCDDOM-.lsp +++ b/src/algebra/strap/GCDDOM-.lsp @@ -163,10 +163,10 @@ (LET* ((|dv$1| (|devaluate| |#1|)) (|dv$| (LIST '|GcdDomain&| |dv$1|)) ($ (|newShell| 47)) (|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|) $)) (MAKEPROP '|GcdDomain&| '|infovec| diff --git a/src/algebra/strap/GCDDOM.lsp b/src/algebra/strap/GCDDOM.lsp index f638ac77..51447060 100644 --- a/src/algebra/strap/GCDDOM.lsp +++ b/src/algebra/strap/GCDDOM.lsp @@ -19,7 +19,7 @@ NIL '((|SparseUnivariatePolynomial| $) (|List| $)) NIL)))) - (|setShellEntry| #0# 0 '(|GcdDomain|)) + (SETF (|shellEntry| #0# 0) '(|GcdDomain|)) #0#)) (DEFUN |GcdDomain| () diff --git a/src/algebra/strap/HOAGG-.lsp b/src/algebra/strap/HOAGG-.lsp index 53a50ebe..2f772779 100644 --- a/src/algebra/strap/HOAGG-.lsp +++ b/src/algebra/strap/HOAGG-.lsp @@ -151,43 +151,45 @@ (|HasCategory| |#2| '(|BasicType|)) (|HasCategory| |#2| '(|CoercibleTo| (|OutputForm|))))))) - (|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 ((|testBitVector| |pv$| 3) - (|setShellEntry| $ 13 - (CONS (|dispatchFunction| |HOAGG-;eval;ALA;1|) $)))) + (SETF (|shellEntry| $ 13) + (CONS (|dispatchFunction| |HOAGG-;eval;ALA;1|) $)))) (COND ((|testBitVector| |pv$| 1) (PROGN - (|setShellEntry| $ 18 - (CONS (|dispatchFunction| |HOAGG-;#;ANni;2|) $)) - (|setShellEntry| $ 23 - (CONS (|dispatchFunction| |HOAGG-;any?;MAB;3|) $)) - (|setShellEntry| $ 26 - (CONS (|dispatchFunction| |HOAGG-;every?;MAB;4|) $)) - (|setShellEntry| $ 30 - (CONS (|dispatchFunction| |HOAGG-;count;MANni;5|) $)) - (|setShellEntry| $ 31 - (CONS (|dispatchFunction| |HOAGG-;members;AL;6|) $)) + (SETF (|shellEntry| $ 18) + (CONS (|dispatchFunction| |HOAGG-;#;ANni;2|) $)) + (SETF (|shellEntry| $ 23) + (CONS (|dispatchFunction| |HOAGG-;any?;MAB;3|) $)) + (SETF (|shellEntry| $ 26) + (CONS (|dispatchFunction| |HOAGG-;every?;MAB;4|) $)) + (SETF (|shellEntry| $ 30) + (CONS (|dispatchFunction| |HOAGG-;count;MANni;5|) $)) + (SETF (|shellEntry| $ 31) + (CONS (|dispatchFunction| |HOAGG-;members;AL;6|) $)) (COND ((|testBitVector| |pv$| 5) - (|setShellEntry| $ 35 - (CONS (|dispatchFunction| |HOAGG-;=;2AB;7|) $)))) + (SETF (|shellEntry| $ 35) + (CONS (|dispatchFunction| |HOAGG-;=;2AB;7|) $)))) (COND ((|testBitVector| |pv$| 4) (PROGN - (|setShellEntry| $ 37 - (CONS (|dispatchFunction| |HOAGG-;count;SANni;8|) $)) - (|setShellEntry| $ 39 - (CONS (|dispatchFunction| |HOAGG-;member?;SAB;9|) $))))) + (SETF (|shellEntry| $ 37) + (CONS (|dispatchFunction| |HOAGG-;count;SANni;8|) + $)) + (SETF (|shellEntry| $ 39) + (CONS (|dispatchFunction| |HOAGG-;member?;SAB;9|) + $))))) (COND ((|testBitVector| |pv$| 6) - (|setShellEntry| $ 45 - (CONS (|dispatchFunction| |HOAGG-;coerce;AOf;10|) $))))))) + (SETF (|shellEntry| $ 45) + (CONS (|dispatchFunction| |HOAGG-;coerce;AOf;10|) $))))))) $)) (MAKEPROP '|HomogeneousAggregate&| '|infovec| diff --git a/src/algebra/strap/HOAGG.lsp b/src/algebra/strap/HOAGG.lsp index c824102a..05925366 100644 --- a/src/algebra/strap/HOAGG.lsp +++ b/src/algebra/strap/HOAGG.lsp @@ -73,8 +73,8 @@ (|NonNegativeInteger|) (|List| |t#1|)) NIL)))))))) - (|setShellEntry| #0# 0 - (LIST '|HomogeneousAggregate| (|devaluate| |t#1|))) + (SETF (|shellEntry| #0# 0) + (LIST '|HomogeneousAggregate| (|devaluate| |t#1|))) #0#)) (DEFUN |HomogeneousAggregate| (#0=#:G1374) diff --git a/src/algebra/strap/ILIST.lsp b/src/algebra/strap/ILIST.lsp index f5da4692..8bc1239f 100644 --- a/src/algebra/strap/ILIST.lsp +++ b/src/algebra/strap/ILIST.lsp @@ -459,31 +459,31 @@ (|HasCategory| |#1| (LIST '|Evalable| (|devaluate| |#1|)))))))) - (|setShellEntry| $ 0 |dv$|) - (|setShellEntry| $ 3 |pv$|) + (SETF (|shellEntry| $ 0) |dv$|) + (SETF (|shellEntry| $ 3) |pv$|) (|haddProp| |$ConstructorCache| '|IndexedList| (LIST |dv$1| |dv$2|) (CONS 1 $)) (|stuffDomainSlots| $) - (|setShellEntry| $ 6 |#1|) - (|setShellEntry| $ 7 |#2|) + (SETF (|shellEntry| $ 6) |#1|) + (SETF (|shellEntry| $ 7) |#2|) (COND ((|testBitVector| |pv$| 9) - (|setShellEntry| $ 50 - (CONS (|dispatchFunction| |ILIST;coerce;$Of;21|) $)))) + (SETF (|shellEntry| $ 50) + (CONS (|dispatchFunction| |ILIST;coerce;$Of;21|) $)))) (COND ((|testBitVector| |pv$| 8) (PROGN - (|setShellEntry| $ 54 - (CONS (|dispatchFunction| |ILIST;=;2$B;22|) $)) - (|setShellEntry| $ 58 - (CONS (|dispatchFunction| |ILIST;latex;$S;23|) $)) - (|setShellEntry| $ 60 - (CONS (|dispatchFunction| |ILIST;member?;S$B;24|) $))))) + (SETF (|shellEntry| $ 54) + (CONS (|dispatchFunction| |ILIST;=;2$B;22|) $)) + (SETF (|shellEntry| $ 58) + (CONS (|dispatchFunction| |ILIST;latex;$S;23|) $)) + (SETF (|shellEntry| $ 60) + (CONS (|dispatchFunction| |ILIST;member?;S$B;24|) $))))) (COND ((|testBitVector| |pv$| 8) - (|setShellEntry| $ 62 - (CONS (|dispatchFunction| |ILIST;removeDuplicates!;2$;26|) - $)))) + (SETF (|shellEntry| $ 62) + (CONS (|dispatchFunction| |ILIST;removeDuplicates!;2$;26|) + $)))) $)) (MAKEPROP '|IndexedList| '|infovec| diff --git a/src/algebra/strap/INS-.lsp b/src/algebra/strap/INS-.lsp index 19a232bd..f210ce16 100644 --- a/src/algebra/strap/INS-.lsp +++ b/src/algebra/strap/INS-.lsp @@ -306,10 +306,10 @@ (LET* ((|dv$1| (|devaluate| |#1|)) (|dv$| (LIST '|IntegerNumberSystem&| |dv$1|)) ($ (|newShell| 93)) (|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|) $)) (MAKEPROP '|IntegerNumberSystem&| '|infovec| diff --git a/src/algebra/strap/INS.lsp b/src/algebra/strap/INS.lsp index 33bf5b64..5c3260e3 100644 --- a/src/algebra/strap/INS.lsp +++ b/src/algebra/strap/INS.lsp @@ -50,7 +50,7 @@ (|canonicalUnitNormal| T)) '((|Fraction| (|Integer|)) (|Boolean|)) NIL))))) - (|setShellEntry| #0# 0 '(|IntegerNumberSystem|)) + (SETF (|shellEntry| #0# 0) '(|IntegerNumberSystem|)) #0#)) (DEFUN |IntegerNumberSystem| () diff --git a/src/algebra/strap/INT.lsp b/src/algebra/strap/INT.lsp index 05e4417f..766191d0 100644 --- a/src/algebra/strap/INT.lsp +++ b/src/algebra/strap/INT.lsp @@ -515,13 +515,13 @@ (DECLARE (SPECIAL |$ConstructorCache|)) (LET ((|dv$| '(|Integer|)) ($ (|newShell| 140)) (|pv$| (|buildPredVector| 0 0 NIL))) - (|setShellEntry| $ 0 |dv$|) - (|setShellEntry| $ 3 |pv$|) + (SETF (|shellEntry| $ 0) |dv$|) + (SETF (|shellEntry| $ 3) |pv$|) (|haddProp| |$ConstructorCache| '|Integer| NIL (CONS 1 $)) (|stuffDomainSlots| $) - (|setShellEntry| $ 82 - (|setShellEntry| $ 81 - (CONS (|dispatchFunction| |INT;*;3$;43|) $))) + (SETF (|shellEntry| $ 82) + (SETF (|shellEntry| $ 81) + (CONS (|dispatchFunction| |INT;*;3$;43|) $))) $)) (MAKEPROP '|Integer| '|infovec| diff --git a/src/algebra/strap/INTDOM-.lsp b/src/algebra/strap/INTDOM-.lsp index 6936faf3..d6936be9 100644 --- a/src/algebra/strap/INTDOM-.lsp +++ b/src/algebra/strap/INTDOM-.lsp @@ -54,20 +54,21 @@ (LET* ((|dv$1| (|devaluate| |#1|)) (|dv$| (LIST '|IntegralDomain&| |dv$1|)) ($ (|newShell| 23)) (|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| '(|Field|))) - (T (|setShellEntry| $ 9 - (CONS (|dispatchFunction| |INTDOM-;unitNormal;SR;1|) $)))) + (T (SETF (|shellEntry| $ 9) + (CONS (|dispatchFunction| |INTDOM-;unitNormal;SR;1|) $)))) (COND ((|HasAttribute| |#1| '|canonicalUnitNormal|) - (|setShellEntry| $ 22 - (CONS (|dispatchFunction| |INTDOM-;associates?;2SB;5|) $))) - (T (|setShellEntry| $ 22 - (CONS (|dispatchFunction| |INTDOM-;associates?;2SB;6|) $)))) + (SETF (|shellEntry| $ 22) + (CONS (|dispatchFunction| |INTDOM-;associates?;2SB;5|) $))) + (T (SETF (|shellEntry| $ 22) + (CONS (|dispatchFunction| |INTDOM-;associates?;2SB;6|) + $)))) $)) (MAKEPROP '|IntegralDomain&| '|infovec| diff --git a/src/algebra/strap/INTDOM.lsp b/src/algebra/strap/INTDOM.lsp index 7d5baad4..4efcfa2d 100644 --- a/src/algebra/strap/INTDOM.lsp +++ b/src/algebra/strap/INTDOM.lsp @@ -18,7 +18,7 @@ ((|associates?| ((|Boolean|) $ $)) T) ((|unit?| ((|Boolean|) $)) T)) NIL '((|Boolean|)) NIL)))) - (|setShellEntry| #0# 0 '(|IntegralDomain|)) + (SETF (|shellEntry| #0# 0) '(|IntegralDomain|)) #0#)) (DEFUN |IntegralDomain| () diff --git a/src/algebra/strap/ISTRING.lsp b/src/algebra/strap/ISTRING.lsp index 578dd99f..717da9eb 100644 --- a/src/algebra/strap/ISTRING.lsp +++ b/src/algebra/strap/ISTRING.lsp @@ -694,12 +694,12 @@ '(|SetCategory|)) (|HasCategory| (|Character|) '(|Evalable| (|Character|)))))))) - (|setShellEntry| $ 0 |dv$|) - (|setShellEntry| $ 3 |pv$|) + (SETF (|shellEntry| $ 0) |dv$|) + (SETF (|shellEntry| $ 3) |pv$|) (|haddProp| |$ConstructorCache| '|IndexedString| (LIST |dv$1|) (CONS 1 $)) (|stuffDomainSlots| $) - (|setShellEntry| $ 6 |#1|) + (SETF (|shellEntry| $ 6) |#1|) $)) (MAKEPROP '|IndexedString| '|infovec| diff --git a/src/algebra/strap/LIST.lsp b/src/algebra/strap/LIST.lsp index 356679c0..eb9c9390 100644 --- a/src/algebra/strap/LIST.lsp +++ b/src/algebra/strap/LIST.lsp @@ -220,35 +220,36 @@ (|HasCategory| |#1| (LIST '|Evalable| (|devaluate| |#1|)))))))) - (|setShellEntry| $ 0 |dv$|) - (|setShellEntry| $ 3 |pv$|) + (SETF (|shellEntry| $ 0) |dv$|) + (SETF (|shellEntry| $ 3) |pv$|) (|haddProp| |$ConstructorCache| '|List| (LIST |dv$1|) (CONS 1 $)) (|stuffDomainSlots| $) - (|setShellEntry| $ 6 |#1|) + (SETF (|shellEntry| $ 6) |#1|) (COND ((|testBitVector| |pv$| 7) (PROGN - (|setShellEntry| $ 31 - (CONS (|dispatchFunction| |LIST;OMwrite;$S;6|) $)) - (|setShellEntry| $ 32 - (CONS (|dispatchFunction| |LIST;OMwrite;$BS;7|) $)) - (|setShellEntry| $ 33 - (CONS (|dispatchFunction| |LIST;OMwrite;Omd$V;8|) $)) - (|setShellEntry| $ 34 - (CONS (|dispatchFunction| |LIST;OMwrite;Omd$BV;9|) $))))) + (SETF (|shellEntry| $ 31) + (CONS (|dispatchFunction| |LIST;OMwrite;$S;6|) $)) + (SETF (|shellEntry| $ 32) + (CONS (|dispatchFunction| |LIST;OMwrite;$BS;7|) $)) + (SETF (|shellEntry| $ 33) + (CONS (|dispatchFunction| |LIST;OMwrite;Omd$V;8|) $)) + (SETF (|shellEntry| $ 34) + (CONS (|dispatchFunction| |LIST;OMwrite;Omd$BV;9|) $))))) (COND ((|testBitVector| |pv$| 9) (PROGN - (|setShellEntry| $ 37 - (CONS (|dispatchFunction| |LIST;setUnion;3$;10|) $)) - (|setShellEntry| $ 41 - (CONS (|dispatchFunction| |LIST;setIntersection;3$;11|) $)) - (|setShellEntry| $ 44 - (CONS (|dispatchFunction| |LIST;setDifference;3$;12|) $))))) + (SETF (|shellEntry| $ 37) + (CONS (|dispatchFunction| |LIST;setUnion;3$;10|) $)) + (SETF (|shellEntry| $ 41) + (CONS (|dispatchFunction| |LIST;setIntersection;3$;11|) + $)) + (SETF (|shellEntry| $ 44) + (CONS (|dispatchFunction| |LIST;setDifference;3$;12|) $))))) (COND ((|testBitVector| |pv$| 3) - (|setShellEntry| $ 53 - (CONS (|dispatchFunction| |LIST;convert;$If;13|) $)))) + (SETF (|shellEntry| $ 53) + (CONS (|dispatchFunction| |LIST;convert;$If;13|) $)))) $)) (MAKEPROP '|List| '|infovec| diff --git a/src/algebra/strap/LNAGG-.lsp b/src/algebra/strap/LNAGG-.lsp index cfe612cd..8fbb4a9f 100644 --- a/src/algebra/strap/LNAGG-.lsp +++ b/src/algebra/strap/LNAGG-.lsp @@ -58,15 +58,15 @@ ($ (|newShell| 33)) (|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| $ 31 - (CONS (|dispatchFunction| |LNAGG-;maxIndex;AI;6|) $)))) + (SETF (|shellEntry| $ 31) + (CONS (|dispatchFunction| |LNAGG-;maxIndex;AI;6|) $)))) $)) (MAKEPROP '|LinearAggregate&| '|infovec| diff --git a/src/algebra/strap/LNAGG.lsp b/src/algebra/strap/LNAGG.lsp index 8e0ae1d7..960e24fd 100644 --- a/src/algebra/strap/LNAGG.lsp +++ b/src/algebra/strap/LNAGG.lsp @@ -60,8 +60,8 @@ (|Integer|) (|List| $) (|NonNegativeInteger|)) NIL))))))))) - (|setShellEntry| #0# 0 - (LIST '|LinearAggregate| (|devaluate| |t#1|))) + (SETF (|shellEntry| #0# 0) + (LIST '|LinearAggregate| (|devaluate| |t#1|))) #0#)) (DEFUN |LinearAggregate| (#0=#:G1376) diff --git a/src/algebra/strap/LSAGG-.lsp b/src/algebra/strap/LSAGG-.lsp index f7e85f4c..501455dc 100644 --- a/src/algebra/strap/LSAGG-.lsp +++ b/src/algebra/strap/LSAGG-.lsp @@ -651,28 +651,28 @@ (LET* ((|dv$1| (|devaluate| |#1|)) (|dv$2| (|devaluate| |#2|)) (|dv$| (LIST '|ListAggregate&| |dv$1| |dv$2|)) ($ (|newShell| 78)) (|pv$| (|buildPredVector| 0 0 NIL))) - (|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 ((|HasCategory| |#2| '(|SetCategory|)) - (|setShellEntry| $ 62 - (CONS (|dispatchFunction| |LSAGG-;reduce;MA3S;17|) $)))) + (SETF (|shellEntry| $ 62) + (CONS (|dispatchFunction| |LSAGG-;reduce;MA3S;17|) $)))) (COND ((|HasCategory| |#2| '(|SetCategory|)) (PROGN - (|setShellEntry| $ 71 - (CONS (|dispatchFunction| |LSAGG-;position;SA2I;23|) $)) - (|setShellEntry| $ 74 - (CONS (|dispatchFunction| - |LSAGG-;removeDuplicates!;2A;24|) - $))))) + (SETF (|shellEntry| $ 71) + (CONS (|dispatchFunction| |LSAGG-;position;SA2I;23|) $)) + (SETF (|shellEntry| $ 74) + (CONS (|dispatchFunction| + |LSAGG-;removeDuplicates!;2A;24|) + $))))) (COND ((|HasCategory| |#2| '(|OrderedSet|)) - (|setShellEntry| $ 76 - (CONS (|dispatchFunction| |LSAGG-;<;2AB;25|) $)))) + (SETF (|shellEntry| $ 76) + (CONS (|dispatchFunction| |LSAGG-;<;2AB;25|) $)))) $)) (MAKEPROP '|ListAggregate&| '|infovec| diff --git a/src/algebra/strap/LSAGG.lsp b/src/algebra/strap/LSAGG.lsp index f3f84a5d..e84a2d74 100644 --- a/src/algebra/strap/LSAGG.lsp +++ b/src/algebra/strap/LSAGG.lsp @@ -17,7 +17,8 @@ (|mkCategory| '|domain| '(((|list| ($ |t#1|)) T)) NIL 'NIL NIL)))))))) - (|setShellEntry| #0# 0 (LIST '|ListAggregate| (|devaluate| |t#1|))) + (SETF (|shellEntry| #0# 0) + (LIST '|ListAggregate| (|devaluate| |t#1|))) #0#)) (DEFUN |ListAggregate| (#0=#:G1406) diff --git a/src/algebra/strap/MONOID-.lsp b/src/algebra/strap/MONOID-.lsp index e8679174..625ae8e5 100644 --- a/src/algebra/strap/MONOID-.lsp +++ b/src/algebra/strap/MONOID-.lsp @@ -31,10 +31,10 @@ (DEFUN |Monoid&| (|#1|) (LET* ((|dv$1| (|devaluate| |#1|)) (|dv$| (LIST '|Monoid&| |dv$1|)) ($ (|newShell| 21)) (|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|) $)) (MAKEPROP '|Monoid&| '|infovec| diff --git a/src/algebra/strap/MONOID.lsp b/src/algebra/strap/MONOID.lsp index 8ebfd39b..b5ddece3 100644 --- a/src/algebra/strap/MONOID.lsp +++ b/src/algebra/strap/MONOID.lsp @@ -13,7 +13,7 @@ ((** ($ $ (|NonNegativeInteger|))) T) ((|recip| ((|Union| $ "failed") $)) T)) NIL '((|NonNegativeInteger|) (|Boolean|)) NIL)))) - (|setShellEntry| #0# 0 '(|Monoid|)) + (SETF (|shellEntry| #0# 0) '(|Monoid|)) #0#)) (DEFUN |Monoid| () diff --git a/src/algebra/strap/MTSCAT.lsp b/src/algebra/strap/MTSCAT.lsp index cb1148e9..29c3f959 100644 --- a/src/algebra/strap/MTSCAT.lsp +++ b/src/algebra/strap/MTSCAT.lsp @@ -80,9 +80,9 @@ (|List| (|NonNegativeInteger|))) NIL))))))))) - (|setShellEntry| #0# 0 - (LIST '|MultivariateTaylorSeriesCategory| (|devaluate| |t#1|) - (|devaluate| |t#2|))) + (SETF (|shellEntry| #0# 0) + (LIST '|MultivariateTaylorSeriesCategory| (|devaluate| |t#1|) + (|devaluate| |t#2|))) #0#)) (DEFUN |MultivariateTaylorSeriesCategory| diff --git a/src/algebra/strap/NNI.lsp b/src/algebra/strap/NNI.lsp index 6223ad90..ffcb6f5b 100644 --- a/src/algebra/strap/NNI.lsp +++ b/src/algebra/strap/NNI.lsp @@ -60,8 +60,8 @@ (DECLARE (SPECIAL |$ConstructorCache|)) (LET ((|dv$| '(|NonNegativeInteger|)) ($ (|newShell| 22)) (|pv$| (|buildPredVector| 0 0 NIL))) - (|setShellEntry| $ 0 |dv$|) - (|setShellEntry| $ 3 |pv$|) + (SETF (|shellEntry| $ 0) |dv$|) + (SETF (|shellEntry| $ 3) |pv$|) (|haddProp| |$ConstructorCache| '|NonNegativeInteger| NIL (CONS 1 $)) (|stuffDomainSlots| $) diff --git a/src/algebra/strap/OINTDOM.lsp b/src/algebra/strap/OINTDOM.lsp index d828bebb..60badcf6 100644 --- a/src/algebra/strap/OINTDOM.lsp +++ b/src/algebra/strap/OINTDOM.lsp @@ -5,7 +5,7 @@ (DEFUN |OrderedIntegralDomain;| () (LET ((#0=#:G1372 (|Join| (|IntegralDomain|) (|OrderedRing|)))) - (|setShellEntry| #0# 0 '(|OrderedIntegralDomain|)) + (SETF (|shellEntry| #0# 0) '(|OrderedIntegralDomain|)) #0#)) (DEFUN |OrderedIntegralDomain| () diff --git a/src/algebra/strap/ORDRING-.lsp b/src/algebra/strap/ORDRING-.lsp index 6204c289..802dee65 100644 --- a/src/algebra/strap/ORDRING-.lsp +++ b/src/algebra/strap/ORDRING-.lsp @@ -38,10 +38,10 @@ (LET* ((|dv$1| (|devaluate| |#1|)) (|dv$| (LIST '|OrderedRing&| |dv$1|)) ($ (|newShell| 24)) (|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|) $)) (MAKEPROP '|OrderedRing&| '|infovec| diff --git a/src/algebra/strap/ORDRING.lsp b/src/algebra/strap/ORDRING.lsp index f310dd7b..db9f9682 100644 --- a/src/algebra/strap/ORDRING.lsp +++ b/src/algebra/strap/ORDRING.lsp @@ -12,7 +12,7 @@ ((|sign| ((|Integer|) $)) T) ((|abs| ($ $)) T)) NIL '((|Integer|) (|Boolean|)) NIL)))) - (|setShellEntry| #0# 0 '(|OrderedRing|)) + (SETF (|shellEntry| #0# 0) '(|OrderedRing|)) #0#)) (DEFUN |OrderedRing| () diff --git a/src/algebra/strap/OUTFORM.lsp b/src/algebra/strap/OUTFORM.lsp index 01476bd3..4ab17df6 100644 --- a/src/algebra/strap/OUTFORM.lsp +++ b/src/algebra/strap/OUTFORM.lsp @@ -529,7 +529,7 @@ (DEFUN |OUTFORM;doubleFloatFormat;2S;1| (|s| $) (LET ((|ss| (SVREF $ 6))) - (SEQ (|setShellEntry| $ 6 |s|) (EXIT |ss|)))) + (SEQ (SETF (|shellEntry| $ 6) |s|) (EXIT |ss|)))) (DEFUN |OUTFORM;sform| (|s| $) (DECLARE (IGNORE $)) |s|) @@ -988,11 +988,11 @@ (DECLARE (SPECIAL |$ConstructorCache|)) (LET ((|dv$| '(|OutputForm|)) ($ (|newShell| 150)) (|pv$| (|buildPredVector| 0 0 NIL))) - (|setShellEntry| $ 0 |dv$|) - (|setShellEntry| $ 3 |pv$|) + (SETF (|shellEntry| $ 0) |dv$|) + (SETF (|shellEntry| $ 3) |pv$|) (|haddProp| |$ConstructorCache| '|OutputForm| NIL (CONS 1 $)) (|stuffDomainSlots| $) - (|setShellEntry| $ 6 "~G") + (SETF (|shellEntry| $ 6) "~G") $)) (MAKEPROP '|OutputForm| '|infovec| diff --git a/src/algebra/strap/PI.lsp b/src/algebra/strap/PI.lsp index 91f9dd0a..c6f9420d 100644 --- a/src/algebra/strap/PI.lsp +++ b/src/algebra/strap/PI.lsp @@ -24,8 +24,8 @@ (DECLARE (SPECIAL |$ConstructorCache|)) (LET ((|dv$| '(|PositiveInteger|)) ($ (|newShell| 16)) (|pv$| (|buildPredVector| 0 0 NIL))) - (|setShellEntry| $ 0 |dv$|) - (|setShellEntry| $ 3 |pv$|) + (SETF (|shellEntry| $ 0) |dv$|) + (SETF (|shellEntry| $ 3) |pv$|) (|haddProp| |$ConstructorCache| '|PositiveInteger| NIL (CONS 1 $)) (|stuffDomainSlots| $) $)) diff --git a/src/algebra/strap/POLYCAT-.lsp b/src/algebra/strap/POLYCAT-.lsp index 71c72c64..e343ce8d 100644 --- a/src/algebra/strap/POLYCAT-.lsp +++ b/src/algebra/strap/POLYCAT-.lsp @@ -1097,66 +1097,69 @@ '(|ConvertibleTo| (|InputForm|))) (|HasCategory| |#2| '(|ConvertibleTo| (|InputForm|))))))) - (|setShellEntry| $ 0 |dv$|) - (|setShellEntry| $ 3 |pv$|) + (SETF (|shellEntry| $ 0) |dv$|) + (SETF (|shellEntry| $ 3) |pv$|) (|stuffDomainSlots| $) - (|setShellEntry| $ 6 |#1|) - (|setShellEntry| $ 7 |#2|) - (|setShellEntry| $ 8 |#3|) - (|setShellEntry| $ 9 |#4|) + (SETF (|shellEntry| $ 6) |#1|) + (SETF (|shellEntry| $ 7) |#2|) + (SETF (|shellEntry| $ 8) |#3|) + (SETF (|shellEntry| $ 9) |#4|) (COND ((|testBitVector| |pv$| 4) (PROGN - (|setShellEntry| $ 95 - (CONS (|dispatchFunction| - |POLYCAT-;resultant;2SVarSetS;15|) - $)) - (|setShellEntry| $ 97 - (CONS (|dispatchFunction| - |POLYCAT-;discriminant;SVarSetS;16|) - $))))) + (SETF (|shellEntry| $ 95) + (CONS (|dispatchFunction| + |POLYCAT-;resultant;2SVarSetS;15|) + $)) + (SETF (|shellEntry| $ 97) + (CONS (|dispatchFunction| + |POLYCAT-;discriminant;SVarSetS;16|) + $))))) (COND ((|HasCategory| |#2| '(|IntegralDomain|)) (PROGN - (|setShellEntry| $ 121 - (CONS (|dispatchFunction| |POLYCAT-;reducedSystem;MM;20|) - $)) - (|setShellEntry| $ 131 - (CONS (|dispatchFunction| |POLYCAT-;reducedSystem;MVR;21|) - $))))) + (SETF (|shellEntry| $ 121) + (CONS (|dispatchFunction| + |POLYCAT-;reducedSystem;MM;20|) + $)) + (SETF (|shellEntry| $ 131) + (CONS (|dispatchFunction| + |POLYCAT-;reducedSystem;MVR;21|) + $))))) (COND ((|testBitVector| |pv$| 1) (PROGN - (|setShellEntry| $ 134 - (CONS (|dispatchFunction| - |POLYCAT-;gcdPolynomial;3Sup;22|) - $)) - (|setShellEntry| $ 141 - (CONS (|dispatchFunction| - |POLYCAT-;solveLinearPolynomialEquation;LSupU;23|) - $)) - (|setShellEntry| $ 145 - (CONS (|dispatchFunction| - |POLYCAT-;factorPolynomial;SupF;24|) - $)) - (|setShellEntry| $ 147 - (CONS (|dispatchFunction| - |POLYCAT-;factorSquareFreePolynomial;SupF;25|) - $)) - (|setShellEntry| $ 165 - (CONS (|dispatchFunction| |POLYCAT-;factor;SF;26|) $)) + (SETF (|shellEntry| $ 134) + (CONS (|dispatchFunction| + |POLYCAT-;gcdPolynomial;3Sup;22|) + $)) + (SETF (|shellEntry| $ 141) + (CONS (|dispatchFunction| + |POLYCAT-;solveLinearPolynomialEquation;LSupU;23|) + $)) + (SETF (|shellEntry| $ 145) + (CONS (|dispatchFunction| + |POLYCAT-;factorPolynomial;SupF;24|) + $)) + (SETF (|shellEntry| $ 147) + (CONS (|dispatchFunction| + |POLYCAT-;factorSquareFreePolynomial;SupF;25|) + $)) + (SETF (|shellEntry| $ 165) + (CONS (|dispatchFunction| |POLYCAT-;factor;SF;26|) $)) (COND ((|HasCategory| |#2| '(|CharacteristicNonZero|)) (PROGN - (|setShellEntry| $ 184 - (CONS (|dispatchFunction| - |POLYCAT-;conditionP;MU;27|) - $)))))))) + (SETF (|shellEntry| $ 184) + (CONS (|dispatchFunction| + |POLYCAT-;conditionP;MU;27|) + $)))))))) (COND ((|HasCategory| |#2| '(|CharacteristicNonZero|)) (PROGN - (|setShellEntry| $ 186 - (CONS (|dispatchFunction| |POLYCAT-;charthRoot;SU;28|) $))))) + (SETF (|shellEntry| $ 186) + (CONS (|dispatchFunction| |POLYCAT-;charthRoot;SU;28|) + $))))) (COND ((|testBitVector| |pv$| 3) (PROGN @@ -1164,53 +1167,58 @@ ((|HasCategory| |#2| '(|EuclideanDomain|)) (COND ((|HasCategory| |#2| '(|CharacteristicZero|)) - (|setShellEntry| $ 195 - (CONS (|dispatchFunction| - |POLYCAT-;squareFree;SF;31|) - $))) - (T (|setShellEntry| $ 195 + (SETF (|shellEntry| $ 195) (CONS (|dispatchFunction| - |POLYCAT-;squareFree;SF;32|) - $))))) - (T (|setShellEntry| $ 195 - (CONS (|dispatchFunction| - |POLYCAT-;squareFree;SF;33|) - $)))) - (|setShellEntry| $ 203 - (CONS (|dispatchFunction| |POLYCAT-;squareFreePart;2S;34|) - $)) - (|setShellEntry| $ 205 - (CONS (|dispatchFunction| |POLYCAT-;content;SVarSetS;35|) - $)) - (|setShellEntry| $ 210 - (CONS (|dispatchFunction| |POLYCAT-;primitivePart;2S;36|) - $)) - (|setShellEntry| $ 213 - (CONS (|dispatchFunction| - |POLYCAT-;primitivePart;SVarSetS;37|) - $))))) + |POLYCAT-;squareFree;SF;31|) + $))) + (T (SETF (|shellEntry| $ 195) + (CONS (|dispatchFunction| + |POLYCAT-;squareFree;SF;32|) + $))))) + (T (SETF (|shellEntry| $ 195) + (CONS (|dispatchFunction| + |POLYCAT-;squareFree;SF;33|) + $)))) + (SETF (|shellEntry| $ 203) + (CONS (|dispatchFunction| + |POLYCAT-;squareFreePart;2S;34|) + $)) + (SETF (|shellEntry| $ 205) + (CONS (|dispatchFunction| + |POLYCAT-;content;SVarSetS;35|) + $)) + (SETF (|shellEntry| $ 210) + (CONS (|dispatchFunction| + |POLYCAT-;primitivePart;2S;36|) + $)) + (SETF (|shellEntry| $ 213) + (CONS (|dispatchFunction| + |POLYCAT-;primitivePart;SVarSetS;37|) + $))))) (COND ((AND (|testBitVector| |pv$| 8) (|testBitVector| |pv$| 7)) - (|setShellEntry| $ 222 - (CONS (|dispatchFunction| |POLYCAT-;patternMatch;SP2Pmr;39|) - $)))) + (SETF (|shellEntry| $ 222) + (CONS (|dispatchFunction| + |POLYCAT-;patternMatch;SP2Pmr;39|) + $)))) (COND ((AND (|testBitVector| |pv$| 6) (|testBitVector| |pv$| 5)) - (|setShellEntry| $ 229 - (CONS (|dispatchFunction| |POLYCAT-;patternMatch;SP2Pmr;40|) - $)))) + (SETF (|shellEntry| $ 229) + (CONS (|dispatchFunction| + |POLYCAT-;patternMatch;SP2Pmr;40|) + $)))) (COND ((AND (|testBitVector| |pv$| 12) (|testBitVector| |pv$| 11)) - (|setShellEntry| $ 236 - (CONS (|dispatchFunction| |POLYCAT-;convert;SP;41|) $)))) + (SETF (|shellEntry| $ 236) + (CONS (|dispatchFunction| |POLYCAT-;convert;SP;41|) $)))) (COND ((AND (|testBitVector| |pv$| 10) (|testBitVector| |pv$| 9)) - (|setShellEntry| $ 243 - (CONS (|dispatchFunction| |POLYCAT-;convert;SP;42|) $)))) + (SETF (|shellEntry| $ 243) + (CONS (|dispatchFunction| |POLYCAT-;convert;SP;42|) $)))) (COND ((AND (|testBitVector| |pv$| 14) (|testBitVector| |pv$| 13)) - (|setShellEntry| $ 251 - (CONS (|dispatchFunction| |POLYCAT-;convert;SIf;43|) $)))) + (SETF (|shellEntry| $ 251) + (CONS (|dispatchFunction| |POLYCAT-;convert;SIf;43|) $)))) $)) (MAKEPROP '|PolynomialCategory&| '|infovec| diff --git a/src/algebra/strap/POLYCAT.lsp b/src/algebra/strap/POLYCAT.lsp index ed7ebdfe..98b3c254 100644 --- a/src/algebra/strap/POLYCAT.lsp +++ b/src/algebra/strap/POLYCAT.lsp @@ -193,9 +193,9 @@ |t#1|) (|List| (|NonNegativeInteger|))) NIL)))))))) - (|setShellEntry| #0# 0 - (LIST '|PolynomialCategory| (|devaluate| |t#1|) - (|devaluate| |t#2|) (|devaluate| |t#3|))) + (SETF (|shellEntry| #0# 0) + (LIST '|PolynomialCategory| (|devaluate| |t#1|) + (|devaluate| |t#2|) (|devaluate| |t#3|))) #0#)) (DEFUN |PolynomialCategory| (&REST #0=#:G1394 &AUX #1=#:G1392) diff --git a/src/algebra/strap/QFCAT-.lsp b/src/algebra/strap/QFCAT-.lsp index 9821d0ef..33c7bf71 100644 --- a/src/algebra/strap/QFCAT-.lsp +++ b/src/algebra/strap/QFCAT-.lsp @@ -301,94 +301,95 @@ (|HasCategory| |#2| '(|RetractableTo| (|Integer|))) (|HasCategory| |#2| '(|StepThrough|)))))) - (|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 ((|testBitVector| |pv$| 12) (PROGN - (|setShellEntry| $ 16 - (CONS (|dispatchFunction| |QFCAT-;init;A;3|) $)) - (|setShellEntry| $ 20 - (CONS (|dispatchFunction| |QFCAT-;nextItem;AU;4|) $))))) + (SETF (|shellEntry| $ 16) + (CONS (|dispatchFunction| |QFCAT-;init;A;3|) $)) + (SETF (|shellEntry| $ 20) + (CONS (|dispatchFunction| |QFCAT-;nextItem;AU;4|) $))))) (COND ((|testBitVector| |pv$| 7) - (|setShellEntry| $ 40 - (CONS (|dispatchFunction| |QFCAT-;convert;AIf;9|) $)))) + (SETF (|shellEntry| $ 40) + (CONS (|dispatchFunction| |QFCAT-;convert;AIf;9|) $)))) (COND ((|testBitVector| |pv$| 8) (PROGN - (|setShellEntry| $ 44 - (CONS (|dispatchFunction| |QFCAT-;convert;AF;10|) $)) - (|setShellEntry| $ 48 - (CONS (|dispatchFunction| |QFCAT-;convert;ADf;11|) $))))) + (SETF (|shellEntry| $ 44) + (CONS (|dispatchFunction| |QFCAT-;convert;AF;10|) $)) + (SETF (|shellEntry| $ 48) + (CONS (|dispatchFunction| |QFCAT-;convert;ADf;11|) $))))) (COND ((|testBitVector| |pv$| 9) (COND ((|HasAttribute| |#2| '|canonicalUnitNormal|) - (|setShellEntry| $ 51 - (CONS (|dispatchFunction| |QFCAT-;<;2AB;12|) $))) - (T (|setShellEntry| $ 51 - (CONS (|dispatchFunction| |QFCAT-;<;2AB;13|) $))))) + (SETF (|shellEntry| $ 51) + (CONS (|dispatchFunction| |QFCAT-;<;2AB;12|) $))) + (T (SETF (|shellEntry| $ 51) + (CONS (|dispatchFunction| |QFCAT-;<;2AB;13|) $))))) ((|testBitVector| |pv$| 10) - (|setShellEntry| $ 51 - (CONS (|dispatchFunction| |QFCAT-;<;2AB;14|) $)))) + (SETF (|shellEntry| $ 51) + (CONS (|dispatchFunction| |QFCAT-;<;2AB;14|) $)))) (COND ((|testBitVector| |pv$| 3) - (|setShellEntry| $ 55 - (CONS (|dispatchFunction| |QFCAT-;fractionPart;2A;15|) $)))) + (SETF (|shellEntry| $ 55) + (CONS (|dispatchFunction| |QFCAT-;fractionPart;2A;15|) $)))) (COND ((|testBitVector| |pv$| 4) (PROGN - (|setShellEntry| $ 58 - (CONS (|dispatchFunction| |QFCAT-;coerce;SA;16|) $)) - (|setShellEntry| $ 61 - (CONS (|dispatchFunction| |QFCAT-;retract;AS;17|) $)) - (|setShellEntry| $ 66 - (CONS (|dispatchFunction| |QFCAT-;retractIfCan;AU;18|) $))))) + (SETF (|shellEntry| $ 58) + (CONS (|dispatchFunction| |QFCAT-;coerce;SA;16|) $)) + (SETF (|shellEntry| $ 61) + (CONS (|dispatchFunction| |QFCAT-;retract;AS;17|) $)) + (SETF (|shellEntry| $ 66) + (CONS (|dispatchFunction| |QFCAT-;retractIfCan;AU;18|) + $))))) (COND ((|HasCategory| |#2| '(|ConvertibleTo| (|Pattern| (|Integer|)))) (PROGN - (|setShellEntry| $ 71 - (CONS (|dispatchFunction| |QFCAT-;convert;AP;19|) $)) + (SETF (|shellEntry| $ 71) + (CONS (|dispatchFunction| |QFCAT-;convert;AP;19|) $)) (COND ((|HasCategory| |#2| '(|PatternMatchable| (|Integer|))) - (|setShellEntry| $ 76 - (CONS (|dispatchFunction| - |QFCAT-;patternMatch;AP2Pmr;20|) - $))))))) + (SETF (|shellEntry| $ 76) + (CONS (|dispatchFunction| + |QFCAT-;patternMatch;AP2Pmr;20|) + $))))))) (COND ((|HasCategory| |#2| '(|ConvertibleTo| (|Pattern| (|Float|)))) (PROGN - (|setShellEntry| $ 80 - (CONS (|dispatchFunction| |QFCAT-;convert;AP;21|) $)) + (SETF (|shellEntry| $ 80) + (CONS (|dispatchFunction| |QFCAT-;convert;AP;21|) $)) (COND ((|HasCategory| |#2| '(|PatternMatchable| (|Float|))) - (|setShellEntry| $ 85 - (CONS (|dispatchFunction| - |QFCAT-;patternMatch;AP2Pmr;22|) - $))))))) + (SETF (|shellEntry| $ 85) + (CONS (|dispatchFunction| + |QFCAT-;patternMatch;AP2Pmr;22|) + $))))))) (COND ((|testBitVector| |pv$| 11) (PROGN - (|setShellEntry| $ 91 - (CONS (|dispatchFunction| |QFCAT-;coerce;FA;23|) $)) + (SETF (|shellEntry| $ 91) + (CONS (|dispatchFunction| |QFCAT-;coerce;FA;23|) $)) (COND ((|domainEqual| |#2| (|Integer|))) (T (PROGN - (|setShellEntry| $ 93 - (CONS (|dispatchFunction| |QFCAT-;retract;AI;24|) - $)) - (|setShellEntry| $ 96 - (CONS (|dispatchFunction| - |QFCAT-;retractIfCan;AU;25|) - $)))))))) + (SETF (|shellEntry| $ 93) + (CONS (|dispatchFunction| |QFCAT-;retract;AI;24|) + $)) + (SETF (|shellEntry| $ 96) + (CONS (|dispatchFunction| + |QFCAT-;retractIfCan;AU;25|) + $)))))))) (COND ((|testBitVector| |pv$| 2) - (|setShellEntry| $ 99 - (CONS (|dispatchFunction| |QFCAT-;random;A;26|) $)))) + (SETF (|shellEntry| $ 99) + (CONS (|dispatchFunction| |QFCAT-;random;A;26|) $)))) $)) (MAKEPROP '|QuotientFieldCategory&| '|infovec| diff --git a/src/algebra/strap/QFCAT.lsp b/src/algebra/strap/QFCAT.lsp index 08c1b912..913585d0 100644 --- a/src/algebra/strap/QFCAT.lsp +++ b/src/algebra/strap/QFCAT.lsp @@ -72,8 +72,8 @@ (|has| |t#1| (|PolynomialFactorizationExplicit|)))) 'NIL NIL)))))))) - (|setShellEntry| #0# 0 - (LIST '|QuotientFieldCategory| (|devaluate| |t#1|))) + (SETF (|shellEntry| #0# 0) + (LIST '|QuotientFieldCategory| (|devaluate| |t#1|))) #0#)) (DEFUN |QuotientFieldCategory| (#0=#:G1375) diff --git a/src/algebra/strap/RCAGG-.lsp b/src/algebra/strap/RCAGG-.lsp index ca5c1a39..fb482a14 100644 --- a/src/algebra/strap/RCAGG-.lsp +++ b/src/algebra/strap/RCAGG-.lsp @@ -28,19 +28,19 @@ (|pv$| (|buildPredVector| 0 0 (LIST (|HasAttribute| |#1| '|shallowlyMutable|) (|HasCategory| |#2| '(|SetCategory|)))))) - (|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 ((|testBitVector| |pv$| 1) - (|setShellEntry| $ 12 - (CONS (|dispatchFunction| |RCAGG-;setelt;Avalue2S;2|) $)))) + (SETF (|shellEntry| $ 12) + (CONS (|dispatchFunction| |RCAGG-;setelt;Avalue2S;2|) $)))) (COND ((|testBitVector| |pv$| 2) - (|setShellEntry| $ 18 - (CONS (|dispatchFunction| |RCAGG-;child?;2AB;3|) $)))) + (SETF (|shellEntry| $ 18) + (CONS (|dispatchFunction| |RCAGG-;child?;2AB;3|) $)))) $)) (MAKEPROP '|RecursiveAggregate&| '|infovec| diff --git a/src/algebra/strap/RCAGG.lsp b/src/algebra/strap/RCAGG.lsp index 5a8aba91..21edd2b4 100644 --- a/src/algebra/strap/RCAGG.lsp +++ b/src/algebra/strap/RCAGG.lsp @@ -41,8 +41,8 @@ '((|List| $) (|Boolean|) (|Integer|) (|List| |t#1|)) NIL)))))))) - (|setShellEntry| #0# 0 - (LIST '|RecursiveAggregate| (|devaluate| |t#1|))) + (SETF (|shellEntry| #0# 0) + (LIST '|RecursiveAggregate| (|devaluate| |t#1|))) #0#)) (DEFUN |RecursiveAggregate| (#0=#:G1373) diff --git a/src/algebra/strap/RING-.lsp b/src/algebra/strap/RING-.lsp index 17403409..0d9d5bb1 100644 --- a/src/algebra/strap/RING-.lsp +++ b/src/algebra/strap/RING-.lsp @@ -10,10 +10,10 @@ (DEFUN |Ring&| (|#1|) (LET* ((|dv$1| (|devaluate| |#1|)) (|dv$| (LIST '|Ring&| |dv$1|)) ($ (|newShell| 12)) (|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|) $)) (MAKEPROP '|Ring&| '|infovec| diff --git a/src/algebra/strap/RING.lsp b/src/algebra/strap/RING.lsp index f451757d..5632415b 100644 --- a/src/algebra/strap/RING.lsp +++ b/src/algebra/strap/RING.lsp @@ -14,7 +14,7 @@ T)) '((|unitsKnown| T)) '((|NonNegativeInteger|)) NIL))))) - (|setShellEntry| #0# 0 '(|Ring|)) + (SETF (|shellEntry| #0# 0) '(|Ring|)) #0#)) (DEFUN |Ring| () (COND (|Ring;AL|) (T (SETQ |Ring;AL| (|Ring;|))))) diff --git a/src/algebra/strap/RNG.lsp b/src/algebra/strap/RNG.lsp index fcdff63a..43402373 100644 --- a/src/algebra/strap/RNG.lsp +++ b/src/algebra/strap/RNG.lsp @@ -5,7 +5,7 @@ (DEFUN |Rng;| () (LET ((#0=#:G1372 (|Join| (|AbelianGroup|) (|SemiGroup|)))) - (|setShellEntry| #0# 0 '(|Rng|)) + (SETF (|shellEntry| #0# 0) '(|Rng|)) #0#)) (DEFUN |Rng| () (COND (|Rng;AL|) (T (SETQ |Rng;AL| (|Rng;|))))) diff --git a/src/algebra/strap/RNS-.lsp b/src/algebra/strap/RNS-.lsp index 0365a7f3..4db9f921 100644 --- a/src/algebra/strap/RNS-.lsp +++ b/src/algebra/strap/RNS-.lsp @@ -119,10 +119,10 @@ (LET* ((|dv$1| (|devaluate| |#1|)) (|dv$| (LIST '|RealNumberSystem&| |dv$1|)) ($ (|newShell| 58)) (|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|) $)) (MAKEPROP '|RealNumberSystem&| '|infovec| diff --git a/src/algebra/strap/RNS.lsp b/src/algebra/strap/RNS.lsp index 8554cdd2..5dd2cd32 100644 --- a/src/algebra/strap/RNS.lsp +++ b/src/algebra/strap/RNS.lsp @@ -22,7 +22,7 @@ ((|truncate| ($ $)) T) ((|round| ($ $)) T) ((|abs| ($ $)) T)) NIL '((|Integer|)) NIL))))) - (|setShellEntry| #0# 0 '(|RealNumberSystem|)) + (SETF (|shellEntry| #0# 0) '(|RealNumberSystem|)) #0#)) (DEFUN |RealNumberSystem| () diff --git a/src/algebra/strap/SETAGG-.lsp b/src/algebra/strap/SETAGG-.lsp index 51617c5b..23a77815 100644 --- a/src/algebra/strap/SETAGG-.lsp +++ b/src/algebra/strap/SETAGG-.lsp @@ -33,11 +33,11 @@ (LET* ((|dv$1| (|devaluate| |#1|)) (|dv$2| (|devaluate| |#2|)) (|dv$| (LIST '|SetAggregate&| |dv$1| |dv$2|)) ($ (|newShell| 16)) (|pv$| (|buildPredVector| 0 0 NIL))) - (|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|) $)) (MAKEPROP '|SetAggregate&| '|infovec| diff --git a/src/algebra/strap/SETAGG.lsp b/src/algebra/strap/SETAGG.lsp index ed7c4128..3c8ad618 100644 --- a/src/algebra/strap/SETAGG.lsp +++ b/src/algebra/strap/SETAGG.lsp @@ -30,7 +30,8 @@ ((|union| ($ |t#1| $)) T)) '((|partiallyOrderedSet| T)) '((|Boolean|) (|List| |t#1|)) NIL)))))))) - (|setShellEntry| #0# 0 (LIST '|SetAggregate| (|devaluate| |t#1|))) + (SETF (|shellEntry| #0# 0) + (LIST '|SetAggregate| (|devaluate| |t#1|))) #0#)) (DEFUN |SetAggregate| (#0=#:G1373) diff --git a/src/algebra/strap/SINT.lsp b/src/algebra/strap/SINT.lsp index 505ca661..2c1ddab4 100644 --- a/src/algebra/strap/SINT.lsp +++ b/src/algebra/strap/SINT.lsp @@ -497,8 +497,8 @@ (|check-subtype| (SMINTP |x|) '(|SingleInteger|) |x|)) (DEFUN |SINT;random;$;60| ($) - (SEQ (|setShellEntry| $ 6 - (REM (TIMES 314159269 (SVREF $ 6)) 2147483647)) + (SEQ (SETF (|shellEntry| $ 6) + (REM (TIMES 314159269 (SVREF $ 6)) 2147483647)) (EXIT (REM (SVREF $ 6) 67108864)))) (DEFUN |SINT;random;2$;61| (|n| $) (DECLARE (IGNORE $)) (RANDOM |n|)) @@ -525,11 +525,11 @@ (DECLARE (SPECIAL |$ConstructorCache|)) (LET ((|dv$| '(|SingleInteger|)) ($ (|newShell| 115)) (|pv$| (|buildPredVector| 0 0 NIL))) - (|setShellEntry| $ 0 |dv$|) - (|setShellEntry| $ 3 |pv$|) + (SETF (|shellEntry| $ 0) |dv$|) + (SETF (|shellEntry| $ 3) |pv$|) (|haddProp| |$ConstructorCache| '|SingleInteger| NIL (CONS 1 $)) (|stuffDomainSlots| $) - (|setShellEntry| $ 6 1) + (SETF (|shellEntry| $ 6) 1) $)) (MAKEPROP '|SingleInteger| '|infovec| diff --git a/src/algebra/strap/STAGG-.lsp b/src/algebra/strap/STAGG-.lsp index 39220475..be3c7a7b 100644 --- a/src/algebra/strap/STAGG-.lsp +++ b/src/algebra/strap/STAGG-.lsp @@ -229,28 +229,28 @@ (LET* ((|dv$1| (|devaluate| |#1|)) (|dv$2| (|devaluate| |#2|)) (|dv$| (LIST '|StreamAggregate&| |dv$1| |dv$2|)) ($ (|newShell| 61)) (|pv$| (|buildPredVector| 0 0 NIL))) - (|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| '|shallowlyMutable|) (PROGN - (|setShellEntry| $ 38 - (CONS (|dispatchFunction| |STAGG-;concat;3A;7|) $)) - (|setShellEntry| $ 45 - (CONS (|dispatchFunction| |STAGG-;concat;LA;8|) $)) - (|setShellEntry| $ 48 - (CONS (|dispatchFunction| |STAGG-;map!;M2A;9|) $)) - (|setShellEntry| $ 49 - (CONS (|dispatchFunction| |STAGG-;fill!;ASA;10|) $)) - (|setShellEntry| $ 50 - (CONS (|dispatchFunction| |STAGG-;setelt;AI2S;11|) $)) - (|setShellEntry| $ 53 - (CONS (|dispatchFunction| |STAGG-;setelt;AUs2S;12|) $)) - (|setShellEntry| $ 56 - (CONS (|dispatchFunction| |STAGG-;concat!;3A;13|) $))))) + (SETF (|shellEntry| $ 38) + (CONS (|dispatchFunction| |STAGG-;concat;3A;7|) $)) + (SETF (|shellEntry| $ 45) + (CONS (|dispatchFunction| |STAGG-;concat;LA;8|) $)) + (SETF (|shellEntry| $ 48) + (CONS (|dispatchFunction| |STAGG-;map!;M2A;9|) $)) + (SETF (|shellEntry| $ 49) + (CONS (|dispatchFunction| |STAGG-;fill!;ASA;10|) $)) + (SETF (|shellEntry| $ 50) + (CONS (|dispatchFunction| |STAGG-;setelt;AI2S;11|) $)) + (SETF (|shellEntry| $ 53) + (CONS (|dispatchFunction| |STAGG-;setelt;AUs2S;12|) $)) + (SETF (|shellEntry| $ 56) + (CONS (|dispatchFunction| |STAGG-;concat!;3A;13|) $))))) $)) (MAKEPROP '|StreamAggregate&| '|infovec| diff --git a/src/algebra/strap/STAGG.lsp b/src/algebra/strap/STAGG.lsp index 896311f6..e6b12835 100644 --- a/src/algebra/strap/STAGG.lsp +++ b/src/algebra/strap/STAGG.lsp @@ -21,8 +21,8 @@ ((|Boolean|) $)) T)) NIL '((|Boolean|)) NIL)))))))) - (|setShellEntry| #0# 0 - (LIST '|StreamAggregate| (|devaluate| |t#1|))) + (SETF (|shellEntry| #0# 0) + (LIST '|StreamAggregate| (|devaluate| |t#1|))) #0#)) (DEFUN |StreamAggregate| (#0=#:G1380) diff --git a/src/algebra/strap/SYMBOL.lsp b/src/algebra/strap/SYMBOL.lsp index 4ebf3c65..7cc3845c 100644 --- a/src/algebra/strap/SYMBOL.lsp +++ b/src/algebra/strap/SYMBOL.lsp @@ -612,23 +612,23 @@ (DECLARE (SPECIAL |$ConstructorCache|)) (LET ((|dv$| '(|Symbol|)) ($ (|newShell| 165)) (|pv$| (|buildPredVector| 0 0 NIL))) - (|setShellEntry| $ 0 |dv$|) - (|setShellEntry| $ 3 |pv$|) + (SETF (|shellEntry| $ 0) |dv$|) + (SETF (|shellEntry| $ 3) |pv$|) (|haddProp| |$ConstructorCache| '|Symbol| NIL (CONS 1 $)) (|stuffDomainSlots| $) - (|setShellEntry| $ 10 (SPADCALL 0 (|getShellEntry| $ 9))) - (|setShellEntry| $ 13 (SPADCALL (|getShellEntry| $ 12))) - (|setShellEntry| $ 18 - (SPADCALL '("0" "1" "2" "3" "4" "5" "6" "7" "8" "9") - (|getShellEntry| $ 17))) - (|setShellEntry| $ 19 "0123456789") - (|setShellEntry| $ 20 "ABCDEFGHIJKLMNOPQRSTUVWXYZ") - (|setShellEntry| $ 21 "abcdefghijklmnopqrstuvwxyz") - (|setShellEntry| $ 38 "*") - (|setShellEntry| $ 41 (LENGTH (SVREF $ 38))) - (|setShellEntry| $ 45 - (SPADCALL (SPADCALL "0" (|getShellEntry| $ 43)) - (|getShellEntry| $ 44))) + (SETF (|shellEntry| $ 10) (SPADCALL 0 (|getShellEntry| $ 9))) + (SETF (|shellEntry| $ 13) (SPADCALL (|getShellEntry| $ 12))) + (SETF (|shellEntry| $ 18) + (SPADCALL '("0" "1" "2" "3" "4" "5" "6" "7" "8" "9") + (|getShellEntry| $ 17))) + (SETF (|shellEntry| $ 19) "0123456789") + (SETF (|shellEntry| $ 20) "ABCDEFGHIJKLMNOPQRSTUVWXYZ") + (SETF (|shellEntry| $ 21) "abcdefghijklmnopqrstuvwxyz") + (SETF (|shellEntry| $ 38) "*") + (SETF (|shellEntry| $ 41) (LENGTH (SVREF $ 38))) + (SETF (|shellEntry| $ 45) + (SPADCALL (SPADCALL "0" (|getShellEntry| $ 43)) + (|getShellEntry| $ 44))) $)) (MAKEPROP '|Symbol| '|infovec| diff --git a/src/algebra/strap/UFD-.lsp b/src/algebra/strap/UFD-.lsp index 22eb430f..504f5eb8 100644 --- a/src/algebra/strap/UFD-.lsp +++ b/src/algebra/strap/UFD-.lsp @@ -42,10 +42,10 @@ (LET* ((|dv$1| (|devaluate| |#1|)) (|dv$| (LIST '|UniqueFactorizationDomain&| |dv$1|)) ($ (|newShell| 29)) (|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|) $)) (MAKEPROP '|UniqueFactorizationDomain&| '|infovec| diff --git a/src/algebra/strap/UFD.lsp b/src/algebra/strap/UFD.lsp index 4dee186a..a52735be 100644 --- a/src/algebra/strap/UFD.lsp +++ b/src/algebra/strap/UFD.lsp @@ -12,7 +12,7 @@ ((|squareFreePart| ($ $)) T) ((|factor| ((|Factored| $) $)) T)) NIL '((|Factored| $) (|Boolean|)) NIL)))) - (|setShellEntry| #0# 0 '(|UniqueFactorizationDomain|)) + (SETF (|shellEntry| #0# 0) '(|UniqueFactorizationDomain|)) #0#)) (DEFUN |UniqueFactorizationDomain| () 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| diff --git a/src/algebra/strap/URAGG.lsp b/src/algebra/strap/URAGG.lsp index f43f88c7..2ce314eb 100644 --- a/src/algebra/strap/URAGG.lsp +++ b/src/algebra/strap/URAGG.lsp @@ -74,8 +74,8 @@ '((|Integer|) (|NonNegativeInteger|)) NIL)))))))) - (|setShellEntry| #0# 0 - (LIST '|UnaryRecursiveAggregate| (|devaluate| |t#1|))) + (SETF (|shellEntry| #0# 0) + (LIST '|UnaryRecursiveAggregate| (|devaluate| |t#1|))) #0#)) (DEFUN |UnaryRecursiveAggregate| (#0=#:G1401) diff --git a/src/algebra/strap/VECTOR.lsp b/src/algebra/strap/VECTOR.lsp index 68d81c3d..01f3fe2c 100644 --- a/src/algebra/strap/VECTOR.lsp +++ b/src/algebra/strap/VECTOR.lsp @@ -86,15 +86,15 @@ (|HasCategory| |#1| (LIST '|Evalable| (|devaluate| |#1|)))))))) - (|setShellEntry| $ 0 |dv$|) - (|setShellEntry| $ 3 |pv$|) + (SETF (|shellEntry| $ 0) |dv$|) + (SETF (|shellEntry| $ 3) |pv$|) (|haddProp| |$ConstructorCache| '|Vector| (LIST |dv$1|) (CONS 1 $)) (|stuffDomainSlots| $) - (|setShellEntry| $ 6 |#1|) + (SETF (|shellEntry| $ 6) |#1|) (COND ((|testBitVector| |pv$| 3) - (|setShellEntry| $ 20 - (CONS (|dispatchFunction| |VECTOR;convert;$If;3|) $)))) + (SETF (|shellEntry| $ 20) + (CONS (|dispatchFunction| |VECTOR;convert;$If;3|) $)))) $)) (MAKEPROP '|Vector| '|infovec| |