diff options
Diffstat (limited to 'src/algebra/strap/QFCAT-.lsp')
-rw-r--r-- | src/algebra/strap/QFCAT-.lsp | 103 |
1 files changed, 52 insertions, 51 deletions
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| |