diff options
author | dos-reis <gdr@axiomatics.org> | 2008-04-14 02:49:24 +0000 |
---|---|---|
committer | dos-reis <gdr@axiomatics.org> | 2008-04-14 02:49:24 +0000 |
commit | d04a3262a6f4493bd65c45ff73b4d1b8243f47a0 (patch) | |
tree | 8b3f5df0e9c1e2474b39073e9785b407597d7285 /src/algebra | |
parent | 1d44d2feb01bc10dcc8690c4f71a3157b07502bc (diff) | |
download | open-axiom-d04a3262a6f4493bd65c45ff73b4d1b8243f47a0.tar.gz |
Update cached Lisp translation.
Diffstat (limited to 'src/algebra')
-rw-r--r-- | src/algebra/aggcat.spad.pamphlet | 8 | ||||
-rw-r--r-- | src/algebra/boolean.spad.pamphlet | 94 | ||||
-rw-r--r-- | src/algebra/catdef.spad.pamphlet | 1175 | ||||
-rw-r--r-- | src/algebra/ffcat.spad.pamphlet | 258 | ||||
-rw-r--r-- | src/algebra/fraction.spad.pamphlet | 287 | ||||
-rw-r--r-- | src/algebra/integer.spad.pamphlet | 540 | ||||
-rw-r--r-- | src/algebra/polset.spad.pamphlet | 337 | ||||
-rw-r--r-- | src/algebra/polycat.spad.pamphlet | 1756 | ||||
-rw-r--r-- | src/algebra/sf.spad.pamphlet | 152 | ||||
-rw-r--r-- | src/algebra/si.spad.pamphlet | 987 | ||||
-rw-r--r-- | src/algebra/symbol.spad.pamphlet | 435 | ||||
-rw-r--r-- | src/algebra/triset.spad.pamphlet | 443 |
12 files changed, 3466 insertions, 3006 deletions
diff --git a/src/algebra/aggcat.spad.pamphlet b/src/algebra/aggcat.spad.pamphlet index e36fc72f..a308f1e6 100644 --- a/src/algebra/aggcat.spad.pamphlet +++ b/src/algebra/aggcat.spad.pamphlet @@ -5594,9 +5594,9 @@ Note that this code is not included in the generated catdef.spad file. (DEFPARAMETER |AssociationListAggregate;AL| 'NIL) -(DEFUN |AssociationListAggregate| (&REST #0=#:G1402 &AUX #1=#:G1400) +(DEFUN |AssociationListAggregate| (&REST #0=#:G1397 &AUX #1=#:G1395) (DSETQ #1# #0#) - (LET (#2=#:G1401) + (LET (#2=#:G1396) (COND ((SETQ #2# (|assoc| (|devaluateList| #1#) @@ -5611,7 +5611,7 @@ Note that this code is not included in the generated catdef.spad file. #2#)))) (DEFUN |AssociationListAggregate;| (|t#1| |t#2|) - (PROG (#0=#:G1399) + (PROG (#0=#:G1394) (RETURN (PROG1 (LETT #0# (|sublisV| @@ -5619,7 +5619,7 @@ Note that this code is not included in the generated catdef.spad file. (LIST (|devaluate| |t#1|) (|devaluate| |t#2|))) (|sublisV| - (PAIR '(#1=#:G1398) + (PAIR '(#1=#:G1393) (LIST '(|Record| (|:| |key| |t#1|) (|:| |entry| |t#2|)))) (COND diff --git a/src/algebra/boolean.spad.pamphlet b/src/algebra/boolean.spad.pamphlet index a8dd1371..70373712 100644 --- a/src/algebra/boolean.spad.pamphlet +++ b/src/algebra/boolean.spad.pamphlet @@ -335,37 +335,101 @@ Note that this code is not included in the generated catdef.spad file. <<REF.lsp BOOTSTRAP>>= -(|/VERSIONCHECK| 2) +(/VERSIONCHECK 2) -(PUT (QUOTE |REF;=;2$B;1|) (QUOTE |SPADreplace|) (QUOTE EQ)) +(PUT '|REF;=;2$B;1| '|SPADreplace| 'EQ) -(DEFUN |REF;=;2$B;1| (|p| |q| |$|) (EQ |p| |q|)) +(DEFUN |REF;=;2$B;1| (|p| |q| $) (EQ |p| |q|)) -(PUT (QUOTE |REF;ref;S$;2|) (QUOTE |SPADreplace|) (QUOTE LIST)) +(PUT '|REF;ref;S$;2| '|SPADreplace| 'LIST) -(DEFUN |REF;ref;S$;2| (|v| |$|) (LIST |v|)) +(DEFUN |REF;ref;S$;2| (|v| $) (LIST |v|)) -(PUT (QUOTE |REF;elt;$S;3|) (QUOTE |SPADreplace|) (QUOTE QCAR)) +(PUT '|REF;elt;$S;3| '|SPADreplace| 'QCAR) -(DEFUN |REF;elt;$S;3| (|p| |$|) (QCAR |p|)) +(DEFUN |REF;elt;$S;3| (|p| $) (QCAR |p|)) -(DEFUN |REF;setelt;$2S;4| (|p| |v| |$|) (PROGN (RPLACA |p| |v|) (QCAR |p|))) +(DEFUN |REF;setelt;$2S;4| (|p| |v| $) + (PROGN (RPLACA |p| |v|) (QCAR |p|))) -(PUT (QUOTE |REF;deref;$S;5|) (QUOTE |SPADreplace|) (QUOTE QCAR)) +(PUT '|REF;deref;$S;5| '|SPADreplace| 'QCAR) -(DEFUN |REF;deref;$S;5| (|p| |$|) (QCAR |p|)) +(DEFUN |REF;deref;$S;5| (|p| $) (QCAR |p|)) -(DEFUN |REF;setref;$2S;6| (|p| |v| |$|) (PROGN (RPLACA |p| |v|) (QCAR |p|))) +(DEFUN |REF;setref;$2S;6| (|p| |v| $) + (PROGN (RPLACA |p| |v|) (QCAR |p|))) -(DEFUN |REF;coerce;$Of;7| (|p| |$|) (SPADCALL (SPADCALL "ref" (QREFELT |$| 17)) (LIST (SPADCALL (QCAR |p|) (QREFELT |$| 18))) (QREFELT |$| 20))) +(DEFUN |REF;coerce;$Of;7| (|p| $) + (SPADCALL (SPADCALL "ref" (|getShellEntry| $ 17)) + (LIST (SPADCALL (QCAR |p|) (|getShellEntry| $ 18))) + (|getShellEntry| $ 20))) -(DEFUN |Reference| (#1=#:G82336) (PROG NIL (RETURN (PROG (#2=#:G82337) (RETURN (COND ((LETT #2# (|lassocShiftWithFunction| (LIST (|devaluate| #1#)) (HGET |$ConstructorCache| (QUOTE |Reference|)) (QUOTE |domainEqualList|)) |Reference|) (|CDRwithIncrement| #2#)) ((QUOTE T) (|UNWIND-PROTECT| (PROG1 (|Reference;| #1#) (LETT #2# T |Reference|)) (COND ((NOT #2#) (HREM |$ConstructorCache| (QUOTE |Reference|)))))))))))) +(DEFUN |Reference| (#0=#:G1401) + (PROG () + (RETURN + (PROG (#1=#:G1402) + (RETURN + (COND + ((LETT #1# + (|lassocShiftWithFunction| (LIST (|devaluate| #0#)) + (HGET |$ConstructorCache| '|Reference|) + '|domainEqualList|) + |Reference|) + (|CDRwithIncrement| #1#)) + ('T + (UNWIND-PROTECT + (PROG1 (|Reference;| #0#) (LETT #1# T |Reference|)) + (COND + ((NOT #1#) (HREM |$ConstructorCache| '|Reference|))))))))))) -(DEFUN |Reference;| (|#1|) (PROG (|DV$1| |dv$| |$| |pv$|) (RETURN (PROGN (LETT |DV$1| (|devaluate| |#1|) . #1=(|Reference|)) (LETT |dv$| (LIST (QUOTE |Reference|) |DV$1|) . #1#) (LETT |$| (GETREFV 23) . #1#) (QSETREFV |$| 0 |dv$|) (QSETREFV |$| 3 (LETT |pv$| (|buildPredVector| 0 0 (LIST (|HasCategory| |#1| (QUOTE (|SetCategory|))))) . #1#)) (|haddProp| |$ConstructorCache| (QUOTE |Reference|) (LIST |DV$1|) (CONS 1 |$|)) (|stuffDomainSlots| |$|) (QSETREFV |$| 6 |#1|) (QSETREFV |$| 7 (|Record| (|:| |value| |#1|))) (COND ((|testBitVector| |pv$| 1) (QSETREFV |$| 21 (CONS (|dispatchFunction| |REF;coerce;$Of;7|) |$|)))) |$|)))) +(DEFUN |Reference;| (|#1|) + (PROG (|dv$1| |dv$| $ |pv$|) + (RETURN + (PROGN + (LETT |dv$1| (|devaluate| |#1|) . #0=(|Reference|)) + (LETT |dv$| (LIST '|Reference| |dv$1|) . #0#) + (LETT $ (|newShell| 23) . #0#) + (|setShellEntry| $ 0 |dv$|) + (|setShellEntry| $ 3 + (LETT |pv$| + (|buildPredVector| 0 0 + (LIST (|HasCategory| |#1| '(|SetCategory|)))) . #0#)) + (|haddProp| |$ConstructorCache| '|Reference| (LIST |dv$1|) + (CONS 1 $)) + (|stuffDomainSlots| $) + (|setShellEntry| $ 6 |#1|) + (|setShellEntry| $ 7 (|Record| (|:| |value| |#1|))) + (COND + ((|testBitVector| |pv$| 1) + (|setShellEntry| $ 21 + (CONS (|dispatchFunction| |REF;coerce;$Of;7|) $)))) + $)))) -(MAKEPROP (QUOTE |Reference|) (QUOTE |infovec|) (LIST (QUOTE #(NIL NIL NIL NIL NIL NIL (|local| |#1|) (QUOTE |Rep|) (|Boolean|) |REF;=;2$B;1| |REF;ref;S$;2| |REF;elt;$S;3| |REF;setelt;$2S;4| |REF;deref;$S;5| |REF;setref;$2S;6| (|String|) (|OutputForm|) (0 . |message|) (5 . |coerce|) (|List| |$|) (10 . |prefix|) (16 . |coerce|) (|SingleInteger|))) (QUOTE #(|~=| 21 |setref| 27 |setelt| 33 |ref| 39 |latex| 44 |hash| 49 |elt| 54 |deref| 59 |coerce| 64 |=| 69)) (QUOTE NIL) (CONS (|makeByteWordVec2| 1 (QUOTE (1 0 1 1))) (CONS (QUOTE #(|SetCategory&| NIL |BasicType&| NIL)) (CONS (QUOTE #((|SetCategory|) (|Type|) (|BasicType|) (|CoercibleTo| 16))) (|makeByteWordVec2| 22 (QUOTE (1 16 0 15 17 1 6 16 0 18 2 16 0 0 19 20 1 0 16 0 21 2 1 8 0 0 1 2 0 6 0 6 14 2 0 6 0 6 12 1 0 0 6 10 1 1 15 0 1 1 1 22 0 1 1 0 6 0 11 1 0 6 0 13 1 1 16 0 21 2 0 8 0 0 9)))))) (QUOTE |lookupComplete|))) +(MAKEPROP '|Reference| '|infovec| + (LIST '#(NIL NIL NIL NIL NIL NIL (|local| |#1|) '|Rep| (|Boolean|) + |REF;=;2$B;1| |REF;ref;S$;2| |REF;elt;$S;3| + |REF;setelt;$2S;4| |REF;deref;$S;5| |REF;setref;$2S;6| + (|String|) (|OutputForm|) (0 . |message|) (5 . |coerce|) + (|List| $) (10 . |prefix|) (16 . |coerce|) + (|SingleInteger|)) + '#(~= 21 |setref| 27 |setelt| 33 |ref| 39 |latex| 44 |hash| + 49 |elt| 54 |deref| 59 |coerce| 64 = 69) + 'NIL + (CONS (|makeByteWordVec2| 1 '(1 0 1 1)) + (CONS '#(|SetCategory&| NIL |BasicType&| NIL) + (CONS '#((|SetCategory|) (|Type|) (|BasicType|) + (|CoercibleTo| 16)) + (|makeByteWordVec2| 22 + '(1 16 0 15 17 1 6 16 0 18 2 16 0 0 19 + 20 1 0 16 0 21 2 1 8 0 0 1 2 0 6 0 6 + 14 2 0 6 0 6 12 1 0 0 6 10 1 1 15 0 1 + 1 1 22 0 1 1 0 6 0 11 1 0 6 0 13 1 1 + 16 0 21 2 0 8 0 0 9))))) + '|lookupComplete|)) @ + \section{category LOGIC Logic} + <<category LOGIC Logic>>= )abbrev category LOGIC Logic ++ Author: diff --git a/src/algebra/catdef.spad.pamphlet b/src/algebra/catdef.spad.pamphlet index f4fc44b4..b75dc4b5 100644 --- a/src/algebra/catdef.spad.pamphlet +++ b/src/algebra/catdef.spad.pamphlet @@ -1379,636 +1379,530 @@ category which we can write into the {\bf MID} directory. We compile the lisp code and copy the {\bf EUCDOM-.o} file to the {\bf OUT} directory. This is eventually forcibly replaced by a recompiled version. -Note that this code is not included in the generated catdef.spad file. - -\subsection{The Lisp Implementation} -\subsubsection{EUCDOM-;VersionCheck} -This implements the bootstrap code for {\bf EuclideanDomain}. -The call to {\bf VERSIONCHECK} is a legacy check to ensure that -we did not load algebra code from a previous system version (which -would not run due to major surgical changes in the system) without -recompiling. -<<EUCDOM-;VersionCheck>>= -(|/VERSIONCHECK| 2) - -@ -\subsubsection{EUCDOM-;sizeLess?;2SB;1} -<<EUCDOM-;sizeLess?;2SB;1>>= -(DEFUN |EUCDOM-;sizeLess?;2SB;1| (|x| |y| |$|) - (COND - ((SPADCALL |y| (QREFELT |$| 8)) (QUOTE NIL)) - ((SPADCALL |x| (QREFELT |$| 8)) (QUOTE T)) - ((QUOTE T) - (|<| (SPADCALL |x| (QREFELT |$| 10)) (SPADCALL |y| (QREFELT |$| 10)))))) - -@ - -\subsubsection{EUCDOM-;quo;3S;2} -<<EUCDOM-;quo;3S;2>>= -(DEFUN |EUCDOM-;quo;3S;2| (|x| |y| |$|) - (QCAR (SPADCALL |x| |y| (QREFELT |$| 13)))) - -@ -\subsubsection{EUCDOM-;rem;3S;3} -<<EUCDOM-;rem;3S;3>>= -(DEFUN |EUCDOM-;rem;3S;3| (|x| |y| |$|) - (QCDR (SPADCALL |x| |y| (QREFELT |$| 13)))) +<<EUCDOM-.lsp BOOTSTRAP>>= -@ -\subsubsection{EUCDOM-;exquo;2SU;4} -<<EUCDOM-;exquo;2SU;4>>= -(DEFUN |EUCDOM-;exquo;2SU;4| (|x| |y| |$|) - (PROG (|qr|) - (RETURN - (SEQ - (COND - ((SPADCALL |y| (QREFELT |$| 8)) (CONS 1 "failed")) - ((QUOTE T) - (SEQ - (LETT |qr| - (SPADCALL |x| |y| (QREFELT |$| 13)) - |EUCDOM-;exquo;2SU;4|) - (EXIT - (COND - ((SPADCALL (QCDR |qr|) (QREFELT |$| 8)) (CONS 0 (QCAR |qr|))) - ((QUOTE T) (CONS 1 "failed"))))))))))) +(/VERSIONCHECK 2) -@ -\subsubsection{EUCDOM-;gcd;3S;5} -<<EUCDOM-;gcd;3S;5>>= -(DEFUN |EUCDOM-;gcd;3S;5| (|x| |y| |$|) - (PROG (|#G13| |#G14|) - (RETURN - (SEQ - (LETT |x| (SPADCALL |x| (QREFELT |$| 18)) |EUCDOM-;gcd;3S;5|) - (LETT |y| (SPADCALL |y| (QREFELT |$| 18)) |EUCDOM-;gcd;3S;5|) - (SEQ G190 - (COND - ((NULL - (COND - ((SPADCALL |y| (QREFELT |$| 8)) (QUOTE NIL)) - ((QUOTE T) (QUOTE T)))) - (GO G191))) - (SEQ - (PROGN - (LETT |#G13| |y| |EUCDOM-;gcd;3S;5|) - (LETT |#G14| (SPADCALL |x| |y| (QREFELT |$| 19)) |EUCDOM-;gcd;3S;5|) - (LETT |x| |#G13| |EUCDOM-;gcd;3S;5|) - (LETT |y| |#G14| |EUCDOM-;gcd;3S;5|)) - (EXIT - (LETT |y| (SPADCALL |y| (QREFELT |$| 18)) |EUCDOM-;gcd;3S;5|))) - NIL - (GO G190) - G191 - (EXIT NIL)) - (EXIT |x|))))) +(DEFUN |EUCDOM-;sizeLess?;2SB;1| (|x| |y| $) + (COND + ((SPADCALL |y| (|getShellEntry| $ 8)) 'NIL) + ((SPADCALL |x| (|getShellEntry| $ 8)) 'T) + ('T + (< (SPADCALL |x| (|getShellEntry| $ 10)) + (SPADCALL |y| (|getShellEntry| $ 10)))))) -@ -\subsubsection{EUCDOM-;unitNormalizeIdealElt} -<<EUCDOM-;unitNormalizeIdealElt>>= -(DEFUN |EUCDOM-;unitNormalizeIdealElt| (|s| |$|) - (PROG (|#G16| |u| |c| |a|) - (RETURN - (SEQ - (PROGN - (LETT |#G16| (SPADCALL (QVELT |s| 2) (QREFELT |$| 22)) |EUCDOM-;unitNormalizeIdealElt|) - (LETT |u| (QVELT |#G16| 0) |EUCDOM-;unitNormalizeIdealElt|) - (LETT |c| (QVELT |#G16| 1) |EUCDOM-;unitNormalizeIdealElt|) - (LETT |a| (QVELT |#G16| 2) |EUCDOM-;unitNormalizeIdealElt|) - |#G16|) - (EXIT - (COND - ((SPADCALL |a| (QREFELT |$| 23)) |s|) - ((QUOTE T) - (VECTOR - (SPADCALL |a| (QVELT |s| 0) (QREFELT |$| 24)) - (SPADCALL |a| (QVELT |s| 1) (QREFELT |$| 24)) - |c|)))))))) +(DEFUN |EUCDOM-;quo;3S;2| (|x| |y| $) + (QCAR (SPADCALL |x| |y| (|getShellEntry| $ 13)))) -@ -\subsubsection{EUCDOM-;extendedEuclidean;2SR;7} -<<EUCDOM-;extendedEuclidean;2SR;7>>= -(DEFUN |EUCDOM-;extendedEuclidean;2SR;7| (|x| |y| |$|) - (PROG (|s3| |s2| |qr| |s1|) - (RETURN - (SEQ - (LETT |s1| - (|EUCDOM-;unitNormalizeIdealElt| - (VECTOR (|spadConstant| |$| 25) (|spadConstant| |$| 26) |x|) |$|) - |EUCDOM-;extendedEuclidean;2SR;7|) - (LETT |s2| - (|EUCDOM-;unitNormalizeIdealElt| - (VECTOR (|spadConstant| |$| 26) (|spadConstant| |$| 25) |y|) |$|) - |EUCDOM-;extendedEuclidean;2SR;7|) - (EXIT - (COND - ((SPADCALL |y| (QREFELT |$| 8)) |s1|) - ((SPADCALL |x| (QREFELT |$| 8)) |s2|) - ((QUOTE T) - (SEQ - (SEQ G190 - (COND - ((NULL - (COND - ((SPADCALL (QVELT |s2| 2) (QREFELT |$| 8)) - (QUOTE NIL)) - ((QUOTE T) (QUOTE T)))) - (GO G191))) - (SEQ - (LETT |qr| - (SPADCALL (QVELT |s1| 2) (QVELT |s2| 2) (QREFELT |$| 13)) - |EUCDOM-;extendedEuclidean;2SR;7|) - (LETT |s3| - (VECTOR - (SPADCALL - (QVELT |s1| 0) - (SPADCALL - (QCAR |qr|) - (QVELT |s2| 0) - (QREFELT |$| 24)) - (QREFELT |$| 27)) - (SPADCALL - (QVELT |s1| 1) - (SPADCALL - (QCAR |qr|) - (QVELT |s2| 1) - (QREFELT |$| 24)) - (QREFELT |$| 27)) - (QCDR |qr|)) - |EUCDOM-;extendedEuclidean;2SR;7|) - (LETT |s1| |s2| |EUCDOM-;extendedEuclidean;2SR;7|) - (EXIT - (LETT |s2| - (|EUCDOM-;unitNormalizeIdealElt| |s3| |$|) - |EUCDOM-;extendedEuclidean;2SR;7|))) - NIL - (GO G190) - G191 - (EXIT NIL)) - (COND - ((NULL (SPADCALL (QVELT |s1| 0) (QREFELT |$| 8))) - (COND - ((NULL (SPADCALL (QVELT |s1| 0) |y| (QREFELT |$| 28))) - (SEQ - (LETT |qr| - (SPADCALL (QVELT |s1| 0) |y| (QREFELT |$| 13)) - |EUCDOM-;extendedEuclidean;2SR;7|) - (QSETVELT |s1| 0 (QCDR |qr|)) - (QSETVELT |s1| 1 - (SPADCALL - (QVELT |s1| 1) - (SPADCALL (QCAR |qr|) |x| (QREFELT |$| 24)) - (QREFELT |$| 29))) - (EXIT - (LETT |s1| - (|EUCDOM-;unitNormalizeIdealElt| |s1| |$|) - |EUCDOM-;extendedEuclidean;2SR;7|))))))) - (EXIT |s1|))))))))) +(DEFUN |EUCDOM-;rem;3S;3| (|x| |y| $) + (QCDR (SPADCALL |x| |y| (|getShellEntry| $ 13)))) -@ -\subsubsection{EUCDOM-;extendedEuclidean;3SU;8} -<<EUCDOM-;extendedEuclidean;3SU;8>>= -(DEFUN |EUCDOM-;extendedEuclidean;3SU;8| (|x| |y| |z| |$|) - (PROG (|s| |w| |qr|) - (RETURN - (SEQ - (COND - ((SPADCALL |z| (QREFELT |$| 8)) - (CONS 0 (CONS (|spadConstant| |$| 26) (|spadConstant| |$| 26)))) - ((QUOTE T) - (SEQ - (LETT |s| - (SPADCALL |x| |y| (QREFELT |$| 32)) - |EUCDOM-;extendedEuclidean;3SU;8|) - (LETT |w| - (SPADCALL |z| (QVELT |s| 2) (QREFELT |$| 33)) - |EUCDOM-;extendedEuclidean;3SU;8|) - (EXIT - (COND - ((QEQCAR |w| 1) (CONS 1 "failed")) - ((SPADCALL |y| (QREFELT |$| 8)) - (CONS 0 - (CONS - (SPADCALL (QVELT |s| 0) (QCDR |w|) (QREFELT |$| 24)) - (SPADCALL (QVELT |s| 1) (QCDR |w|) (QREFELT |$| 24))))) - ((QUOTE T) - (SEQ - (LETT |qr| - (SPADCALL - (SPADCALL (QVELT |s| 0) (QCDR |w|) (QREFELT |$| 24)) - |y| - (QREFELT |$| 13)) - |EUCDOM-;extendedEuclidean;3SU;8|) - (EXIT - (CONS - 0 - (CONS - (QCDR |qr|) - (SPADCALL - (SPADCALL - (QVELT |s| 1) - (QCDR |w|) - (QREFELT |$| 24)) - (SPADCALL - (QCAR |qr|) - |x| - (QREFELT |$| 24)) - (QREFELT |$| 29)))))))))))))))) +(DEFUN |EUCDOM-;exquo;2SU;4| (|x| |y| $) + (PROG (|qr|) + (RETURN + (SEQ (COND + ((SPADCALL |y| (|getShellEntry| $ 8)) (CONS 1 "failed")) + ('T + (SEQ (LETT |qr| (SPADCALL |x| |y| (|getShellEntry| $ 13)) + |EUCDOM-;exquo;2SU;4|) + (EXIT (COND + ((SPADCALL (QCDR |qr|) + (|getShellEntry| $ 8)) + (CONS 0 (QCAR |qr|))) + ('T (CONS 1 "failed"))))))))))) -@ -\subsubsection{EUCDOM-;principalIdeal;LR;9} -<<EUCDOM-;principalIdeal;LR;9>>= -(DEFUN |EUCDOM-;principalIdeal;LR;9| (|l| |$|) - (PROG (|uca| |v| |u| #1=#:G83663 |vv| #2=#:G83664) - (RETURN - (SEQ - (COND - ((SPADCALL |l| NIL (QREFELT |$| 38)) - (|error| "empty list passed to principalIdeal")) - ((SPADCALL (CDR |l|) NIL (QREFELT |$| 38)) - (SEQ - (LETT |uca| - (SPADCALL (|SPADfirst| |l|) (QREFELT |$| 22)) - |EUCDOM-;principalIdeal;LR;9|) - (EXIT (CONS (LIST (QVELT |uca| 0)) (QVELT |uca| 1))))) - ((SPADCALL (CDR (CDR |l|)) NIL (QREFELT |$| 38)) - (SEQ - (LETT |u| - (SPADCALL - (|SPADfirst| |l|) - (SPADCALL |l| (QREFELT |$| 39)) - (QREFELT |$| 32)) - |EUCDOM-;principalIdeal;LR;9|) - (EXIT - (CONS (LIST (QVELT |u| 0) (QVELT |u| 1)) (QVELT |u| 2))))) - ((QUOTE T) - (SEQ - (LETT |v| - (SPADCALL (CDR |l|) (QREFELT |$| 42)) - |EUCDOM-;principalIdeal;LR;9|) - (LETT |u| - (SPADCALL (|SPADfirst| |l|) (QCDR |v|) (QREFELT |$| 32)) - |EUCDOM-;principalIdeal;LR;9|) - (EXIT - (CONS - (CONS - (QVELT |u| 0) - (PROGN - (LETT #1# NIL |EUCDOM-;principalIdeal;LR;9|) - (SEQ - (LETT |vv| NIL |EUCDOM-;principalIdeal;LR;9|) - (LETT #2# (QCAR |v|) |EUCDOM-;principalIdeal;LR;9|) - G190 - (COND - ((OR - (ATOM #2#) - (PROGN - (LETT |vv| - (CAR #2#) - |EUCDOM-;principalIdeal;LR;9|) - NIL)) - (GO G191))) - (SEQ - (EXIT - (LETT #1# - (CONS - (SPADCALL - (QVELT |u| 1) - |vv| - (QREFELT |$| 24)) - #1#) - |EUCDOM-;principalIdeal;LR;9|))) - (LETT #2# (CDR #2#) |EUCDOM-;principalIdeal;LR;9|) - (GO G190) - G191 - (EXIT (NREVERSE0 #1#))))) - (QVELT |u| 2)))))))))) -@ -\subsubsection{EUCDOM-;expressIdealMember;LSU;10} -<<EUCDOM-;expressIdealMember;LSU;10>>= -(DEFUN |EUCDOM-;expressIdealMember;LSU;10| (|l| |z| |$|) - (PROG (#1=#:G83681 #2=#:G83682 |pid| |q| #3=#:G83679 |v| #4=#:G83680) - (RETURN - (SEQ - (COND - ((SPADCALL |z| (|spadConstant| |$| 26) (QREFELT |$| 44)) - (CONS - 0 - (PROGN - (LETT #1# NIL |EUCDOM-;expressIdealMember;LSU;10|) - (SEQ - (LETT |v| NIL |EUCDOM-;expressIdealMember;LSU;10|) - (LETT #2# |l| |EUCDOM-;expressIdealMember;LSU;10|) - G190 - (COND - ((OR - (ATOM #2#) - (PROGN - (LETT |v| - (CAR #2#) - |EUCDOM-;expressIdealMember;LSU;10|) - NIL)) - (GO G191))) - (SEQ - (EXIT - (LETT #1# - (CONS (|spadConstant| |$| 26) #1#) - |EUCDOM-;expressIdealMember;LSU;10|))) - (LETT #2# (CDR #2#) |EUCDOM-;expressIdealMember;LSU;10|) - (GO G190) - G191 - (EXIT (NREVERSE0 #1#)))))) - ((QUOTE T) - (SEQ - (LETT |pid| - (SPADCALL |l| (QREFELT |$| 42)) - |EUCDOM-;expressIdealMember;LSU;10|) - (LETT |q| - (SPADCALL |z| (QCDR |pid|) (QREFELT |$| 33)) - |EUCDOM-;expressIdealMember;LSU;10|) - (EXIT - (COND - ((QEQCAR |q| 1) (CONS 1 "failed")) - ((QUOTE T) - (CONS - 0 - (PROGN - (LETT #3# NIL |EUCDOM-;expressIdealMember;LSU;10|) - (SEQ - (LETT |v| NIL |EUCDOM-;expressIdealMember;LSU;10|) - (LETT #4# (QCAR |pid|) |EUCDOM-;expressIdealMember;LSU;10|) - G190 - (COND - ((OR - (ATOM #4#) - (PROGN - (LETT |v| - (CAR #4#) - |EUCDOM-;expressIdealMember;LSU;10|) - NIL)) - (GO G191))) - (SEQ - (EXIT - (LETT #3# - (CONS - (SPADCALL (QCDR |q|) |v| (QREFELT |$| 24)) - #3#) - |EUCDOM-;expressIdealMember;LSU;10|))) - (LETT #4# - (CDR #4#) +(DEFUN |EUCDOM-;gcd;3S;5| (|x| |y| $) + (PROG (|#G13| |#G14|) + (RETURN + (SEQ (LETT |x| (SPADCALL |x| (|getShellEntry| $ 18)) + |EUCDOM-;gcd;3S;5|) + (LETT |y| (SPADCALL |y| (|getShellEntry| $ 18)) + |EUCDOM-;gcd;3S;5|) + (SEQ G190 + (COND + ((NULL (SPADCALL (SPADCALL |y| (|getShellEntry| $ 8)) + (|getShellEntry| $ 19))) + (GO G191))) + (SEQ (PROGN + (LETT |#G13| |y| |EUCDOM-;gcd;3S;5|) + (LETT |#G14| + (SPADCALL |x| |y| (|getShellEntry| $ 20)) + |EUCDOM-;gcd;3S;5|) + (LETT |x| |#G13| |EUCDOM-;gcd;3S;5|) + (LETT |y| |#G14| |EUCDOM-;gcd;3S;5|)) + (EXIT (LETT |y| + (SPADCALL |y| (|getShellEntry| $ 18)) + |EUCDOM-;gcd;3S;5|))) + NIL (GO G190) G191 (EXIT NIL)) + (EXIT |x|))))) + +(DEFUN |EUCDOM-;unitNormalizeIdealElt| (|s| $) + (PROG (|#G16| |u| |c| |a|) + (RETURN + (SEQ (PROGN + (LETT |#G16| + (SPADCALL (QVELT |s| 2) (|getShellEntry| $ 23)) + |EUCDOM-;unitNormalizeIdealElt|) + (LETT |u| (QVELT |#G16| 0) + |EUCDOM-;unitNormalizeIdealElt|) + (LETT |c| (QVELT |#G16| 1) + |EUCDOM-;unitNormalizeIdealElt|) + (LETT |a| (QVELT |#G16| 2) + |EUCDOM-;unitNormalizeIdealElt|) + |#G16|) + (EXIT (COND + ((SPADCALL |a| (|spadConstant| $ 24) + (|getShellEntry| $ 25)) + |s|) + ('T + (VECTOR (SPADCALL |a| (QVELT |s| 0) + (|getShellEntry| $ 26)) + (SPADCALL |a| (QVELT |s| 1) + (|getShellEntry| $ 26)) + |c|)))))))) + +(DEFUN |EUCDOM-;extendedEuclidean;2SR;7| (|x| |y| $) + (PROG (|s3| |s2| |qr| |s1|) + (RETURN + (SEQ (LETT |s1| + (|EUCDOM-;unitNormalizeIdealElt| + (VECTOR (|spadConstant| $ 24) + (|spadConstant| $ 27) |x|) + $) + |EUCDOM-;extendedEuclidean;2SR;7|) + (LETT |s2| + (|EUCDOM-;unitNormalizeIdealElt| + (VECTOR (|spadConstant| $ 27) + (|spadConstant| $ 24) |y|) + $) + |EUCDOM-;extendedEuclidean;2SR;7|) + (EXIT (COND + ((SPADCALL |y| (|getShellEntry| $ 8)) |s1|) + ((SPADCALL |x| (|getShellEntry| $ 8)) |s2|) + ('T + (SEQ (SEQ G190 + (COND + ((NULL (SPADCALL + (SPADCALL (QVELT |s2| 2) + (|getShellEntry| $ 8)) + (|getShellEntry| $ 19))) + (GO G191))) + (SEQ (LETT |qr| + (SPADCALL (QVELT |s1| 2) + (QVELT |s2| 2) + (|getShellEntry| $ 13)) + |EUCDOM-;extendedEuclidean;2SR;7|) + (LETT |s3| + (VECTOR + (SPADCALL (QVELT |s1| 0) + (SPADCALL (QCAR |qr|) + (QVELT |s2| 0) + (|getShellEntry| $ 26)) + (|getShellEntry| $ 28)) + (SPADCALL (QVELT |s1| 1) + (SPADCALL (QCAR |qr|) + (QVELT |s2| 1) + (|getShellEntry| $ 26)) + (|getShellEntry| $ 28)) + (QCDR |qr|)) + |EUCDOM-;extendedEuclidean;2SR;7|) + (LETT |s1| |s2| + |EUCDOM-;extendedEuclidean;2SR;7|) + (EXIT + (LETT |s2| + (|EUCDOM-;unitNormalizeIdealElt| + |s3| $) + |EUCDOM-;extendedEuclidean;2SR;7|))) + NIL (GO G190) G191 (EXIT NIL)) + (COND + ((NULL (SPADCALL (QVELT |s1| 0) + (|getShellEntry| $ 8))) + (COND + ((NULL (SPADCALL (QVELT |s1| 0) |y| + (|getShellEntry| $ 29))) + (SEQ (LETT |qr| + (SPADCALL (QVELT |s1| 0) |y| + (|getShellEntry| $ 13)) + |EUCDOM-;extendedEuclidean;2SR;7|) + (QSETVELT |s1| 0 (QCDR |qr|)) + (QSETVELT |s1| 1 + (SPADCALL (QVELT |s1| 1) + (SPADCALL (QCAR |qr|) |x| + (|getShellEntry| $ 26)) + (|getShellEntry| $ 30))) + (EXIT + (LETT |s1| + (|EUCDOM-;unitNormalizeIdealElt| + |s1| $) + |EUCDOM-;extendedEuclidean;2SR;7|))))))) + (EXIT |s1|))))))))) + +(DEFUN |EUCDOM-;extendedEuclidean;3SU;8| (|x| |y| |z| $) + (PROG (|s| |w| |qr|) + (RETURN + (SEQ (COND + ((SPADCALL |z| (|getShellEntry| $ 8)) + (CONS 0 + (CONS (|spadConstant| $ 27) (|spadConstant| $ 27)))) + ('T + (SEQ (LETT |s| (SPADCALL |x| |y| (|getShellEntry| $ 33)) + |EUCDOM-;extendedEuclidean;3SU;8|) + (LETT |w| + (SPADCALL |z| (QVELT |s| 2) + (|getShellEntry| $ 34)) + |EUCDOM-;extendedEuclidean;3SU;8|) + (EXIT (COND + ((QEQCAR |w| 1) (CONS 1 "failed")) + ((SPADCALL |y| (|getShellEntry| $ 8)) + (CONS 0 + (CONS (SPADCALL (QVELT |s| 0) + (QCDR |w|) + (|getShellEntry| $ 26)) + (SPADCALL (QVELT |s| 1) + (QCDR |w|) + (|getShellEntry| $ 26))))) + ('T + (SEQ (LETT |qr| + (SPADCALL + (SPADCALL (QVELT |s| 0) + (QCDR |w|) + (|getShellEntry| $ 26)) + |y| (|getShellEntry| $ 13)) + |EUCDOM-;extendedEuclidean;3SU;8|) + (EXIT (CONS 0 + (CONS (QCDR |qr|) + (SPADCALL + (SPADCALL (QVELT |s| 1) + (QCDR |w|) + (|getShellEntry| $ 26)) + (SPADCALL (QCAR |qr|) |x| + (|getShellEntry| $ 26)) + (|getShellEntry| $ 30)))))))))))))))) + +(DEFUN |EUCDOM-;principalIdeal;LR;9| (|l| $) + (PROG (|uca| |v| |u| #0=#:G1478 |vv| #1=#:G1479) + (RETURN + (SEQ (COND + ((SPADCALL |l| NIL (|getShellEntry| $ 39)) + (|error| "empty list passed to principalIdeal")) + ((SPADCALL (CDR |l|) NIL (|getShellEntry| $ 39)) + (SEQ (LETT |uca| + (SPADCALL (|SPADfirst| |l|) + (|getShellEntry| $ 23)) + |EUCDOM-;principalIdeal;LR;9|) + (EXIT (CONS (LIST (QVELT |uca| 0)) (QVELT |uca| 1))))) + ((SPADCALL (CDR (CDR |l|)) NIL (|getShellEntry| $ 39)) + (SEQ (LETT |u| + (SPADCALL (|SPADfirst| |l|) + (SPADCALL |l| (|getShellEntry| $ 40)) + (|getShellEntry| $ 33)) + |EUCDOM-;principalIdeal;LR;9|) + (EXIT (CONS (LIST (QVELT |u| 0) (QVELT |u| 1)) + (QVELT |u| 2))))) + ('T + (SEQ (LETT |v| + (SPADCALL (CDR |l|) (|getShellEntry| $ 43)) + |EUCDOM-;principalIdeal;LR;9|) + (LETT |u| + (SPADCALL (|SPADfirst| |l|) (QCDR |v|) + (|getShellEntry| $ 33)) + |EUCDOM-;principalIdeal;LR;9|) + (EXIT (CONS (CONS (QVELT |u| 0) + (PROGN + (LETT #0# NIL + |EUCDOM-;principalIdeal;LR;9|) + (SEQ + (LETT |vv| NIL + |EUCDOM-;principalIdeal;LR;9|) + (LETT #1# (QCAR |v|) + |EUCDOM-;principalIdeal;LR;9|) + G190 + (COND + ((OR (ATOM #1#) + (PROGN + (LETT |vv| (CAR #1#) + |EUCDOM-;principalIdeal;LR;9|) + NIL)) + (GO G191))) + (SEQ + (EXIT + (LETT #0# + (CONS + (SPADCALL (QVELT |u| 1) + |vv| + (|getShellEntry| $ 26)) + #0#) + |EUCDOM-;principalIdeal;LR;9|))) + (LETT #1# (CDR #1#) + |EUCDOM-;principalIdeal;LR;9|) + (GO G190) G191 + (EXIT (NREVERSE0 #0#))))) + (QVELT |u| 2)))))))))) + +(DEFUN |EUCDOM-;expressIdealMember;LSU;10| (|l| |z| $) + (PROG (#0=#:G1494 #1=#:G1495 |pid| |q| #2=#:G1496 |v| #3=#:G1497) + (RETURN + (SEQ (COND + ((SPADCALL |z| (|spadConstant| $ 27) + (|getShellEntry| $ 25)) + (CONS 0 + (PROGN + (LETT #0# NIL |EUCDOM-;expressIdealMember;LSU;10|) - (GO G190) - G191 - (EXIT (NREVERSE0 #3#))))))))))))))) - -@ -\subsubsection{EUCDOM-;multiEuclidean;LSU;11} -<<EUCDOM-;multiEuclidean;LSU;11>>= -(DEFUN |EUCDOM-;multiEuclidean;LSU;11| (|l| |z| |$|) - (PROG (|n| |l1| |l2| #1=#:G83565 #2=#:G83702 #3=#:G83688 #4=#:G83686 - #5=#:G83687 #6=#:G83566 #7=#:G83701 #8=#:G83691 #9=#:G83689 - #10=#:G83690 |u| |v1| |v2|) - (RETURN - (SEQ - (LETT |n| (LENGTH |l|) |EUCDOM-;multiEuclidean;LSU;11|) - (EXIT - (COND - ((ZEROP |n|) (|error| "empty list passed to multiEuclidean")) - ((EQL |n| 1) (CONS 0 (LIST |z|))) - ((QUOTE T) - (SEQ - (LETT |l1| - (SPADCALL |l| (QREFELT |$| 47)) - |EUCDOM-;multiEuclidean;LSU;11|) - (LETT |l2| - (SPADCALL |l1| (QUOTIENT2 |n| 2) (QREFELT |$| 49)) - |EUCDOM-;multiEuclidean;LSU;11|) - (LETT |u| - (SPADCALL - (PROGN - (LETT #5# NIL |EUCDOM-;multiEuclidean;LSU;11|) - (SEQ - (LETT #1# NIL |EUCDOM-;multiEuclidean;LSU;11|) - (LETT #2# |l1| |EUCDOM-;multiEuclidean;LSU;11|) - G190 - (COND - ((OR - (ATOM #2#) - (PROGN - (LETT #1# - (CAR #2#) - |EUCDOM-;multiEuclidean;LSU;11|) - NIL)) - (GO G191))) - (SEQ - (EXIT - (PROGN - (LETT #3# #1# |EUCDOM-;multiEuclidean;LSU;11|) - (COND - (#5# - (LETT #4# - (SPADCALL #4# #3# (QREFELT |$| 24)) - |EUCDOM-;multiEuclidean;LSU;11|)) - ((QUOTE T) - (PROGN - (LETT #4# - #3# - |EUCDOM-;multiEuclidean;LSU;11|) - (LETT #5# - (QUOTE T) - |EUCDOM-;multiEuclidean;LSU;11|))))))) - (LETT #2# (CDR #2#) |EUCDOM-;multiEuclidean;LSU;11|) - (GO G190) - G191 - (EXIT NIL)) - (COND (#5# #4#) ((QUOTE T) (|spadConstant| |$| 25)))) - (PROGN - (LETT #10# NIL |EUCDOM-;multiEuclidean;LSU;11|) - (SEQ - (LETT #6# NIL |EUCDOM-;multiEuclidean;LSU;11|) - (LETT #7# |l2| |EUCDOM-;multiEuclidean;LSU;11|) - G190 - (COND - ((OR - (ATOM #7#) - (PROGN - (LETT #6# - (CAR #7#) - |EUCDOM-;multiEuclidean;LSU;11|) - NIL)) - (GO G191))) - (SEQ - (EXIT - (PROGN - (LETT #8# #6# |EUCDOM-;multiEuclidean;LSU;11|) - (COND - (#10# - (LETT #9# - (SPADCALL #9# #8# (QREFELT |$| 24)) - |EUCDOM-;multiEuclidean;LSU;11|)) - ((QUOTE T) - (PROGN - (LETT #9# - #8# + (SEQ (LETT |v| NIL + |EUCDOM-;expressIdealMember;LSU;10|) + (LETT #1# |l| + |EUCDOM-;expressIdealMember;LSU;10|) + G190 + (COND + ((OR (ATOM #1#) + (PROGN + (LETT |v| (CAR #1#) + |EUCDOM-;expressIdealMember;LSU;10|) + NIL)) + (GO G191))) + (SEQ (EXIT (LETT #0# + (CONS (|spadConstant| $ 27) #0#) + |EUCDOM-;expressIdealMember;LSU;10|))) + (LETT #1# (CDR #1#) + |EUCDOM-;expressIdealMember;LSU;10|) + (GO G190) G191 (EXIT (NREVERSE0 #0#)))))) + ('T + (SEQ (LETT |pid| (SPADCALL |l| (|getShellEntry| $ 43)) + |EUCDOM-;expressIdealMember;LSU;10|) + (LETT |q| + (SPADCALL |z| (QCDR |pid|) + (|getShellEntry| $ 34)) + |EUCDOM-;expressIdealMember;LSU;10|) + (EXIT (COND + ((QEQCAR |q| 1) (CONS 1 "failed")) + ('T + (CONS 0 + (PROGN + (LETT #2# NIL + |EUCDOM-;expressIdealMember;LSU;10|) + (SEQ + (LETT |v| NIL + |EUCDOM-;expressIdealMember;LSU;10|) + (LETT #3# (QCAR |pid|) + |EUCDOM-;expressIdealMember;LSU;10|) + G190 + (COND + ((OR (ATOM #3#) + (PROGN + (LETT |v| (CAR #3#) + |EUCDOM-;expressIdealMember;LSU;10|) + NIL)) + (GO G191))) + (SEQ + (EXIT + (LETT #2# + (CONS + (SPADCALL (QCDR |q|) |v| + (|getShellEntry| $ 26)) + #2#) + |EUCDOM-;expressIdealMember;LSU;10|))) + (LETT #3# (CDR #3#) + |EUCDOM-;expressIdealMember;LSU;10|) + (GO G190) G191 + (EXIT (NREVERSE0 #2#))))))))))))))) + +(DEFUN |EUCDOM-;multiEuclidean;LSU;11| (|l| |z| $) + (PROG (|n| |l1| |l2| #0=#:G1392 #1=#:G1516 #2=#:G1503 #3=#:G1501 + #4=#:G1502 #5=#:G1393 #6=#:G1517 #7=#:G1506 #8=#:G1504 + #9=#:G1505 |u| |v1| |v2|) + (RETURN + (SEQ (LETT |n| (LENGTH |l|) |EUCDOM-;multiEuclidean;LSU;11|) + (EXIT (COND + ((ZEROP |n|) + (|error| "empty list passed to multiEuclidean")) + ((EQL |n| 1) (CONS 0 (LIST |z|))) + ('T + (SEQ (LETT |l1| + (SPADCALL |l| (|getShellEntry| $ 47)) + |EUCDOM-;multiEuclidean;LSU;11|) + (LETT |l2| + (SPADCALL |l1| (QUOTIENT2 |n| 2) + (|getShellEntry| $ 49)) + |EUCDOM-;multiEuclidean;LSU;11|) + (LETT |u| + (SPADCALL + (PROGN + (LETT #4# NIL |EUCDOM-;multiEuclidean;LSU;11|) - (LETT #10# - (QUOTE T) - |EUCDOM-;multiEuclidean;LSU;11|))))))) - (LETT #7# (CDR #7#) |EUCDOM-;multiEuclidean;LSU;11|) - (GO G190) - G191 - (EXIT NIL)) - (COND - (#10# #9#) - ((QUOTE T) (|spadConstant| |$| 25)))) - |z| - (QREFELT |$| 50)) - |EUCDOM-;multiEuclidean;LSU;11|) - (EXIT - (COND - ((QEQCAR |u| 1) (CONS 1 "failed")) - ((QUOTE T) - (SEQ - (LETT |v1| - (SPADCALL |l1| (QCDR (QCDR |u|)) (QREFELT |$| 51)) - |EUCDOM-;multiEuclidean;LSU;11|) - (EXIT - (COND - ((QEQCAR |v1| 1) (CONS 1 "failed")) - ((QUOTE T) - (SEQ - (LETT |v2| - (SPADCALL - |l2| - (QCAR (QCDR |u|)) - (QREFELT |$| 51)) - |EUCDOM-;multiEuclidean;LSU;11|) - (EXIT - (COND - ((QEQCAR |v2| 1) (CONS 1 "failed")) - ((QUOTE T) - (CONS - 0 - (SPADCALL - (QCDR |v1|) - (QCDR |v2|) - (QREFELT |$| 52)))))))))))))))))))))) - -@ -\subsubsection{EuclideanDomain\&} -<<EuclideanDomainAmp>>= -(DEFUN |EuclideanDomain&| (|#1|) - (PROG (|DV$1| |dv$| |$| |pv$|) - (RETURN - (PROGN - (LETT |DV$1| (|devaluate| |#1|) . #1=(|EuclideanDomain&|)) - (LETT |dv$| (LIST (QUOTE |EuclideanDomain&|) |DV$1|) . #1#) - (LETT |$| (GETREFV 54) . #1#) - (QSETREFV |$| 0 |dv$|) - (QSETREFV |$| 3 (LETT |pv$| (|buildPredVector| 0 0 NIL) . #1#)) - (|stuffDomainSlots| |$|) - (QSETREFV |$| 6 |#1|) - |$|)))) + (SEQ + (LETT #0# NIL + |EUCDOM-;multiEuclidean;LSU;11|) + (LETT #1# |l1| + |EUCDOM-;multiEuclidean;LSU;11|) + G190 + (COND + ((OR (ATOM #1#) + (PROGN + (LETT #0# (CAR #1#) + |EUCDOM-;multiEuclidean;LSU;11|) + NIL)) + (GO G191))) + (SEQ + (EXIT + (PROGN + (LETT #2# #0# + |EUCDOM-;multiEuclidean;LSU;11|) + (COND + (#4# + (LETT #3# + (SPADCALL #3# #2# + (|getShellEntry| $ 26)) + |EUCDOM-;multiEuclidean;LSU;11|)) + ('T + (PROGN + (LETT #3# #2# + |EUCDOM-;multiEuclidean;LSU;11|) + (LETT #4# 'T + |EUCDOM-;multiEuclidean;LSU;11|))))))) + (LETT #1# (CDR #1#) + |EUCDOM-;multiEuclidean;LSU;11|) + (GO G190) G191 (EXIT NIL)) + (COND + (#4# #3#) + ('T (|spadConstant| $ 24)))) + (PROGN + (LETT #9# NIL + |EUCDOM-;multiEuclidean;LSU;11|) + (SEQ + (LETT #5# NIL + |EUCDOM-;multiEuclidean;LSU;11|) + (LETT #6# |l2| + |EUCDOM-;multiEuclidean;LSU;11|) + G190 + (COND + ((OR (ATOM #6#) + (PROGN + (LETT #5# (CAR #6#) + |EUCDOM-;multiEuclidean;LSU;11|) + NIL)) + (GO G191))) + (SEQ + (EXIT + (PROGN + (LETT #7# #5# + |EUCDOM-;multiEuclidean;LSU;11|) + (COND + (#9# + (LETT #8# + (SPADCALL #8# #7# + (|getShellEntry| $ 26)) + |EUCDOM-;multiEuclidean;LSU;11|)) + ('T + (PROGN + (LETT #8# #7# + |EUCDOM-;multiEuclidean;LSU;11|) + (LETT #9# 'T + |EUCDOM-;multiEuclidean;LSU;11|))))))) + (LETT #6# (CDR #6#) + |EUCDOM-;multiEuclidean;LSU;11|) + (GO G190) G191 (EXIT NIL)) + (COND + (#9# #8#) + ('T (|spadConstant| $ 24)))) + |z| (|getShellEntry| $ 50)) + |EUCDOM-;multiEuclidean;LSU;11|) + (EXIT (COND + ((QEQCAR |u| 1) (CONS 1 "failed")) + ('T + (SEQ (LETT |v1| + (SPADCALL |l1| + (QCDR (QCDR |u|)) + (|getShellEntry| $ 51)) + |EUCDOM-;multiEuclidean;LSU;11|) + (EXIT + (COND + ((QEQCAR |v1| 1) + (CONS 1 "failed")) + ('T + (SEQ + (LETT |v2| + (SPADCALL |l2| + (QCAR (QCDR |u|)) + (|getShellEntry| $ 51)) + |EUCDOM-;multiEuclidean;LSU;11|) + (EXIT + (COND + ((QEQCAR |v2| 1) + (CONS 1 "failed")) + ('T + (CONS 0 + (SPADCALL (QCDR |v1|) + (QCDR |v2|) + (|getShellEntry| $ + 52)))))))))))))))))))))) + +(DEFUN |EuclideanDomain&| (|#1|) + (PROG (|dv$1| |dv$| $ |pv$|) + (RETURN + (PROGN + (LETT |dv$1| (|devaluate| |#1|) . #0=(|EuclideanDomain&|)) + (LETT |dv$| (LIST '|EuclideanDomain&| |dv$1|) . #0#) + (LETT $ (|newShell| 54) . #0#) + (|setShellEntry| $ 0 |dv$|) + (|setShellEntry| $ 3 + (LETT |pv$| (|buildPredVector| 0 0 NIL) . #0#)) + (|stuffDomainSlots| $) + (|setShellEntry| $ 6 |#1|) + $)))) +(MAKEPROP '|EuclideanDomain&| '|infovec| + (LIST '#(NIL NIL NIL NIL NIL NIL (|local| |#1|) (|Boolean|) + (0 . |zero?|) (|NonNegativeInteger|) (5 . |euclideanSize|) + |EUCDOM-;sizeLess?;2SB;1| + (|Record| (|:| |quotient| $) (|:| |remainder| $)) + (10 . |divide|) |EUCDOM-;quo;3S;2| |EUCDOM-;rem;3S;3| + (|Union| $ '"failed") |EUCDOM-;exquo;2SU;4| + (16 . |unitCanonical|) (21 . |not|) (26 . |rem|) + |EUCDOM-;gcd;3S;5| + (|Record| (|:| |unit| $) (|:| |canonical| $) + (|:| |associate| $)) + (32 . |unitNormal|) (37 . |One|) (41 . =) (47 . *) + (53 . |Zero|) (57 . -) (63 . |sizeLess?|) (69 . +) + (|Record| (|:| |coef1| $) (|:| |coef2| $) + (|:| |generator| $)) + |EUCDOM-;extendedEuclidean;2SR;7| + (75 . |extendedEuclidean|) (81 . |exquo|) + (|Record| (|:| |coef1| $) (|:| |coef2| $)) + (|Union| 35 '"failed") |EUCDOM-;extendedEuclidean;3SU;8| + (|List| 6) (87 . =) (93 . |second|) (|List| $) + (|Record| (|:| |coef| 41) (|:| |generator| $)) + (98 . |principalIdeal|) |EUCDOM-;principalIdeal;LR;9| + (|Union| 41 '"failed") |EUCDOM-;expressIdealMember;LSU;10| + (103 . |copy|) (|Integer|) (108 . |split!|) + (114 . |extendedEuclidean|) (121 . |multiEuclidean|) + (127 . |concat|) |EUCDOM-;multiEuclidean;LSU;11|) + '#(|sizeLess?| 133 |rem| 139 |quo| 145 |principalIdeal| 151 + |multiEuclidean| 156 |gcd| 162 |extendedEuclidean| 168 + |exquo| 181 |expressIdealMember| 187) + 'NIL + (CONS (|makeByteWordVec2| 1 'NIL) + (CONS '#() + (CONS '#() + (|makeByteWordVec2| 53 + '(1 6 7 0 8 1 6 9 0 10 2 6 12 0 0 13 1 + 6 0 0 18 1 7 0 0 19 2 6 0 0 0 20 1 6 + 22 0 23 0 6 0 24 2 6 7 0 0 25 2 6 0 0 + 0 26 0 6 0 27 2 6 0 0 0 28 2 6 7 0 0 + 29 2 6 0 0 0 30 2 6 31 0 0 33 2 6 16 + 0 0 34 2 38 7 0 0 39 1 38 6 0 40 1 6 + 42 41 43 1 38 0 0 47 2 38 0 0 48 49 3 + 6 36 0 0 0 50 2 6 45 41 0 51 2 38 0 0 + 0 52 2 0 7 0 0 11 2 0 0 0 0 15 2 0 0 + 0 0 14 1 0 42 41 44 2 0 45 41 0 53 2 + 0 0 0 0 21 3 0 36 0 0 0 37 2 0 31 0 0 + 32 2 0 16 0 0 17 2 0 45 41 0 46))))) + '|lookupComplete|)) @ -\subsubsection{EUCDOM-;MAKEPROP} -<<EUCDOM-;MAKEPROP>>= -(MAKEPROP - (QUOTE |EuclideanDomain&|) - (QUOTE |infovec|) - (LIST - (QUOTE - #(NIL NIL NIL NIL NIL NIL - (|local| |#1|) - (|Boolean|) - (0 . |zero?|) - (|NonNegativeInteger|) - (5 . |euclideanSize|) - |EUCDOM-;sizeLess?;2SB;1| - (|Record| (|:| |quotient| |$|) (|:| |remainder| |$|)) - (10 . |divide|) - |EUCDOM-;quo;3S;2| - |EUCDOM-;rem;3S;3| - (|Union| |$| (QUOTE "failed")) - |EUCDOM-;exquo;2SU;4| - (16 . |unitCanonical|) - (21 . |rem|) - |EUCDOM-;gcd;3S;5| - (|Record| (|:| |unit| |$|) (|:| |canonical| |$|) (|:| |associate| |$|)) - (27 . |unitNormal|) - (32 . |one?|) - (37 . |*|) - (43 . |One|) - (47 . |Zero|) - (51 . |-|) - (57 . |sizeLess?|) - (63 . |+|) - (|Record| (|:| |coef1| |$|) (|:| |coef2| |$|) (|:| |generator| |$|)) - |EUCDOM-;extendedEuclidean;2SR;7| - (69 . |extendedEuclidean|) - (75 . |exquo|) - (|Record| (|:| |coef1| |$|) (|:| |coef2| |$|)) - (|Union| 34 (QUOTE "failed")) - |EUCDOM-;extendedEuclidean;3SU;8| - (|List| 6) - (81 . |=|) - (87 . |second|) - (|Record| (|:| |coef| 41) (|:| |generator| |$|)) - (|List| |$|) - (92 . |principalIdeal|) - |EUCDOM-;principalIdeal;LR;9| - (97 . |=|) - (|Union| 41 (QUOTE "failed")) - |EUCDOM-;expressIdealMember;LSU;10| - (103 . |copy|) - (|Integer|) - (108 . |split!|) - (114 . |extendedEuclidean|) - (121 . |multiEuclidean|) - (127 . |concat|) - |EUCDOM-;multiEuclidean;LSU;11|)) - (QUOTE - #(|sizeLess?| 133 |rem| 139 |quo| 145 |principalIdeal| 151 - |multiEuclidean| 156 |gcd| 162 |extendedEuclidean| 168 |exquo| 181 - |expressIdealMember| 187)) - (QUOTE NIL) - (CONS - (|makeByteWordVec2| 1 (QUOTE NIL)) - (CONS - (QUOTE #()) - (CONS - (QUOTE #()) - (|makeByteWordVec2| 53 - (QUOTE - (1 6 7 0 8 1 6 9 0 10 2 6 12 0 0 13 1 6 0 0 18 2 6 0 0 0 19 1 6 - 21 0 22 1 6 7 0 23 2 6 0 0 0 24 0 6 0 25 0 6 0 26 2 6 0 0 0 27 - 2 6 7 0 0 28 2 6 0 0 0 29 2 6 30 0 0 32 2 6 16 0 0 33 2 37 7 0 - 0 38 1 37 6 0 39 1 6 40 41 42 2 6 7 0 0 44 1 37 0 0 47 2 37 0 0 - 48 49 3 6 35 0 0 0 50 2 6 45 41 0 51 2 37 0 0 0 52 2 0 7 0 0 11 - 2 0 0 0 0 15 2 0 0 0 0 14 1 0 40 41 43 2 0 45 41 0 53 2 0 0 0 0 - 20 3 0 35 0 0 0 36 2 0 30 0 0 31 2 0 16 0 0 17 2 0 45 41 0 - 46)))))) - (QUOTE |lookupComplete|))) -@ -<<EUCDOM-.lsp BOOTSTRAP>>= -<<EUCDOM-;VersionCheck>> -<<EUCDOM-;sizeLess?;2SB;1>> -<<EUCDOM-;quo;3S;2>> -<<EUCDOM-;rem;3S;3>> -<<EUCDOM-;exquo;2SU;4>> -<<EUCDOM-;gcd;3S;5>> -<<EUCDOM-;unitNormalizeIdealElt>> -<<EUCDOM-;extendedEuclidean;2SR;7>> -<<EUCDOM-;extendedEuclidean;3SU;8>> -<<EUCDOM-;principalIdeal;LR;9>> -<<EUCDOM-;expressIdealMember;LSU;10>> -<<EUCDOM-;multiEuclidean;LSU;11>> -<<EuclideanDomainAmp>> -<<EUCDOM-;MAKEPROP>> -@ \section{category FIELD Field} + <<category FIELD Field>>= )abbrev category FIELD Field ++ Author: @@ -4003,17 +3897,17 @@ Note that this code is not included in the generated catdef.spad file. (/VERSIONCHECK 2) (DEFUN |UFD-;squareFreePart;2S;1| (|x| $) - (PROG (|s| |f| #0=#:G1396 #1=#:G1394 #2=#:G1392 #3=#:G1393) + (PROG (|s| |f| #0=#:G1403 #1=#:G1401 #2=#:G1399 #3=#:G1400) (RETURN (SEQ (SPADCALL (SPADCALL - (LETT |s| (SPADCALL |x| (QREFELT $ 8)) + (LETT |s| (SPADCALL |x| (|getShellEntry| $ 8)) |UFD-;squareFreePart;2S;1|) - (QREFELT $ 10)) + (|getShellEntry| $ 10)) (PROGN (LETT #3# NIL |UFD-;squareFreePart;2S;1|) (SEQ (LETT |f| NIL |UFD-;squareFreePart;2S;1|) - (LETT #0# (SPADCALL |s| (QREFELT $ 13)) + (LETT #0# (SPADCALL |s| (|getShellEntry| $ 14)) |UFD-;squareFreePart;2S;1|) G190 (COND @@ -4030,7 +3924,7 @@ Note that this code is not included in the generated catdef.spad file. (#3# (LETT #2# (SPADCALL #2# #1# - (QREFELT $ 14)) + (|getShellEntry| $ 15)) |UFD-;squareFreePart;2S;1|)) ('T (PROGN @@ -4040,11 +3934,12 @@ Note that this code is not included in the generated catdef.spad file. |UFD-;squareFreePart;2S;1|))))))) (LETT #0# (CDR #0#) |UFD-;squareFreePart;2S;1|) (GO G190) G191 (EXIT NIL)) - (COND (#3# #2#) ('T (|spadConstant| $ 15)))) - (QREFELT $ 14)))))) + (COND (#3# #2#) ('T (|spadConstant| $ 16)))) + (|getShellEntry| $ 15)))))) (DEFUN |UFD-;prime?;SB;2| (|x| $) - (EQL (LENGTH (SPADCALL (SPADCALL |x| (QREFELT $ 17)) (QREFELT $ 21))) + (EQL (LENGTH (SPADCALL (SPADCALL |x| (|getShellEntry| $ 18)) + (|getShellEntry| $ 22))) 1)) (DEFUN |UniqueFactorizationDomain&| (|#1|) @@ -4054,35 +3949,37 @@ Note that this code is not included in the generated catdef.spad file. (LETT |dv$1| (|devaluate| |#1|) . #0=(|UniqueFactorizationDomain&|)) (LETT |dv$| (LIST '|UniqueFactorizationDomain&| |dv$1|) . #0#) - (LETT $ (GETREFV 24) . #0#) - (QSETREFV $ 0 |dv$|) - (QSETREFV $ 3 (LETT |pv$| (|buildPredVector| 0 0 NIL) . #0#)) + (LETT $ (|newShell| 25) . #0#) + (|setShellEntry| $ 0 |dv$|) + (|setShellEntry| $ 3 + (LETT |pv$| (|buildPredVector| 0 0 NIL) . #0#)) (|stuffDomainSlots| $) - (QSETREFV $ 6 |#1|) + (|setShellEntry| $ 6 |#1|) $)))) (MAKEPROP '|UniqueFactorizationDomain&| '|infovec| (LIST '#(NIL NIL NIL NIL NIL NIL (|local| |#1|) (|Factored| $) - (0 . |squareFree|) (|Factored| 6) (5 . |unit|) - (|Record| (|:| |factor| 6) (|:| |exponent| (|Integer|))) - (|List| 11) (10 . |factors|) (15 . *) (21 . |One|) + (0 . |squareFree|) (|Factored| 6) (5 . |unit|) (|Integer|) + (|Record| (|:| |factor| 6) (|:| |exponent| 11)) + (|List| 12) (10 . |factors|) (15 . *) (21 . |One|) |UFD-;squareFreePart;2S;1| (25 . |factor|) (|Union| '"nil" '"sqfr" '"irred" '"prime") - (|Record| (|:| |flg| 18) (|:| |fctr| 6) - (|:| |xpnt| (|Integer|))) - (|List| 19) (30 . |factorList|) (|Boolean|) + (|Record| (|:| |flg| 19) (|:| |fctr| 6) (|:| |xpnt| 11)) + (|List| 20) (30 . |factorList|) (|Boolean|) |UFD-;prime?;SB;2|) '#(|squareFreePart| 35 |prime?| 40) 'NIL (CONS (|makeByteWordVec2| 1 'NIL) (CONS '#() (CONS '#() - (|makeByteWordVec2| 23 - '(1 6 7 0 8 1 9 6 0 10 1 9 12 0 13 2 6 - 0 0 0 14 0 6 0 15 1 6 7 0 17 1 9 20 0 - 21 1 0 0 0 16 1 0 22 0 23))))) + (|makeByteWordVec2| 24 + '(1 6 7 0 8 1 9 6 0 10 1 9 13 0 14 2 6 + 0 0 0 15 0 6 0 16 1 6 7 0 18 1 9 21 0 + 22 1 0 0 0 17 1 0 23 0 24))))) '|lookupComplete|)) @ + \section{category VSPACE VectorSpace} + <<category VSPACE VectorSpace>>= )abbrev category VSPACE VectorSpace ++ Author: diff --git a/src/algebra/ffcat.spad.pamphlet b/src/algebra/ffcat.spad.pamphlet index 3821e9a5..fa336a5d 100644 --- a/src/algebra/ffcat.spad.pamphlet +++ b/src/algebra/ffcat.spad.pamphlet @@ -795,48 +795,50 @@ Note that this code is not included in the generated catdef.spad file. (COND ((SPADCALL (LETT |a| - (SPADCALL (+ (SPADCALL |a| (QREFELT $ 11)) 1) - (QREFELT $ 12)) + (SPADCALL (+ (SPADCALL |a| (|getShellEntry| $ 11)) 1) + (|getShellEntry| $ 12)) |FFIELDC-;nextItem;SU;3|) - (QREFELT $ 14)) + (|getShellEntry| $ 14)) (CONS 1 "failed")) ('T (CONS 0 |a|)))) (DEFUN |FFIELDC-;order;SOpc;4| (|e| $) - (SPADCALL (SPADCALL |e| (QREFELT $ 17)) (QREFELT $ 20))) + (SPADCALL (SPADCALL |e| (|getShellEntry| $ 17)) + (|getShellEntry| $ 20))) (DEFUN |FFIELDC-;conditionP;MU;5| (|mat| $) (PROG (|l|) (RETURN - (SEQ (LETT |l| (SPADCALL |mat| (QREFELT $ 24)) + (SEQ (LETT |l| (SPADCALL |mat| (|getShellEntry| $ 25)) |FFIELDC-;conditionP;MU;5|) (COND ((OR (NULL |l|) (SPADCALL (ELT $ 14) (|SPADfirst| |l|) - (QREFELT $ 27))) + (|getShellEntry| $ 27))) (EXIT (CONS 1 "failed")))) (EXIT (CONS 0 (SPADCALL (ELT $ 28) (|SPADfirst| |l|) - (QREFELT $ 30)))))))) + (|getShellEntry| $ 30)))))))) (DEFUN |FFIELDC-;charthRoot;2S;6| (|x| $) (SPADCALL |x| - (QUOTIENT2 (SPADCALL (QREFELT $ 35)) (SPADCALL (QREFELT $ 36))) - (QREFELT $ 37))) + (QUOTIENT2 (SPADCALL (|getShellEntry| $ 36)) + (SPADCALL (|getShellEntry| $ 37))) + (|getShellEntry| $ 38))) (DEFUN |FFIELDC-;charthRoot;SU;7| (|x| $) - (CONS 0 (SPADCALL |x| (QREFELT $ 28)))) + (CONS 0 (SPADCALL |x| (|getShellEntry| $ 28)))) (DEFUN |FFIELDC-;createPrimitiveElement;S;8| ($) - (PROG (|sm1| |start| |i| #0=#:G1434 |e| |found|) + (PROG (|sm1| |start| |i| #0=#:G1441 |e| |found|) (RETURN - (SEQ (LETT |sm1| (- (SPADCALL (QREFELT $ 35)) 1) + (SEQ (LETT |sm1| (- (SPADCALL (|getShellEntry| $ 36)) 1) |FFIELDC-;createPrimitiveElement;S;8|) (LETT |start| (COND - ((SPADCALL (SPADCALL (QREFELT $ 42)) - (CONS 1 "polynomial") (QREFELT $ 43)) - (SPADCALL (QREFELT $ 36))) + ((SPADCALL (SPADCALL (|getShellEntry| $ 43)) + (CONS 1 "polynomial") (|getShellEntry| $ 44)) + (SPADCALL (|getShellEntry| $ 37))) ('T 1)) |FFIELDC-;createPrimitiveElement;S;8|) (LETT |found| 'NIL |FFIELDC-;createPrimitiveElement;S;8|) @@ -844,17 +846,19 @@ Note that this code is not included in the generated catdef.spad file. |FFIELDC-;createPrimitiveElement;S;8|) G190 (COND - ((NULL (SPADCALL |found| (QREFELT $ 44))) (GO G191))) + ((NULL (SPADCALL |found| (|getShellEntry| $ 45))) + (GO G191))) (SEQ (LETT |e| (SPADCALL (PROG1 (LETT #0# |i| |FFIELDC-;createPrimitiveElement;S;8|) (|check-subtype| (> #0# 0) '(|PositiveInteger|) #0#)) - (QREFELT $ 12)) + (|getShellEntry| $ 12)) |FFIELDC-;createPrimitiveElement;S;8|) (EXIT (LETT |found| - (EQL (SPADCALL |e| (QREFELT $ 17)) + (EQL (SPADCALL |e| + (|getShellEntry| $ 17)) |sm1|) |FFIELDC-;createPrimitiveElement;S;8|))) (LETT |i| (+ |i| 1) @@ -863,14 +867,14 @@ Note that this code is not included in the generated catdef.spad file. (EXIT |e|))))) (DEFUN |FFIELDC-;primitive?;SB;9| (|a| $) - (PROG (|explist| |q| |exp| #0=#:G1446 |equalone|) + (PROG (|explist| |q| |exp| #0=#:G1453 |equalone|) (RETURN (SEQ (COND - ((SPADCALL |a| (QREFELT $ 14)) 'NIL) + ((SPADCALL |a| (|getShellEntry| $ 14)) 'NIL) ('T - (SEQ (LETT |explist| (SPADCALL (QREFELT $ 48)) + (SEQ (LETT |explist| (SPADCALL (|getShellEntry| $ 49)) |FFIELDC-;primitive?;SB;9|) - (LETT |q| (- (SPADCALL (QREFELT $ 35)) 1) + (LETT |q| (- (SPADCALL (|getShellEntry| $ 36)) 1) |FFIELDC-;primitive?;SB;9|) (LETT |equalone| 'NIL |FFIELDC-;primitive?;SB;9|) (SEQ (LETT |exp| NIL |FFIELDC-;primitive?;SB;9|) @@ -883,32 +887,33 @@ Note that this code is not included in the generated catdef.spad file. |FFIELDC-;primitive?;SB;9|) NIL) (NULL (SPADCALL |equalone| - (QREFELT $ 44)))) + (|getShellEntry| $ 45)))) (GO G191))) (SEQ (EXIT (LETT |equalone| (SPADCALL (SPADCALL |a| (QUOTIENT2 |q| (QCAR |exp|)) - (QREFELT $ 49)) - (|spadConstant| $ 40) - (QREFELT $ 50)) + (|getShellEntry| $ 50)) + (|spadConstant| $ 41) + (|getShellEntry| $ 51)) |FFIELDC-;primitive?;SB;9|))) (LETT #0# (CDR #0#) |FFIELDC-;primitive?;SB;9|) (GO G190) G191 (EXIT NIL)) - (EXIT (SPADCALL |equalone| (QREFELT $ 44)))))))))) + (EXIT (SPADCALL |equalone| (|getShellEntry| $ 45)))))))))) (DEFUN |FFIELDC-;order;SPi;10| (|e| $) - (PROG (|lof| |rec| #0=#:G1454 |primeDivisor| |j| #1=#:G1455 |a| + (PROG (|lof| |rec| #0=#:G1461 |primeDivisor| |j| #1=#:G1462 |a| |goon| |ord|) (RETURN (SEQ (COND - ((SPADCALL |e| (|spadConstant| $ 7) (QREFELT $ 50)) + ((SPADCALL |e| (|spadConstant| $ 7) + (|getShellEntry| $ 51)) (|error| "order(0) is not defined ")) ('T - (SEQ (LETT |ord| (- (SPADCALL (QREFELT $ 35)) 1) + (SEQ (LETT |ord| (- (SPADCALL (|getShellEntry| $ 36)) 1) |FFIELDC-;order;SPi;10|) (LETT |a| 0 |FFIELDC-;order;SPi;10|) - (LETT |lof| (SPADCALL (QREFELT $ 48)) + (LETT |lof| (SPADCALL (|getShellEntry| $ 49)) |FFIELDC-;order;SPi;10|) (SEQ (LETT |rec| NIL |FFIELDC-;order;SPi;10|) (LETT #0# |lof| |FFIELDC-;order;SPi;10|) G190 @@ -926,9 +931,10 @@ Note that this code is not included in the generated catdef.spad file. |FFIELDC-;order;SPi;10|) (LETT |goon| (SPADCALL - (SPADCALL |e| |a| (QREFELT $ 49)) - (|spadConstant| $ 40) - (QREFELT $ 50)) + (SPADCALL |e| |a| + (|getShellEntry| $ 50)) + (|spadConstant| $ 41) + (|getShellEntry| $ 51)) |FFIELDC-;order;SPi;10|) (SEQ (LETT |j| 0 |FFIELDC-;order;SPi;10|) (LETT #1# (- (QCDR |rec|) 2) @@ -948,9 +954,9 @@ Note that this code is not included in the generated catdef.spad file. (LETT |goon| (SPADCALL (SPADCALL |e| |a| - (QREFELT $ 49)) - (|spadConstant| $ 40) - (QREFELT $ 50)) + (|getShellEntry| $ 50)) + (|spadConstant| $ 41) + (|getShellEntry| $ 51)) |FFIELDC-;order;SPi;10|))) (LETT |j| (QSADD1 |j|) |FFIELDC-;order;SPi;10|) @@ -964,28 +970,32 @@ Note that this code is not included in the generated catdef.spad file. (EXIT |ord|)))))))) (DEFUN |FFIELDC-;discreteLog;SNni;11| (|b| $) - (PROG (|faclist| |gen| |groupord| |f| #0=#:G1475 |fac| |t| #1=#:G1476 + (PROG (|faclist| |gen| |groupord| |f| #0=#:G1482 |fac| |t| #1=#:G1483 |exp| |exptable| |n| |end| |i| |rho| |found| |disc1| |c| |mult| |disclog| |a|) (RETURN (SEQ (COND - ((SPADCALL |b| (QREFELT $ 14)) + ((SPADCALL |b| (|getShellEntry| $ 14)) (|error| "discreteLog: logarithm of zero")) ('T - (SEQ (LETT |faclist| (SPADCALL (QREFELT $ 48)) + (SEQ (LETT |faclist| (SPADCALL (|getShellEntry| $ 49)) |FFIELDC-;discreteLog;SNni;11|) (LETT |a| |b| |FFIELDC-;discreteLog;SNni;11|) - (LETT |gen| (SPADCALL (QREFELT $ 53)) + (LETT |gen| (SPADCALL (|getShellEntry| $ 54)) |FFIELDC-;discreteLog;SNni;11|) (EXIT (COND - ((SPADCALL |b| |gen| (QREFELT $ 50)) 1) + ((SPADCALL |b| |gen| (|getShellEntry| $ 51)) + 1) ('T (SEQ (LETT |disclog| 0 |FFIELDC-;discreteLog;SNni;11|) (LETT |mult| 1 |FFIELDC-;discreteLog;SNni;11|) (LETT |groupord| - (- (SPADCALL (QREFELT $ 35)) 1) + (- + (SPADCALL + (|getShellEntry| $ 36)) + 1) |FFIELDC-;discreteLog;SNni;11|) (LETT |exp| |groupord| |FFIELDC-;discreteLog;SNni;11|) @@ -1020,15 +1030,15 @@ Note that this code is not included in the generated catdef.spad file. |FFIELDC-;discreteLog;SNni;11|) (LETT |exptable| (SPADCALL |fac| - (QREFELT $ 55)) + (|getShellEntry| $ 56)) |FFIELDC-;discreteLog;SNni;11|) (LETT |n| (SPADCALL |exptable| - (QREFELT $ 56)) + (|getShellEntry| $ 57)) |FFIELDC-;discreteLog;SNni;11|) (LETT |c| (SPADCALL |a| |exp| - (QREFELT $ 49)) + (|getShellEntry| $ 50)) |FFIELDC-;discreteLog;SNni;11|) (LETT |end| (QUOTIENT2 (- |fac| 1) |n|) @@ -1046,15 +1056,15 @@ Note that this code is not included in the generated catdef.spad file. (QSGREATERP |i| |end|) (NULL (SPADCALL |found| - (QREFELT $ 44)))) + (|getShellEntry| $ 45)))) (GO G191))) (SEQ (LETT |rho| (SPADCALL (SPADCALL |c| - (QREFELT $ 11)) + (|getShellEntry| $ 11)) |exptable| - (QREFELT $ 58)) + (|getShellEntry| $ 59)) |FFIELDC-;discreteLog;SNni;11|) (EXIT (COND @@ -1077,8 +1087,10 @@ Note that this code is not included in the generated catdef.spad file. (QUOTIENT2 |groupord| |fac|) (- |n|)) - (QREFELT $ 49)) - (QREFELT $ 59)) + (|getShellEntry| $ + 50)) + (|getShellEntry| $ + 60)) |FFIELDC-;discreteLog;SNni;11|))))) (LETT |i| (QSADD1 |i|) |FFIELDC-;discreteLog;SNni;11|) @@ -1098,8 +1110,10 @@ Note that this code is not included in the generated catdef.spad file. (SPADCALL |a| (SPADCALL |gen| (- |disc1|) - (QREFELT $ 49)) - (QREFELT $ 59)) + (|getShellEntry| $ + 50)) + (|getShellEntry| $ + 60)) |FFIELDC-;discreteLog;SNni;11|)))) ('T (|error| @@ -1113,39 +1127,41 @@ Note that this code is not included in the generated catdef.spad file. (EXIT |disclog|)))))))))))) (DEFUN |FFIELDC-;discreteLog;2SU;12| (|logbase| |b| $) - (PROG (|groupord| |faclist| |f| #0=#:G1494 |fac| |primroot| |t| - #1=#:G1495 |exp| |rhoHelp| #2=#:G1493 |rho| |disclog| + (PROG (|groupord| |faclist| |f| #0=#:G1501 |fac| |primroot| |t| + #1=#:G1502 |exp| |rhoHelp| #2=#:G1500 |rho| |disclog| |mult| |a|) (RETURN (SEQ (EXIT (COND - ((SPADCALL |b| (QREFELT $ 14)) + ((SPADCALL |b| (|getShellEntry| $ 14)) (SEQ (SPADCALL "discreteLog: logarithm of zero" - (QREFELT $ 64)) + (|getShellEntry| $ 65)) (EXIT (CONS 1 "failed")))) - ((SPADCALL |logbase| (QREFELT $ 14)) + ((SPADCALL |logbase| (|getShellEntry| $ 14)) (SEQ (SPADCALL "discreteLog: logarithm to base zero" - (QREFELT $ 64)) + (|getShellEntry| $ 65)) (EXIT (CONS 1 "failed")))) - ((SPADCALL |b| |logbase| (QREFELT $ 50)) (CONS 0 1)) + ((SPADCALL |b| |logbase| (|getShellEntry| $ 51)) + (CONS 0 1)) ('T (COND ((NULL (ZEROP (REMAINDER2 (LETT |groupord| (SPADCALL |logbase| - (QREFELT $ 17)) + (|getShellEntry| $ 17)) |FFIELDC-;discreteLog;2SU;12|) - (SPADCALL |b| (QREFELT $ 17))))) + (SPADCALL |b| + (|getShellEntry| $ 17))))) (SEQ (SPADCALL "discreteLog: second argument not in cyclic group generated by first argument" - (QREFELT $ 64)) + (|getShellEntry| $ 65)) (EXIT (CONS 1 "failed")))) ('T (SEQ (LETT |faclist| (SPADCALL (SPADCALL |groupord| - (QREFELT $ 66)) - (QREFELT $ 68)) + (|getShellEntry| $ 67)) + (|getShellEntry| $ 69)) |FFIELDC-;discreteLog;2SU;12|) (LETT |a| |b| |FFIELDC-;discreteLog;2SU;12|) @@ -1172,7 +1188,7 @@ Note that this code is not included in the generated catdef.spad file. (LETT |primroot| (SPADCALL |logbase| (QUOTIENT2 |groupord| |fac|) - (QREFELT $ 49)) + (|getShellEntry| $ 50)) |FFIELDC-;discreteLog;2SU;12|) (EXIT (SEQ @@ -1191,8 +1207,9 @@ Note that this code is not included in the generated catdef.spad file. (LETT |rhoHelp| (SPADCALL |primroot| (SPADCALL |a| |exp| - (QREFELT $ 49)) - |fac| (QREFELT $ 70)) + (|getShellEntry| $ 50)) + |fac| + (|getShellEntry| $ 71)) |FFIELDC-;discreteLog;2SU;12|) (EXIT (COND @@ -1219,8 +1236,9 @@ Note that this code is not included in the generated catdef.spad file. (SPADCALL |a| (SPADCALL |logbase| (- |rho|) - (QREFELT $ 49)) - (QREFELT $ 59)) + (|getShellEntry| $ + 50)) + (|getShellEntry| $ 60)) |FFIELDC-;discreteLog;2SU;12|))))))) (LETT |t| (QSADD1 |t|) |FFIELDC-;discreteLog;2SU;12|) @@ -1232,22 +1250,25 @@ Note that this code is not included in the generated catdef.spad file. #2# (EXIT #2#))))) (DEFUN |FFIELDC-;squareFreePolynomial| (|f| $) - (SPADCALL |f| (QREFELT $ 75))) + (SPADCALL |f| (|getShellEntry| $ 76))) (DEFUN |FFIELDC-;factorPolynomial| (|f| $) - (SPADCALL |f| (QREFELT $ 77))) + (SPADCALL |f| (|getShellEntry| $ 78))) (DEFUN |FFIELDC-;factorSquareFreePolynomial| (|f| $) - (PROG (|flist| |u| #0=#:G1507 #1=#:G1504 #2=#:G1502 #3=#:G1503) + (PROG (|flist| |u| #0=#:G1515 #1=#:G1512 #2=#:G1510 #3=#:G1511) (RETURN (SEQ (COND - ((SPADCALL |f| (|spadConstant| $ 78) (QREFELT $ 79)) - (|spadConstant| $ 80)) + ((SPADCALL |f| (|spadConstant| $ 79) + (|getShellEntry| $ 80)) + (|spadConstant| $ 81)) ('T - (SEQ (LETT |flist| (SPADCALL |f| 'T (QREFELT $ 83)) + (SEQ (LETT |flist| + (SPADCALL |f| 'T (|getShellEntry| $ 85)) |FFIELDC-;factorSquareFreePolynomial|) (EXIT (SPADCALL - (SPADCALL (QCAR |flist|) (QREFELT $ 84)) + (SPADCALL (QCAR |flist|) + (|getShellEntry| $ 86)) (PROGN (LETT #3# NIL |FFIELDC-;factorSquareFreePolynomial|) @@ -1268,13 +1289,14 @@ Note that this code is not included in the generated catdef.spad file. (PROGN (LETT #1# (SPADCALL (QCAR |u|) - (QCDR |u|) (QREFELT $ 85)) + (QCDR |u|) + (|getShellEntry| $ 87)) |FFIELDC-;factorSquareFreePolynomial|) (COND (#3# (LETT #2# (SPADCALL #2# #1# - (QREFELT $ 86)) + (|getShellEntry| $ 88)) |FFIELDC-;factorSquareFreePolynomial|)) ('T (PROGN @@ -1287,11 +1309,11 @@ Note that this code is not included in the generated catdef.spad file. (GO G190) G191 (EXIT NIL)) (COND (#3# #2#) - ('T (|spadConstant| $ 87)))) - (QREFELT $ 88)))))))))) + ('T (|spadConstant| $ 89)))) + (|getShellEntry| $ 90)))))))))) (DEFUN |FFIELDC-;gcdPolynomial;3Sup;16| (|f| |g| $) - (SPADCALL |f| |g| (QREFELT $ 90))) + (SPADCALL |f| |g| (|getShellEntry| $ 92))) (DEFUN |FiniteFieldCategory&| (|#1|) (PROG (|dv$1| |dv$| $ |pv$|) @@ -1299,11 +1321,12 @@ Note that this code is not included in the generated catdef.spad file. (PROGN (LETT |dv$1| (|devaluate| |#1|) . #0=(|FiniteFieldCategory&|)) (LETT |dv$| (LIST '|FiniteFieldCategory&| |dv$1|) . #0#) - (LETT $ (GETREFV 93) . #0#) - (QSETREFV $ 0 |dv$|) - (QSETREFV $ 3 (LETT |pv$| (|buildPredVector| 0 0 NIL) . #0#)) + (LETT $ (|newShell| 95) . #0#) + (|setShellEntry| $ 0 |dv$|) + (|setShellEntry| $ 3 + (LETT |pv$| (|buildPredVector| 0 0 NIL) . #0#)) (|stuffDomainSlots| $) - (QSETREFV $ 6 |#1|) + (|setShellEntry| $ 6 |#1|) $)))) (MAKEPROP '|FiniteFieldCategory&| '|infovec| @@ -1313,35 +1336,36 @@ Note that this code is not included in the generated catdef.spad file. (|Boolean|) (14 . |zero?|) (|Union| $ '"failed") |FFIELDC-;nextItem;SU;3| (19 . |order|) (|Integer|) (|OnePointCompletion| 10) (24 . |coerce|) - |FFIELDC-;order;SOpc;4| (|List| 26) (|Matrix| 6) - (29 . |nullSpace|) (|Mapping| 13 6) (|Vector| 6) + |FFIELDC-;order;SOpc;4| (|Vector| 6) (|List| 22) + (|Matrix| 6) (29 . |nullSpace|) (|Mapping| 13 6) (34 . |every?|) (40 . |charthRoot|) (|Mapping| 6 6) - (45 . |map|) (|Union| (|Vector| $) '"failed") (|Matrix| $) - |FFIELDC-;conditionP;MU;5| (|NonNegativeInteger|) - (51 . |size|) (55 . |characteristic|) (59 . **) + (45 . |map|) (|Vector| $) (|Union| 31 '"failed") + (|Matrix| $) |FFIELDC-;conditionP;MU;5| + (|NonNegativeInteger|) (51 . |size|) + (55 . |characteristic|) (59 . **) |FFIELDC-;charthRoot;2S;6| |FFIELDC-;charthRoot;SU;7| (65 . |One|) (|Union| '"prime" '"polynomial" '"normal" '"cyclic") (69 . |representationType|) (73 . =) (79 . |not|) |FFIELDC-;createPrimitiveElement;S;8| (|Record| (|:| |factor| 18) (|:| |exponent| 18)) - (|List| 46) (84 . |factorsOfCyclicGroupSize|) (88 . **) + (|List| 47) (84 . |factorsOfCyclicGroupSize|) (88 . **) (94 . =) |FFIELDC-;primitive?;SB;9| |FFIELDC-;order;SPi;10| (100 . |primitiveElement|) - (|Table| 10 34) (104 . |tableForDiscreteLogarithm|) - (109 . |#|) (|Union| 34 '"failed") (114 . |search|) + (|Table| 10 35) (104 . |tableForDiscreteLogarithm|) + (109 . |#|) (|Union| 35 '"failed") (114 . |search|) (120 . *) |FFIELDC-;discreteLog;SNni;11| (|Void|) (|String|) (|OutputForm|) (126 . |messagePrint|) (|Factored| $) (131 . |factor|) (|Factored| 18) (136 . |factors|) (|DiscreteLogarithmPackage| 6) (141 . |shanksDiscLogAlgorithm|) - |FFIELDC-;discreteLog;2SU;12| (|Factored| 73) - (|SparseUnivariatePolynomial| 6) + |FFIELDC-;discreteLog;2SU;12| + (|SparseUnivariatePolynomial| 6) (|Factored| 73) (|UnivariatePolynomialSquareFree| 6 73) (148 . |squareFree|) (|DistinctDegreeFactorize| 6 73) (153 . |factor|) (158 . |Zero|) (162 . =) (168 . |Zero|) - (|Record| (|:| |irr| 73) (|:| |pow| 18)) - (|Record| (|:| |cont| 6) (|:| |factors| (|List| 81))) + (|Record| (|:| |irr| 73) (|:| |pow| 18)) (|List| 82) + (|Record| (|:| |cont| 6) (|:| |factors| 83)) (172 . |distdfact|) (178 . |coerce|) (183 . |primeFactor|) (189 . *) (195 . |One|) (199 . *) (|EuclideanDomain&| 73) (205 . |gcd|) (|SparseUnivariatePolynomial| $) @@ -1354,26 +1378,26 @@ Note that this code is not included in the generated catdef.spad file. (CONS (|makeByteWordVec2| 1 'NIL) (CONS '#() (CONS '#() - (|makeByteWordVec2| 92 + (|makeByteWordVec2| 94 '(0 6 0 7 1 6 10 0 11 1 6 0 10 12 1 6 - 13 0 14 1 6 10 0 17 1 19 0 18 20 1 23 - 22 0 24 2 26 13 25 0 27 1 6 0 0 28 2 - 26 0 29 0 30 0 6 34 35 0 6 34 36 2 6 - 0 0 34 37 0 6 0 40 0 6 41 42 2 41 13 - 0 0 43 1 13 0 0 44 0 6 47 48 2 6 0 0 - 18 49 2 6 13 0 0 50 0 6 0 53 1 6 54 - 18 55 1 54 34 0 56 2 54 57 10 0 58 2 - 6 0 0 0 59 1 63 61 62 64 1 18 65 0 66 - 1 67 47 0 68 3 69 57 6 6 34 70 1 74 - 72 73 75 1 76 72 73 77 0 73 0 78 2 73 - 13 0 0 79 0 72 0 80 2 76 82 73 13 83 - 1 73 0 6 84 2 72 0 73 18 85 2 72 0 0 - 0 86 0 72 0 87 2 72 0 73 0 88 2 89 0 - 0 0 90 1 0 13 0 51 1 0 10 0 52 1 0 19 - 0 21 1 0 15 0 16 0 0 0 9 2 0 91 91 91 - 92 1 0 34 0 60 2 0 57 0 0 71 1 0 0 0 - 8 0 0 0 45 1 0 31 32 33 1 0 0 0 38 1 - 0 15 0 39))))) + 13 0 14 1 6 10 0 17 1 19 0 18 20 1 24 + 23 0 25 2 22 13 26 0 27 1 6 0 0 28 2 + 22 0 29 0 30 0 6 35 36 0 6 35 37 2 6 + 0 0 35 38 0 6 0 41 0 6 42 43 2 42 13 + 0 0 44 1 13 0 0 45 0 6 48 49 2 6 0 0 + 18 50 2 6 13 0 0 51 0 6 0 54 1 6 55 + 18 56 1 55 35 0 57 2 55 58 10 0 59 2 + 6 0 0 0 60 1 64 62 63 65 1 18 66 0 67 + 1 68 48 0 69 3 70 58 6 6 35 71 1 75 + 74 73 76 1 77 74 73 78 0 73 0 79 2 73 + 13 0 0 80 0 74 0 81 2 77 84 73 13 85 + 1 73 0 6 86 2 74 0 73 18 87 2 74 0 0 + 0 88 0 74 0 89 2 74 0 73 0 90 2 91 0 + 0 0 92 1 0 13 0 52 1 0 10 0 53 1 0 19 + 0 21 1 0 15 0 16 0 0 0 9 2 0 93 93 93 + 94 1 0 35 0 61 2 0 58 0 0 72 1 0 0 0 + 8 0 0 0 46 1 0 32 33 34 1 0 0 0 39 1 + 0 15 0 40))))) '|lookupComplete|)) @ \section{package FFSLPE FiniteFieldSolveLinearPolynomialEquation} diff --git a/src/algebra/fraction.spad.pamphlet b/src/algebra/fraction.spad.pamphlet index 9fc563a2..a54b4f61 100644 --- a/src/algebra/fraction.spad.pamphlet +++ b/src/algebra/fraction.spad.pamphlet @@ -392,19 +392,22 @@ Note that this code is not included in the generated catdef.spad file. (/VERSIONCHECK 2) (DEFUN |QFCAT-;numerator;2A;1| (|x| $) - (SPADCALL (SPADCALL |x| (QREFELT $ 8)) (QREFELT $ 9))) + (SPADCALL (SPADCALL |x| (|getShellEntry| $ 8)) (|getShellEntry| $ 9))) (DEFUN |QFCAT-;denominator;2A;2| (|x| $) - (SPADCALL (SPADCALL |x| (QREFELT $ 11)) (QREFELT $ 9))) + (SPADCALL (SPADCALL |x| (|getShellEntry| $ 11)) + (|getShellEntry| $ 9))) (DEFUN |QFCAT-;init;A;3| ($) - (SPADCALL (|spadConstant| $ 13) (|spadConstant| $ 14) (QREFELT $ 15))) + (SPADCALL (|spadConstant| $ 13) (|spadConstant| $ 14) + (|getShellEntry| $ 15))) (DEFUN |QFCAT-;nextItem;AU;4| (|n| $) (PROG (|m|) (RETURN (SEQ (LETT |m| - (SPADCALL (SPADCALL |n| (QREFELT $ 8)) (QREFELT $ 18)) + (SPADCALL (SPADCALL |n| (|getShellEntry| $ 8)) + (|getShellEntry| $ 18)) |QFCAT-;nextItem;AU;4|) (EXIT (COND ((QEQCAR |m| 1) @@ -412,140 +415,167 @@ Note that this code is not included in the generated catdef.spad file. ('T (CONS 0 (SPADCALL (QCDR |m|) (|spadConstant| $ 14) - (QREFELT $ 15)))))))))) + (|getShellEntry| $ 15)))))))))) (DEFUN |QFCAT-;map;M2A;5| (|fn| |x| $) - (SPADCALL (SPADCALL (SPADCALL |x| (QREFELT $ 8)) |fn|) - (SPADCALL (SPADCALL |x| (QREFELT $ 11)) |fn|) (QREFELT $ 15))) + (SPADCALL (SPADCALL (SPADCALL |x| (|getShellEntry| $ 8)) |fn|) + (SPADCALL (SPADCALL |x| (|getShellEntry| $ 11)) |fn|) + (|getShellEntry| $ 15))) (DEFUN |QFCAT-;reducedSystem;MM;6| (|m| $) - (SPADCALL |m| (QREFELT $ 26))) + (SPADCALL |m| (|getShellEntry| $ 26))) -(DEFUN |QFCAT-;characteristic;Nni;7| ($) (SPADCALL (QREFELT $ 30))) +(DEFUN |QFCAT-;characteristic;Nni;7| ($) + (SPADCALL (|getShellEntry| $ 30))) (DEFUN |QFCAT-;differentiate;AMA;8| (|x| |deriv| $) (PROG (|n| |d|) (RETURN - (SEQ (LETT |n| (SPADCALL |x| (QREFELT $ 8)) + (SEQ (LETT |n| (SPADCALL |x| (|getShellEntry| $ 8)) |QFCAT-;differentiate;AMA;8|) - (LETT |d| (SPADCALL |x| (QREFELT $ 11)) + (LETT |d| (SPADCALL |x| (|getShellEntry| $ 11)) |QFCAT-;differentiate;AMA;8|) (EXIT (SPADCALL (SPADCALL (SPADCALL (SPADCALL |n| |deriv|) |d| - (QREFELT $ 32)) + (|getShellEntry| $ 32)) (SPADCALL |n| (SPADCALL |d| |deriv|) - (QREFELT $ 32)) - (QREFELT $ 33)) - (SPADCALL |d| 2 (QREFELT $ 35)) (QREFELT $ 15))))))) + (|getShellEntry| $ 32)) + (|getShellEntry| $ 33)) + (SPADCALL |d| 2 (|getShellEntry| $ 35)) + (|getShellEntry| $ 15))))))) (DEFUN |QFCAT-;convert;AIf;9| (|x| $) - (SPADCALL (SPADCALL (SPADCALL |x| (QREFELT $ 8)) (QREFELT $ 38)) - (SPADCALL (SPADCALL |x| (QREFELT $ 11)) (QREFELT $ 38)) - (QREFELT $ 39))) + (SPADCALL + (SPADCALL (SPADCALL |x| (|getShellEntry| $ 8)) + (|getShellEntry| $ 38)) + (SPADCALL (SPADCALL |x| (|getShellEntry| $ 11)) + (|getShellEntry| $ 38)) + (|getShellEntry| $ 39))) (DEFUN |QFCAT-;convert;AF;10| (|x| $) - (SPADCALL (SPADCALL (SPADCALL |x| (QREFELT $ 8)) (QREFELT $ 42)) - (SPADCALL (SPADCALL |x| (QREFELT $ 11)) (QREFELT $ 42)) - (QREFELT $ 43))) + (SPADCALL + (SPADCALL (SPADCALL |x| (|getShellEntry| $ 8)) + (|getShellEntry| $ 42)) + (SPADCALL (SPADCALL |x| (|getShellEntry| $ 11)) + (|getShellEntry| $ 42)) + (|getShellEntry| $ 43))) (DEFUN |QFCAT-;convert;ADf;11| (|x| $) - (/ (SPADCALL (SPADCALL |x| (QREFELT $ 8)) (QREFELT $ 46)) - (SPADCALL (SPADCALL |x| (QREFELT $ 11)) (QREFELT $ 46)))) + (/ (SPADCALL (SPADCALL |x| (|getShellEntry| $ 8)) + (|getShellEntry| $ 46)) + (SPADCALL (SPADCALL |x| (|getShellEntry| $ 11)) + (|getShellEntry| $ 46)))) (DEFUN |QFCAT-;<;2AB;12| (|x| |y| $) (SPADCALL - (SPADCALL (SPADCALL |x| (QREFELT $ 8)) - (SPADCALL |y| (QREFELT $ 11)) (QREFELT $ 32)) - (SPADCALL (SPADCALL |y| (QREFELT $ 8)) - (SPADCALL |x| (QREFELT $ 11)) (QREFELT $ 32)) - (QREFELT $ 49))) + (SPADCALL (SPADCALL |x| (|getShellEntry| $ 8)) + (SPADCALL |y| (|getShellEntry| $ 11)) (|getShellEntry| $ 32)) + (SPADCALL (SPADCALL |y| (|getShellEntry| $ 8)) + (SPADCALL |x| (|getShellEntry| $ 11)) (|getShellEntry| $ 32)) + (|getShellEntry| $ 49))) (DEFUN |QFCAT-;<;2AB;13| (|x| |y| $) (PROG (|#G19| |#G20| |#G21| |#G22|) (RETURN (SEQ (COND - ((SPADCALL (SPADCALL |x| (QREFELT $ 11)) - (|spadConstant| $ 51) (QREFELT $ 49)) + ((SPADCALL (SPADCALL |x| (|getShellEntry| $ 11)) + (|spadConstant| $ 51) (|getShellEntry| $ 49)) (PROGN (LETT |#G19| |y| |QFCAT-;<;2AB;13|) (LETT |#G20| |x| |QFCAT-;<;2AB;13|) (LETT |x| |#G19| |QFCAT-;<;2AB;13|) (LETT |y| |#G20| |QFCAT-;<;2AB;13|)))) (COND - ((SPADCALL (SPADCALL |y| (QREFELT $ 11)) - (|spadConstant| $ 51) (QREFELT $ 49)) + ((SPADCALL (SPADCALL |y| (|getShellEntry| $ 11)) + (|spadConstant| $ 51) (|getShellEntry| $ 49)) (PROGN (LETT |#G21| |y| |QFCAT-;<;2AB;13|) (LETT |#G22| |x| |QFCAT-;<;2AB;13|) (LETT |x| |#G21| |QFCAT-;<;2AB;13|) (LETT |y| |#G22| |QFCAT-;<;2AB;13|)))) (EXIT (SPADCALL - (SPADCALL (SPADCALL |x| (QREFELT $ 8)) - (SPADCALL |y| (QREFELT $ 11)) (QREFELT $ 32)) - (SPADCALL (SPADCALL |y| (QREFELT $ 8)) - (SPADCALL |x| (QREFELT $ 11)) (QREFELT $ 32)) - (QREFELT $ 49))))))) + (SPADCALL (SPADCALL |x| (|getShellEntry| $ 8)) + (SPADCALL |y| (|getShellEntry| $ 11)) + (|getShellEntry| $ 32)) + (SPADCALL (SPADCALL |y| (|getShellEntry| $ 8)) + (SPADCALL |x| (|getShellEntry| $ 11)) + (|getShellEntry| $ 32)) + (|getShellEntry| $ 49))))))) (DEFUN |QFCAT-;<;2AB;14| (|x| |y| $) (SPADCALL - (SPADCALL (SPADCALL |x| (QREFELT $ 8)) - (SPADCALL |y| (QREFELT $ 11)) (QREFELT $ 32)) - (SPADCALL (SPADCALL |y| (QREFELT $ 8)) - (SPADCALL |x| (QREFELT $ 11)) (QREFELT $ 32)) - (QREFELT $ 49))) + (SPADCALL (SPADCALL |x| (|getShellEntry| $ 8)) + (SPADCALL |y| (|getShellEntry| $ 11)) (|getShellEntry| $ 32)) + (SPADCALL (SPADCALL |y| (|getShellEntry| $ 8)) + (SPADCALL |x| (|getShellEntry| $ 11)) (|getShellEntry| $ 32)) + (|getShellEntry| $ 49))) (DEFUN |QFCAT-;fractionPart;2A;15| (|x| $) - (SPADCALL |x| (SPADCALL (SPADCALL |x| (QREFELT $ 52)) (QREFELT $ 9)) - (QREFELT $ 53))) + (SPADCALL |x| + (SPADCALL (SPADCALL |x| (|getShellEntry| $ 52)) + (|getShellEntry| $ 9)) + (|getShellEntry| $ 53))) (DEFUN |QFCAT-;coerce;SA;16| (|s| $) - (SPADCALL (SPADCALL |s| (QREFELT $ 56)) (QREFELT $ 9))) + (SPADCALL (SPADCALL |s| (|getShellEntry| $ 56)) + (|getShellEntry| $ 9))) (DEFUN |QFCAT-;retract;AS;17| (|x| $) - (SPADCALL (SPADCALL |x| (QREFELT $ 58)) (QREFELT $ 59))) + (SPADCALL (SPADCALL |x| (|getShellEntry| $ 58)) + (|getShellEntry| $ 59))) (DEFUN |QFCAT-;retractIfCan;AU;18| (|x| $) (PROG (|r|) (RETURN - (SEQ (LETT |r| (SPADCALL |x| (QREFELT $ 62)) + (SEQ (LETT |r| (SPADCALL |x| (|getShellEntry| $ 62)) |QFCAT-;retractIfCan;AU;18|) (EXIT (COND ((QEQCAR |r| 1) (CONS 1 "failed")) - ('T (SPADCALL (QCDR |r|) (QREFELT $ 64))))))))) + ('T (SPADCALL (QCDR |r|) (|getShellEntry| $ 64))))))))) (DEFUN |QFCAT-;convert;AP;19| (|x| $) - (SPADCALL (SPADCALL (SPADCALL |x| (QREFELT $ 8)) (QREFELT $ 67)) - (SPADCALL (SPADCALL |x| (QREFELT $ 11)) (QREFELT $ 67)) - (QREFELT $ 68))) + (SPADCALL + (SPADCALL (SPADCALL |x| (|getShellEntry| $ 8)) + (|getShellEntry| $ 68)) + (SPADCALL (SPADCALL |x| (|getShellEntry| $ 11)) + (|getShellEntry| $ 68)) + (|getShellEntry| $ 69))) (DEFUN |QFCAT-;patternMatch;AP2Pmr;20| (|x| |p| |l| $) - (SPADCALL |x| |p| |l| (QREFELT $ 72))) + (SPADCALL |x| |p| |l| (|getShellEntry| $ 73))) (DEFUN |QFCAT-;convert;AP;21| (|x| $) - (SPADCALL (SPADCALL (SPADCALL |x| (QREFELT $ 8)) (QREFELT $ 76)) - (SPADCALL (SPADCALL |x| (QREFELT $ 11)) (QREFELT $ 76)) - (QREFELT $ 77))) + (SPADCALL + (SPADCALL (SPADCALL |x| (|getShellEntry| $ 8)) + (|getShellEntry| $ 77)) + (SPADCALL (SPADCALL |x| (|getShellEntry| $ 11)) + (|getShellEntry| $ 77)) + (|getShellEntry| $ 78))) (DEFUN |QFCAT-;patternMatch;AP2Pmr;22| (|x| |p| |l| $) - (SPADCALL |x| |p| |l| (QREFELT $ 81))) + (SPADCALL |x| |p| |l| (|getShellEntry| $ 82))) (DEFUN |QFCAT-;coerce;FA;23| (|x| $) - (SPADCALL (SPADCALL (SPADCALL |x| (QREFELT $ 86)) (QREFELT $ 87)) - (SPADCALL (SPADCALL |x| (QREFELT $ 88)) (QREFELT $ 87)) - (QREFELT $ 89))) + (SPADCALL + (SPADCALL (SPADCALL |x| (|getShellEntry| $ 86)) + (|getShellEntry| $ 87)) + (SPADCALL (SPADCALL |x| (|getShellEntry| $ 88)) + (|getShellEntry| $ 87)) + (|getShellEntry| $ 89))) (DEFUN |QFCAT-;retract;AI;24| (|x| $) - (SPADCALL (SPADCALL |x| (QREFELT $ 58)) (QREFELT $ 91))) + (SPADCALL (SPADCALL |x| (|getShellEntry| $ 58)) + (|getShellEntry| $ 91))) (DEFUN |QFCAT-;retractIfCan;AU;25| (|x| $) (PROG (|u|) (RETURN - (SEQ (LETT |u| (SPADCALL |x| (QREFELT $ 62)) + (SEQ (LETT |u| (SPADCALL |x| (|getShellEntry| $ 62)) |QFCAT-;retractIfCan;AU;25|) (EXIT (COND ((QEQCAR |u| 1) (CONS 1 "failed")) - ('T (SPADCALL (QCDR |u|) (QREFELT $ 94))))))))) + ('T (SPADCALL (QCDR |u|) (|getShellEntry| $ 94))))))))) (DEFUN |QFCAT-;random;A;26| ($) (PROG (|d|) @@ -553,30 +583,33 @@ Note that this code is not included in the generated catdef.spad file. (SEQ (SEQ G190 (COND ((NULL (SPADCALL - (LETT |d| (SPADCALL (QREFELT $ 96)) + (LETT |d| + (SPADCALL (|getShellEntry| $ 96)) |QFCAT-;random;A;26|) - (QREFELT $ 97))) + (|getShellEntry| $ 97))) (GO G191))) (SEQ (EXIT |d|)) NIL (GO G190) G191 (EXIT NIL)) - (EXIT (SPADCALL (SPADCALL (QREFELT $ 96)) |d| - (QREFELT $ 15))))))) + (EXIT (SPADCALL (SPADCALL (|getShellEntry| $ 96)) |d| + (|getShellEntry| $ 15))))))) (DEFUN |QFCAT-;reducedSystem;MVR;27| (|m| |v| $) (PROG (|n|) (RETURN (SEQ (LETT |n| (SPADCALL - (SPADCALL (SPADCALL |v| (QREFELT $ 100)) |m| - (QREFELT $ 101)) - (QREFELT $ 102)) + (SPADCALL (SPADCALL |v| (|getShellEntry| $ 100)) + |m| (|getShellEntry| $ 101)) + (|getShellEntry| $ 102)) |QFCAT-;reducedSystem;MVR;27|) - (EXIT (CONS (SPADCALL |n| (SPADCALL |n| (QREFELT $ 103)) - (SPADCALL |n| (QREFELT $ 104)) - (+ 1 (SPADCALL |n| (QREFELT $ 105))) - (SPADCALL |n| (QREFELT $ 106)) - (QREFELT $ 107)) - (SPADCALL |n| (SPADCALL |n| (QREFELT $ 105)) - (QREFELT $ 109)))))))) + (EXIT (CONS (SPADCALL |n| + (SPADCALL |n| (|getShellEntry| $ 103)) + (SPADCALL |n| (|getShellEntry| $ 104)) + (+ 1 (SPADCALL |n| (|getShellEntry| $ 105))) + (SPADCALL |n| (|getShellEntry| $ 106)) + (|getShellEntry| $ 107)) + (SPADCALL |n| + (SPADCALL |n| (|getShellEntry| $ 105)) + (|getShellEntry| $ 109)))))))) (DEFUN |QuotientFieldCategory&| (|#1| |#2|) (PROG (|dv$1| |dv$2| |dv$| $ |pv$|) @@ -587,9 +620,9 @@ Note that this code is not included in the generated catdef.spad file. (LETT |dv$2| (|devaluate| |#2|) . #0#) (LETT |dv$| (LIST '|QuotientFieldCategory&| |dv$1| |dv$2|) . #0#) - (LETT $ (GETREFV 119) . #0#) - (QSETREFV $ 0 |dv$|) - (QSETREFV $ 3 + (LETT $ (|newShell| 120) . #0#) + (|setShellEntry| $ 0 |dv$|) + (|setShellEntry| $ 3 (LETT |pv$| (|buildPredVector| 0 0 (LIST (|HasCategory| |#2| @@ -613,62 +646,62 @@ Note that this code is not included in the generated catdef.spad file. '(|RetractableTo| (|Integer|))) (|HasCategory| |#2| '(|StepThrough|)))) . #0#)) (|stuffDomainSlots| $) - (QSETREFV $ 6 |#1|) - (QSETREFV $ 7 |#2|) + (|setShellEntry| $ 6 |#1|) + (|setShellEntry| $ 7 |#2|) (COND ((|testBitVector| |pv$| 12) (PROGN - (QSETREFV $ 16 + (|setShellEntry| $ 16 (CONS (|dispatchFunction| |QFCAT-;init;A;3|) $)) - (QSETREFV $ 20 + (|setShellEntry| $ 20 (CONS (|dispatchFunction| |QFCAT-;nextItem;AU;4|) $))))) (COND ((|testBitVector| |pv$| 7) - (QSETREFV $ 40 + (|setShellEntry| $ 40 (CONS (|dispatchFunction| |QFCAT-;convert;AIf;9|) $)))) (COND ((|testBitVector| |pv$| 8) (PROGN - (QSETREFV $ 44 + (|setShellEntry| $ 44 (CONS (|dispatchFunction| |QFCAT-;convert;AF;10|) $)) - (QSETREFV $ 47 + (|setShellEntry| $ 47 (CONS (|dispatchFunction| |QFCAT-;convert;ADf;11|) $))))) (COND ((|testBitVector| |pv$| 9) (COND ((|HasAttribute| |#2| '|canonicalUnitNormal|) - (QSETREFV $ 50 + (|setShellEntry| $ 50 (CONS (|dispatchFunction| |QFCAT-;<;2AB;12|) $))) ('T - (QSETREFV $ 50 + (|setShellEntry| $ 50 (CONS (|dispatchFunction| |QFCAT-;<;2AB;13|) $))))) ((|testBitVector| |pv$| 10) - (QSETREFV $ 50 + (|setShellEntry| $ 50 (CONS (|dispatchFunction| |QFCAT-;<;2AB;14|) $)))) (COND ((|testBitVector| |pv$| 3) - (QSETREFV $ 54 + (|setShellEntry| $ 54 (CONS (|dispatchFunction| |QFCAT-;fractionPart;2A;15|) $)))) (COND ((|testBitVector| |pv$| 4) (PROGN - (QSETREFV $ 57 + (|setShellEntry| $ 57 (CONS (|dispatchFunction| |QFCAT-;coerce;SA;16|) $)) - (QSETREFV $ 60 + (|setShellEntry| $ 60 (CONS (|dispatchFunction| |QFCAT-;retract;AS;17|) $)) - (QSETREFV $ 65 + (|setShellEntry| $ 65 (CONS (|dispatchFunction| |QFCAT-;retractIfCan;AU;18|) $))))) (COND ((|HasCategory| |#2| '(|ConvertibleTo| (|Pattern| (|Integer|)))) (PROGN - (QSETREFV $ 69 + (|setShellEntry| $ 70 (CONS (|dispatchFunction| |QFCAT-;convert;AP;19|) $)) (COND ((|HasCategory| |#2| '(|PatternMatchable| (|Integer|))) - (QSETREFV $ 74 + (|setShellEntry| $ 75 (CONS (|dispatchFunction| |QFCAT-;patternMatch;AP2Pmr;20|) $))))))) @@ -676,33 +709,33 @@ Note that this code is not included in the generated catdef.spad file. ((|HasCategory| |#2| '(|ConvertibleTo| (|Pattern| (|Float|)))) (PROGN - (QSETREFV $ 78 + (|setShellEntry| $ 79 (CONS (|dispatchFunction| |QFCAT-;convert;AP;21|) $)) (COND ((|HasCategory| |#2| '(|PatternMatchable| (|Float|))) - (QSETREFV $ 83 + (|setShellEntry| $ 84 (CONS (|dispatchFunction| |QFCAT-;patternMatch;AP2Pmr;22|) $))))))) (COND ((|testBitVector| |pv$| 11) (PROGN - (QSETREFV $ 90 + (|setShellEntry| $ 90 (CONS (|dispatchFunction| |QFCAT-;coerce;FA;23|) $)) (COND ((|domainEqual| |#2| (|Integer|))) ('T (PROGN - (QSETREFV $ 92 + (|setShellEntry| $ 92 (CONS (|dispatchFunction| |QFCAT-;retract;AI;24|) $)) - (QSETREFV $ 95 + (|setShellEntry| $ 95 (CONS (|dispatchFunction| |QFCAT-;retractIfCan;AU;25|) $)))))))) (COND ((|testBitVector| |pv$| 2) - (QSETREFV $ 98 + (|setShellEntry| $ 98 (CONS (|dispatchFunction| |QFCAT-;random;A;26|) $)))) $)))) @@ -728,18 +761,19 @@ Note that this code is not included in the generated catdef.spad file. (158 . |retract|) (163 . |retract|) (168 . |retract|) (|Union| 7 '"failed") (173 . |retractIfCan|) (|Union| 55 '"failed") (178 . |retractIfCan|) - (183 . |retractIfCan|) (|Pattern| 84) (188 . |convert|) - (193 . /) (199 . |convert|) (|PatternMatchResult| 84 6) - (|PatternMatchQuotientFieldCategory| 84 7 6) - (204 . |patternMatch|) (|PatternMatchResult| 84 $) + (183 . |retractIfCan|) (|Integer|) (|Pattern| 66) + (188 . |convert|) (193 . /) (199 . |convert|) + (|PatternMatchResult| 66 6) + (|PatternMatchQuotientFieldCategory| 66 7 6) + (204 . |patternMatch|) (|PatternMatchResult| 66 $) (211 . |patternMatch|) (|Pattern| 41) (218 . |convert|) (223 . /) (229 . |convert|) (|PatternMatchResult| 41 6) (|PatternMatchQuotientFieldCategory| 41 7 6) (234 . |patternMatch|) (|PatternMatchResult| 41 $) - (241 . |patternMatch|) (|Integer|) (|Fraction| 84) - (248 . |numer|) (253 . |coerce|) (258 . |denom|) (263 . /) + (241 . |patternMatch|) (|Fraction| 66) (248 . |numer|) + (253 . |coerce|) (258 . |denom|) (263 . /) (269 . |coerce|) (274 . |retract|) (279 . |retract|) - (|Union| 84 '"failed") (284 . |retractIfCan|) + (|Union| 66 '"failed") (284 . |retractIfCan|) (289 . |retractIfCan|) (294 . |random|) (298 . |zero?|) (303 . |random|) (|Vector| 6) (307 . |coerce|) (312 . |horizConcat|) (318 . |reducedSystem|) @@ -748,8 +782,9 @@ Note that this code is not included in the generated catdef.spad file. (343 . |subMatrix|) (|Vector| 7) (352 . |column|) (|Record| (|:| |mat| 23) (|:| |vec| 108)) (|Vector| $) |QFCAT-;reducedSystem;MVR;27| (|Union| 85 '"failed") - (|Record| (|:| |mat| 115) (|:| |vec| (|Vector| 84))) - (|Matrix| 84) (|List| 55) (|List| 29) (|OutputForm|)) + (|Matrix| 66) (|Vector| 66) + (|Record| (|:| |mat| 114) (|:| |vec| 115)) (|List| 55) + (|List| 29) (|OutputForm|)) '#(|retractIfCan| 358 |retract| 368 |reducedSystem| 378 |random| 389 |patternMatch| 393 |numerator| 407 |nextItem| 412 |map| 417 |init| 423 |fractionPart| 427 @@ -771,30 +806,32 @@ Note that this code is not included in the generated catdef.spad file. 0 51 1 6 7 0 52 2 6 0 0 0 53 1 0 0 0 54 1 7 0 55 56 1 0 0 55 57 1 6 7 0 58 1 7 55 0 59 1 0 55 0 60 1 6 61 0 62 1 - 7 63 0 64 1 0 63 0 65 1 7 66 0 67 2 - 66 0 0 0 68 1 0 66 0 69 3 71 70 6 66 - 70 72 3 0 73 0 66 73 74 1 7 75 0 76 2 - 75 0 0 0 77 1 0 75 0 78 3 80 79 6 75 - 79 81 3 0 82 0 75 82 83 1 85 84 0 86 - 1 6 0 84 87 1 85 84 0 88 2 6 0 0 0 89 - 1 0 0 85 90 1 7 84 0 91 1 0 84 0 92 1 + 7 63 0 64 1 0 63 0 65 1 7 67 0 68 2 + 67 0 0 0 69 1 0 67 0 70 3 72 71 6 67 + 71 73 3 0 74 0 67 74 75 1 7 76 0 77 2 + 76 0 0 0 78 1 0 76 0 79 3 81 80 6 76 + 80 82 3 0 83 0 76 83 84 1 85 66 0 86 + 1 6 0 66 87 1 85 66 0 88 2 6 0 0 0 89 + 1 0 0 85 90 1 7 66 0 91 1 0 66 0 92 1 7 93 0 94 1 0 93 0 95 0 7 0 96 1 7 48 0 97 0 0 0 98 1 24 0 99 100 2 24 0 0 - 0 101 1 6 23 27 102 1 23 84 0 103 1 - 23 84 0 104 1 23 84 0 105 1 23 84 0 - 106 5 23 0 0 84 84 84 84 107 2 23 108 - 0 84 109 1 0 93 0 95 1 0 63 0 65 1 0 - 84 0 92 1 0 55 0 60 2 0 110 27 111 - 112 1 0 23 27 28 0 0 0 98 3 0 82 0 75 - 82 83 3 0 73 0 66 73 74 1 0 0 0 10 1 + 0 101 1 6 23 27 102 1 23 66 0 103 1 + 23 66 0 104 1 23 66 0 105 1 23 66 0 + 106 5 23 0 0 66 66 66 66 107 2 23 108 + 0 66 109 1 0 93 0 95 1 0 63 0 65 1 0 + 66 0 92 1 0 55 0 60 2 0 110 27 111 + 112 1 0 23 27 28 0 0 0 98 3 0 83 0 76 + 83 84 3 0 74 0 67 74 75 1 0 0 0 10 1 0 17 0 20 2 0 0 21 0 22 0 0 0 16 1 0 0 0 54 2 0 0 0 21 36 1 0 0 0 12 1 0 45 0 47 1 0 37 0 40 1 0 41 0 44 1 0 - 66 0 69 1 0 75 0 78 1 0 0 55 57 1 0 0 + 67 0 70 1 0 76 0 79 1 0 0 55 57 1 0 0 85 90 0 0 29 31 2 0 48 0 0 50))))) '|lookupComplete|)) @ + \section{package QFCAT2 QuotientFieldCategoryFunctions2} + <<package QFCAT2 QuotientFieldCategoryFunctions2>>= )abbrev package QFCAT2 QuotientFieldCategoryFunctions2 ++ Author: diff --git a/src/algebra/integer.spad.pamphlet b/src/algebra/integer.spad.pamphlet index 787b3b74..2b34325d 100644 --- a/src/algebra/integer.spad.pamphlet +++ b/src/algebra/integer.spad.pamphlet @@ -253,203 +253,537 @@ Note that this code is not included in the generated catdef.spad file. <<INT.lsp BOOTSTRAP>>= -(|/VERSIONCHECK| 2) - -(DEFUN |INT;writeOMInt| (|dev| |x| |$|) (SEQ (COND ((|<| |x| 0) (SEQ (SPADCALL |dev| (QREFELT |$| 8)) (SPADCALL |dev| "arith1" "unary_minus" (QREFELT |$| 10)) (SPADCALL |dev| (|-| |x|) (QREFELT |$| 12)) (EXIT (SPADCALL |dev| (QREFELT |$| 13))))) ((QUOTE T) (SPADCALL |dev| |x| (QREFELT |$| 12)))))) - -(DEFUN |INT;OMwrite;$S;2| (|x| |$|) (PROG (|sp| |dev| |s|) (RETURN (SEQ (LETT |s| "" |INT;OMwrite;$S;2|) (LETT |sp| (|OM-STRINGTOSTRINGPTR| |s|) |INT;OMwrite;$S;2|) (LETT |dev| (SPADCALL |sp| (SPADCALL (QREFELT |$| 15)) (QREFELT |$| 16)) |INT;OMwrite;$S;2|) (SPADCALL |dev| (QREFELT |$| 17)) (|INT;writeOMInt| |dev| |x| |$|) (SPADCALL |dev| (QREFELT |$| 18)) (SPADCALL |dev| (QREFELT |$| 19)) (LETT |s| (|OM-STRINGPTRTOSTRING| |sp|) |INT;OMwrite;$S;2|) (EXIT |s|))))) - -(DEFUN |INT;OMwrite;$BS;3| (|x| |wholeObj| |$|) (PROG (|sp| |dev| |s|) (RETURN (SEQ (LETT |s| "" |INT;OMwrite;$BS;3|) (LETT |sp| (|OM-STRINGTOSTRINGPTR| |s|) |INT;OMwrite;$BS;3|) (LETT |dev| (SPADCALL |sp| (SPADCALL (QREFELT |$| 15)) (QREFELT |$| 16)) |INT;OMwrite;$BS;3|) (COND (|wholeObj| (SPADCALL |dev| (QREFELT |$| 17)))) (|INT;writeOMInt| |dev| |x| |$|) (COND (|wholeObj| (SPADCALL |dev| (QREFELT |$| 18)))) (SPADCALL |dev| (QREFELT |$| 19)) (LETT |s| (|OM-STRINGPTRTOSTRING| |sp|) |INT;OMwrite;$BS;3|) (EXIT |s|))))) +(/VERSIONCHECK 2) -(DEFUN |INT;OMwrite;Omd$V;4| (|dev| |x| |$|) (SEQ (SPADCALL |dev| (QREFELT |$| 17)) (|INT;writeOMInt| |dev| |x| |$|) (EXIT (SPADCALL |dev| (QREFELT |$| 18))))) +(DEFUN |INT;writeOMInt| (|dev| |x| $) + (SEQ (COND + ((< |x| 0) + (SEQ (SPADCALL |dev| (|getShellEntry| $ 8)) + (SPADCALL |dev| "arith1" "unary_minus" + (|getShellEntry| $ 10)) + (SPADCALL |dev| (- |x|) (|getShellEntry| $ 12)) + (EXIT (SPADCALL |dev| (|getShellEntry| $ 13))))) + ('T (SPADCALL |dev| |x| (|getShellEntry| $ 12)))))) -(DEFUN |INT;OMwrite;Omd$BV;5| (|dev| |x| |wholeObj| |$|) (SEQ (COND (|wholeObj| (SPADCALL |dev| (QREFELT |$| 17)))) (|INT;writeOMInt| |dev| |x| |$|) (EXIT (COND (|wholeObj| (SPADCALL |dev| (QREFELT |$| 18))))))) +(DEFUN |INT;OMwrite;$S;2| (|x| $) + (PROG (|sp| |dev| |s|) + (RETURN + (SEQ (LETT |s| "" |INT;OMwrite;$S;2|) + (LETT |sp| (OM-STRINGTOSTRINGPTR |s|) |INT;OMwrite;$S;2|) + (LETT |dev| + (SPADCALL |sp| (SPADCALL (|getShellEntry| $ 15)) + (|getShellEntry| $ 16)) + |INT;OMwrite;$S;2|) + (SPADCALL |dev| (|getShellEntry| $ 17)) + (|INT;writeOMInt| |dev| |x| $) + (SPADCALL |dev| (|getShellEntry| $ 18)) + (SPADCALL |dev| (|getShellEntry| $ 19)) + (LETT |s| (OM-STRINGPTRTOSTRING |sp|) |INT;OMwrite;$S;2|) + (EXIT |s|))))) -(PUT (QUOTE |INT;zero?;$B;6|) (QUOTE |SPADreplace|) (QUOTE ZEROP)) +(DEFUN |INT;OMwrite;$BS;3| (|x| |wholeObj| $) + (PROG (|sp| |dev| |s|) + (RETURN + (SEQ (LETT |s| "" |INT;OMwrite;$BS;3|) + (LETT |sp| (OM-STRINGTOSTRINGPTR |s|) |INT;OMwrite;$BS;3|) + (LETT |dev| + (SPADCALL |sp| (SPADCALL (|getShellEntry| $ 15)) + (|getShellEntry| $ 16)) + |INT;OMwrite;$BS;3|) + (COND (|wholeObj| (SPADCALL |dev| (|getShellEntry| $ 17)))) + (|INT;writeOMInt| |dev| |x| $) + (COND (|wholeObj| (SPADCALL |dev| (|getShellEntry| $ 18)))) + (SPADCALL |dev| (|getShellEntry| $ 19)) + (LETT |s| (OM-STRINGPTRTOSTRING |sp|) |INT;OMwrite;$BS;3|) + (EXIT |s|))))) -(DEFUN |INT;zero?;$B;6| (|x| |$|) (ZEROP |x|)) +(DEFUN |INT;OMwrite;Omd$V;4| (|dev| |x| $) + (SEQ (SPADCALL |dev| (|getShellEntry| $ 17)) + (|INT;writeOMInt| |dev| |x| $) + (EXIT (SPADCALL |dev| (|getShellEntry| $ 18))))) -(PUT (QUOTE |INT;Zero;$;7|) (QUOTE |SPADreplace|) (QUOTE (XLAM NIL 0))) +(DEFUN |INT;OMwrite;Omd$BV;5| (|dev| |x| |wholeObj| $) + (SEQ (COND (|wholeObj| (SPADCALL |dev| (|getShellEntry| $ 17)))) + (|INT;writeOMInt| |dev| |x| $) + (EXIT (COND + (|wholeObj| (SPADCALL |dev| (|getShellEntry| $ 18))))))) -(DEFUN |INT;Zero;$;7| (|$|) 0) +(PUT '|INT;zero?;$B;6| '|SPADreplace| 'ZEROP) -(PUT (QUOTE |INT;One;$;8|) (QUOTE |SPADreplace|) (QUOTE (XLAM NIL 1))) +(DEFUN |INT;zero?;$B;6| (|x| $) (ZEROP |x|)) -(DEFUN |INT;One;$;8| (|$|) 1) +(PUT '|INT;one?;$B;7| '|SPADreplace| '(XLAM (|x|) (EQL |x| 1))) -(PUT (QUOTE |INT;base;$;9|) (QUOTE |SPADreplace|) (QUOTE (XLAM NIL 2))) +(DEFUN |INT;one?;$B;7| (|x| $) (EQL |x| 1)) -(DEFUN |INT;base;$;9| (|$|) 2) +(PUT '|INT;Zero;$;8| '|SPADreplace| '(XLAM NIL 0)) -(PUT (QUOTE |INT;copy;2$;10|) (QUOTE |SPADreplace|) (QUOTE (XLAM (|x|) |x|))) +(DEFUN |INT;Zero;$;8| ($) 0) -(DEFUN |INT;copy;2$;10| (|x| |$|) |x|) +(PUT '|INT;One;$;9| '|SPADreplace| '(XLAM NIL 1)) -(PUT (QUOTE |INT;inc;2$;11|) (QUOTE |SPADreplace|) (QUOTE (XLAM (|x|) (|+| |x| 1)))) +(DEFUN |INT;One;$;9| ($) 1) -(DEFUN |INT;inc;2$;11| (|x| |$|) (|+| |x| 1)) +(PUT '|INT;base;$;10| '|SPADreplace| '(XLAM NIL 2)) -(PUT (QUOTE |INT;dec;2$;12|) (QUOTE |SPADreplace|) (QUOTE (XLAM (|x|) (|-| |x| 1)))) +(DEFUN |INT;base;$;10| ($) 2) -(DEFUN |INT;dec;2$;12| (|x| |$|) (|-| |x| 1)) +(PUT '|INT;copy;2$;11| '|SPADreplace| '(XLAM (|x|) |x|)) -(PUT (QUOTE |INT;hash;2$;13|) (QUOTE |SPADreplace|) (QUOTE SXHASH)) +(DEFUN |INT;copy;2$;11| (|x| $) |x|) -(DEFUN |INT;hash;2$;13| (|x| |$|) (SXHASH |x|)) +(PUT '|INT;inc;2$;12| '|SPADreplace| '(XLAM (|x|) (+ |x| 1))) -(PUT (QUOTE |INT;negative?;$B;14|) (QUOTE |SPADreplace|) (QUOTE MINUSP)) +(DEFUN |INT;inc;2$;12| (|x| $) (+ |x| 1)) -(DEFUN |INT;negative?;$B;14| (|x| |$|) (MINUSP |x|)) +(PUT '|INT;dec;2$;13| '|SPADreplace| '(XLAM (|x|) (- |x| 1))) -(DEFUN |INT;coerce;$Of;15| (|x| |$|) (SPADCALL |x| (QREFELT |$| 35))) +(DEFUN |INT;dec;2$;13| (|x| $) (- |x| 1)) -(PUT (QUOTE |INT;coerce;2$;16|) (QUOTE |SPADreplace|) (QUOTE (XLAM (|m|) |m|))) +(PUT '|INT;hash;2$;14| '|SPADreplace| 'SXHASH) -(DEFUN |INT;coerce;2$;16| (|m| |$|) |m|) +(DEFUN |INT;hash;2$;14| (|x| $) (SXHASH |x|)) -(PUT (QUOTE |INT;convert;2$;17|) (QUOTE |SPADreplace|) (QUOTE (XLAM (|x|) |x|))) +(PUT '|INT;negative?;$B;15| '|SPADreplace| 'MINUSP) -(DEFUN |INT;convert;2$;17| (|x| |$|) |x|) +(DEFUN |INT;negative?;$B;15| (|x| $) (MINUSP |x|)) -(PUT (QUOTE |INT;length;2$;18|) (QUOTE |SPADreplace|) (QUOTE |INTEGER-LENGTH|)) +(DEFUN |INT;coerce;$Of;16| (|x| $) + (SPADCALL |x| (|getShellEntry| $ 36))) -(DEFUN |INT;length;2$;18| (|a| |$|) (|INTEGER-LENGTH| |a|)) +(PUT '|INT;coerce;I$;17| '|SPADreplace| '(XLAM (|m|) |m|)) -(DEFUN |INT;addmod;4$;19| (|a| |b| |p| |$|) (PROG (|c| #1=#:G86338) (RETURN (SEQ (EXIT (SEQ (SEQ (LETT |c| (|+| |a| |b|) |INT;addmod;4$;19|) (EXIT (COND ((NULL (|<| |c| |p|)) (PROGN (LETT #1# (|-| |c| |p|) |INT;addmod;4$;19|) (GO #1#)))))) (EXIT |c|))) #1# (EXIT #1#))))) +(DEFUN |INT;coerce;I$;17| (|m| $) |m|) -(DEFUN |INT;submod;4$;20| (|a| |b| |p| |$|) (PROG (|c|) (RETURN (SEQ (LETT |c| (|-| |a| |b|) |INT;submod;4$;20|) (EXIT (COND ((|<| |c| 0) (|+| |c| |p|)) ((QUOTE T) |c|))))))) +(PUT '|INT;convert;$I;18| '|SPADreplace| '(XLAM (|x|) |x|)) -(DEFUN |INT;mulmod;4$;21| (|a| |b| |p| |$|) (REMAINDER2 (|*| |a| |b|) |p|)) +(DEFUN |INT;convert;$I;18| (|x| $) |x|) -(DEFUN |INT;convert;$F;22| (|x| |$|) (SPADCALL |x| (QREFELT |$| 44))) +(PUT '|INT;length;2$;19| '|SPADreplace| 'INTEGER-LENGTH) -(PUT (QUOTE |INT;convert;$Df;23|) (QUOTE |SPADreplace|) (QUOTE (XLAM (|x|) (FLOAT |x| |MOST-POSITIVE-LONG-FLOAT|)))) +(DEFUN |INT;length;2$;19| (|a| $) (INTEGER-LENGTH |a|)) -(DEFUN |INT;convert;$Df;23| (|x| |$|) (FLOAT |x| |MOST-POSITIVE-LONG-FLOAT|)) +(DEFUN |INT;addmod;4$;20| (|a| |b| |p| $) + (PROG (|c| #0=#:G1427) + (RETURN + (SEQ (EXIT (SEQ (SEQ (LETT |c| (+ |a| |b|) |INT;addmod;4$;20|) + (EXIT (COND + ((NULL (< |c| |p|)) + (PROGN + (LETT #0# (- |c| |p|) + |INT;addmod;4$;20|) + (GO #0#)))))) + (EXIT |c|))) + #0# (EXIT #0#))))) -(DEFUN |INT;convert;$If;24| (|x| |$|) (SPADCALL |x| (QREFELT |$| 49))) +(DEFUN |INT;submod;4$;21| (|a| |b| |p| $) + (PROG (|c|) + (RETURN + (SEQ (LETT |c| (- |a| |b|) |INT;submod;4$;21|) + (EXIT (COND ((< |c| 0) (+ |c| |p|)) ('T |c|))))))) -(PUT (QUOTE |INT;convert;$S;25|) (QUOTE |SPADreplace|) (QUOTE STRINGIMAGE)) +(DEFUN |INT;mulmod;4$;22| (|a| |b| |p| $) + (REMAINDER2 (* |a| |b|) |p|)) -(DEFUN |INT;convert;$S;25| (|x| |$|) (STRINGIMAGE |x|)) +(DEFUN |INT;convert;$F;23| (|x| $) + (SPADCALL |x| (|getShellEntry| $ 45))) -(DEFUN |INT;latex;$S;26| (|x| |$|) (PROG (|s|) (RETURN (SEQ (LETT |s| (STRINGIMAGE |x|) |INT;latex;$S;26|) (COND ((|<| -1 |x|) (COND ((|<| |x| 10) (EXIT |s|))))) (EXIT (STRCONC "{" (STRCONC |s| "}"))))))) +(PUT '|INT;convert;$Df;24| '|SPADreplace| + '(XLAM (|x|) (FLOAT |x| MOST-POSITIVE-LONG-FLOAT))) -(DEFUN |INT;positiveRemainder;3$;27| (|a| |b| |$|) (PROG (|r|) (RETURN (COND ((MINUSP (LETT |r| (REMAINDER2 |a| |b|) |INT;positiveRemainder;3$;27|)) (COND ((MINUSP |b|) (|-| |r| |b|)) ((QUOTE T) (|+| |r| |b|)))) ((QUOTE T) |r|))))) +(DEFUN |INT;convert;$Df;24| (|x| $) + (FLOAT |x| MOST-POSITIVE-LONG-FLOAT)) -(PUT (QUOTE |INT;reducedSystem;2M;28|) (QUOTE |SPADreplace|) (QUOTE (XLAM (|m|) |m|))) +(DEFUN |INT;convert;$If;25| (|x| $) + (SPADCALL |x| (|getShellEntry| $ 50))) -(DEFUN |INT;reducedSystem;2M;28| (|m| |$|) |m|) +(PUT '|INT;convert;$S;26| '|SPADreplace| 'STRINGIMAGE) -(DEFUN |INT;reducedSystem;MVR;29| (|m| |v| |$|) (CONS |m| (QUOTE |vec|))) +(DEFUN |INT;convert;$S;26| (|x| $) (STRINGIMAGE |x|)) -(PUT (QUOTE |INT;abs;2$;30|) (QUOTE |SPADreplace|) (QUOTE ABS)) +(DEFUN |INT;latex;$S;27| (|x| $) + (PROG (|s|) + (RETURN + (SEQ (LETT |s| (STRINGIMAGE |x|) |INT;latex;$S;27|) + (COND ((< -1 |x|) (COND ((< |x| 10) (EXIT |s|))))) + (EXIT (STRCONC "{" (STRCONC |s| "}"))))))) -(DEFUN |INT;abs;2$;30| (|x| |$|) (ABS |x|)) +(DEFUN |INT;positiveRemainder;3$;28| (|a| |b| $) + (PROG (|r|) + (RETURN + (COND + ((MINUSP (LETT |r| (REMAINDER2 |a| |b|) + |INT;positiveRemainder;3$;28|)) + (COND ((MINUSP |b|) (- |r| |b|)) ('T (+ |r| |b|)))) + ('T |r|))))) -(PUT (QUOTE |INT;random;$;31|) (QUOTE |SPADreplace|) (QUOTE |random|)) +(PUT '|INT;reducedSystem;MM;29| '|SPADreplace| '(XLAM (|m|) |m|)) -(DEFUN |INT;random;$;31| (|$|) (|random|)) +(DEFUN |INT;reducedSystem;MM;29| (|m| $) |m|) -(PUT (QUOTE |INT;random;2$;32|) (QUOTE |SPADreplace|) (QUOTE RANDOM)) +(DEFUN |INT;reducedSystem;MVR;30| (|m| |v| $) (CONS |m| '|vec|)) -(DEFUN |INT;random;2$;32| (|x| |$|) (RANDOM |x|)) +(PUT '|INT;abs;2$;31| '|SPADreplace| 'ABS) -(PUT (QUOTE |INT;=;2$B;33|) (QUOTE |SPADreplace|) (QUOTE EQL)) +(DEFUN |INT;abs;2$;31| (|x| $) (ABS |x|)) -(DEFUN |INT;=;2$B;33| (|x| |y| |$|) (EQL |x| |y|)) +(PUT '|INT;random;$;32| '|SPADreplace| '|random|) -(PUT (QUOTE |INT;<;2$B;34|) (QUOTE |SPADreplace|) (QUOTE |<|)) +(DEFUN |INT;random;$;32| ($) (|random|)) -(DEFUN |INT;<;2$B;34| (|x| |y| |$|) (|<| |x| |y|)) +(PUT '|INT;random;2$;33| '|SPADreplace| 'RANDOM) -(PUT (QUOTE |INT;-;2$;35|) (QUOTE |SPADreplace|) (QUOTE |-|)) +(DEFUN |INT;random;2$;33| (|x| $) (RANDOM |x|)) -(DEFUN |INT;-;2$;35| (|x| |$|) (|-| |x|)) +(PUT '|INT;=;2$B;34| '|SPADreplace| 'EQL) -(PUT (QUOTE |INT;+;3$;36|) (QUOTE |SPADreplace|) (QUOTE |+|)) +(DEFUN |INT;=;2$B;34| (|x| |y| $) (EQL |x| |y|)) -(DEFUN |INT;+;3$;36| (|x| |y| |$|) (|+| |x| |y|)) +(PUT '|INT;<;2$B;35| '|SPADreplace| '<) -(PUT (QUOTE |INT;-;3$;37|) (QUOTE |SPADreplace|) (QUOTE |-|)) +(DEFUN |INT;<;2$B;35| (|x| |y| $) (< |x| |y|)) -(DEFUN |INT;-;3$;37| (|x| |y| |$|) (|-| |x| |y|)) +(PUT '|INT;-;2$;36| '|SPADreplace| '-) -(PUT (QUOTE |INT;*;3$;38|) (QUOTE |SPADreplace|) (QUOTE |*|)) +(DEFUN |INT;-;2$;36| (|x| $) (- |x|)) -(DEFUN |INT;*;3$;38| (|x| |y| |$|) (|*| |x| |y|)) +(PUT '|INT;+;3$;37| '|SPADreplace| '+) -(PUT (QUOTE |INT;*;3$;39|) (QUOTE |SPADreplace|) (QUOTE |*|)) +(DEFUN |INT;+;3$;37| (|x| |y| $) (+ |x| |y|)) -(DEFUN |INT;*;3$;39| (|m| |y| |$|) (|*| |m| |y|)) +(PUT '|INT;-;3$;38| '|SPADreplace| '-) -(PUT (QUOTE |INT;**;$Nni$;40|) (QUOTE |SPADreplace|) (QUOTE EXPT)) +(DEFUN |INT;-;3$;38| (|x| |y| $) (- |x| |y|)) -(DEFUN |INT;**;$Nni$;40| (|x| |n| |$|) (EXPT |x| |n|)) +(PUT '|INT;*;3$;39| '|SPADreplace| '*) -(PUT (QUOTE |INT;odd?;$B;41|) (QUOTE |SPADreplace|) (QUOTE ODDP)) +(DEFUN |INT;*;3$;39| (|x| |y| $) (* |x| |y|)) -(DEFUN |INT;odd?;$B;41| (|x| |$|) (ODDP |x|)) +(PUT '|INT;*;I2$;40| '|SPADreplace| '*) -(PUT (QUOTE |INT;max;3$;42|) (QUOTE |SPADreplace|) (QUOTE MAX)) +(DEFUN |INT;*;I2$;40| (|m| |y| $) (* |m| |y|)) -(DEFUN |INT;max;3$;42| (|x| |y| |$|) (MAX |x| |y|)) +(PUT '|INT;**;$Nni$;41| '|SPADreplace| 'EXPT) -(PUT (QUOTE |INT;min;3$;43|) (QUOTE |SPADreplace|) (QUOTE MIN)) +(DEFUN |INT;**;$Nni$;41| (|x| |n| $) (EXPT |x| |n|)) -(DEFUN |INT;min;3$;43| (|x| |y| |$|) (MIN |x| |y|)) +(PUT '|INT;odd?;$B;42| '|SPADreplace| 'ODDP) -(PUT (QUOTE |INT;divide;2$R;44|) (QUOTE |SPADreplace|) (QUOTE DIVIDE2)) +(DEFUN |INT;odd?;$B;42| (|x| $) (ODDP |x|)) -(DEFUN |INT;divide;2$R;44| (|x| |y| |$|) (DIVIDE2 |x| |y|)) +(PUT '|INT;max;3$;43| '|SPADreplace| 'MAX) -(PUT (QUOTE |INT;quo;3$;45|) (QUOTE |SPADreplace|) (QUOTE QUOTIENT2)) +(DEFUN |INT;max;3$;43| (|x| |y| $) (MAX |x| |y|)) -(DEFUN |INT;quo;3$;45| (|x| |y| |$|) (QUOTIENT2 |x| |y|)) +(PUT '|INT;min;3$;44| '|SPADreplace| 'MIN) -(PUT (QUOTE |INT;rem;3$;46|) (QUOTE |SPADreplace|) (QUOTE REMAINDER2)) +(DEFUN |INT;min;3$;44| (|x| |y| $) (MIN |x| |y|)) -(DEFUN |INT;rem;3$;46| (|x| |y| |$|) (REMAINDER2 |x| |y|)) +(PUT '|INT;divide;2$R;45| '|SPADreplace| 'DIVIDE2) -(PUT (QUOTE |INT;shift;3$;47|) (QUOTE |SPADreplace|) (QUOTE ASH)) +(DEFUN |INT;divide;2$R;45| (|x| |y| $) (DIVIDE2 |x| |y|)) -(DEFUN |INT;shift;3$;47| (|x| |y| |$|) (ASH |x| |y|)) +(PUT '|INT;quo;3$;46| '|SPADreplace| 'QUOTIENT2) -(DEFUN |INT;exquo;2$U;48| (|x| |y| |$|) (COND ((OR (ZEROP |y|) (NULL (ZEROP (REMAINDER2 |x| |y|)))) (CONS 1 "failed")) ((QUOTE T) (CONS 0 (QUOTIENT2 |x| |y|))))) +(DEFUN |INT;quo;3$;46| (|x| |y| $) (QUOTIENT2 |x| |y|)) -(DEFUN |INT;recip;$U;49| (|x| |$|) (COND ((OR (EQL |x| 1) (EQL |x| -1)) (CONS 0 |x|)) ((QUOTE T) (CONS 1 "failed")))) +(PUT '|INT;rem;3$;47| '|SPADreplace| 'REMAINDER2) -(PUT (QUOTE |INT;gcd;3$;50|) (QUOTE |SPADreplace|) (QUOTE GCD)) +(DEFUN |INT;rem;3$;47| (|x| |y| $) (REMAINDER2 |x| |y|)) -(DEFUN |INT;gcd;3$;50| (|x| |y| |$|) (GCD |x| |y|)) +(PUT '|INT;shift;3$;48| '|SPADreplace| 'ASH) -(DEFUN |INT;unitNormal;$R;51| (|x| |$|) (COND ((|<| |x| 0) (VECTOR -1 (|-| |x|) -1)) ((QUOTE T) (VECTOR 1 |x| 1)))) +(DEFUN |INT;shift;3$;48| (|x| |y| $) (ASH |x| |y|)) -(PUT (QUOTE |INT;unitCanonical;2$;52|) (QUOTE |SPADreplace|) (QUOTE ABS)) +(DEFUN |INT;exquo;2$U;49| (|x| |y| $) + (COND + ((OR (ZEROP |y|) (NULL (ZEROP (REMAINDER2 |x| |y|)))) + (CONS 1 "failed")) + ('T (CONS 0 (QUOTIENT2 |x| |y|))))) -(DEFUN |INT;unitCanonical;2$;52| (|x| |$|) (ABS |x|)) +(DEFUN |INT;recip;$U;50| (|x| $) + (COND + ((OR (EQL |x| 1) (EQL |x| -1)) (CONS 0 |x|)) + ('T (CONS 1 "failed")))) -(DEFUN |INT;solveLinearPolynomialEquation| (|lp| |p| |$|) (SPADCALL |lp| |p| (QREFELT |$| 91))) +(PUT '|INT;gcd;3$;51| '|SPADreplace| 'GCD) -(DEFUN |INT;squareFreePolynomial| (|p| |$|) (SPADCALL |p| (QREFELT |$| 95))) +(DEFUN |INT;gcd;3$;51| (|x| |y| $) (GCD |x| |y|)) -(DEFUN |INT;factorPolynomial| (|p| |$|) (PROG (|pp| #1=#:G86409) (RETURN (SEQ (LETT |pp| (SPADCALL |p| (QREFELT |$| 96)) |INT;factorPolynomial|) (EXIT (COND ((EQL (SPADCALL |pp| (QREFELT |$| 97)) (SPADCALL |p| (QREFELT |$| 97))) (SPADCALL |p| (QREFELT |$| 99))) ((QUOTE T) (SPADCALL (SPADCALL |pp| (QREFELT |$| 99)) (SPADCALL (CONS (FUNCTION |INT;factorPolynomial!0|) |$|) (SPADCALL (PROG2 (LETT #1# (SPADCALL (SPADCALL |p| (QREFELT |$| 97)) (SPADCALL |pp| (QREFELT |$| 97)) (QREFELT |$| 81)) |INT;factorPolynomial|) (QCDR #1#) (|check-union| (QEQCAR #1# 0) |$| #1#)) (QREFELT |$| 102)) (QREFELT |$| 106)) (QREFELT |$| 108))))))))) +(DEFUN |INT;unitNormal;$R;52| (|x| $) + (COND ((< |x| 0) (VECTOR -1 (- |x|) -1)) ('T (VECTOR 1 |x| 1)))) -(DEFUN |INT;factorPolynomial!0| (|#1| |$|) (SPADCALL |#1| (QREFELT |$| 100))) +(PUT '|INT;unitCanonical;2$;53| '|SPADreplace| 'ABS) -(DEFUN |INT;factorSquareFreePolynomial| (|p| |$|) (SPADCALL |p| (QREFELT |$| 109))) +(DEFUN |INT;unitCanonical;2$;53| (|x| $) (ABS |x|)) -(DEFUN |INT;gcdPolynomial;3Sup;57| (|p| |q| |$|) (COND ((SPADCALL |p| (QREFELT |$| 110)) (SPADCALL |q| (QREFELT |$| 111))) ((SPADCALL |q| (QREFELT |$| 110)) (SPADCALL |p| (QREFELT |$| 111))) ((QUOTE T) (SPADCALL (LIST |p| |q|) (QREFELT |$| 114))))) +(DEFUN |INT;solveLinearPolynomialEquation| (|lp| |p| $) + (SPADCALL |lp| |p| (|getShellEntry| $ 93))) -(DEFUN |Integer| NIL (PROG NIL (RETURN (PROG (#1=#:G86434) (RETURN (COND ((LETT #1# (HGET |$ConstructorCache| (QUOTE |Integer|)) |Integer|) (|CDRwithIncrement| (CDAR #1#))) ((QUOTE T) (|UNWIND-PROTECT| (PROG1 (CDDAR (HPUT |$ConstructorCache| (QUOTE |Integer|) (LIST (CONS NIL (CONS 1 (|Integer;|)))))) (LETT #1# T |Integer|)) (COND ((NOT #1#) (HREM |$ConstructorCache| (QUOTE |Integer|)))))))))))) +(DEFUN |INT;squareFreePolynomial| (|p| $) + (SPADCALL |p| (|getShellEntry| $ 97))) -(DEFUN |Integer;| NIL (PROG (|dv$| |$| |pv$|) (RETURN (PROGN (LETT |dv$| (QUOTE (|Integer|)) . #1=(|Integer|)) (LETT |$| (GETREFV 130) . #1#) (QSETREFV |$| 0 |dv$|) (QSETREFV |$| 3 (LETT |pv$| (|buildPredVector| 0 0 NIL) . #1#)) (|haddProp| |$ConstructorCache| (QUOTE |Integer|) NIL (CONS 1 |$|)) (|stuffDomainSlots| |$|) (QSETREFV |$| 69 (QSETREFV |$| 68 (CONS (|dispatchFunction| |INT;*;3$;39|) |$|))) |$|)))) - -(MAKEPROP (QUOTE |Integer|) (QUOTE |infovec|) (LIST (QUOTE #(NIL NIL NIL NIL NIL NIL (|Void|) (|OpenMathDevice|) (0 . |OMputApp|) (|String|) (5 . |OMputSymbol|) (|Integer|) (12 . |OMputInteger|) (18 . |OMputEndApp|) (|OpenMathEncoding|) (23 . |OMencodingXML|) (27 . |OMopenString|) (33 . |OMputObject|) (38 . |OMputEndObject|) (43 . |OMclose|) |INT;OMwrite;$S;2| (|Boolean|) |INT;OMwrite;$BS;3| |INT;OMwrite;Omd$V;4| |INT;OMwrite;Omd$BV;5| |INT;zero?;$B;6| (CONS IDENTITY (FUNCALL (|dispatchFunction| |INT;Zero;$;7|) |$|)) (CONS IDENTITY (FUNCALL (|dispatchFunction| |INT;One;$;8|) |$|)) |INT;base;$;9| |INT;copy;2$;10| |INT;inc;2$;11| |INT;dec;2$;12| |INT;hash;2$;13| |INT;negative?;$B;14| (|OutputForm|) (48 . |outputForm|) |INT;coerce;$Of;15| |INT;coerce;2$;16| |INT;convert;2$;17| |INT;length;2$;18| |INT;addmod;4$;19| |INT;submod;4$;20| |INT;mulmod;4$;21| (|Float|) (53 . |coerce|) |INT;convert;$F;22| (|DoubleFloat|) |INT;convert;$Df;23| (|InputForm|) (58 . |convert|) |INT;convert;$If;24| |INT;convert;$S;25| |INT;latex;$S;26| |INT;positiveRemainder;3$;27| (|Matrix| 11) (|Matrix| |$|) |INT;reducedSystem;2M;28| (|Record| (|:| |mat| 54) (|:| |vec| (|Vector| 11))) (|Vector| |$|) |INT;reducedSystem;MVR;29| |INT;abs;2$;30| |INT;random;$;31| |INT;random;2$;32| |INT;=;2$B;33| |INT;<;2$B;34| |INT;-;2$;35| |INT;+;3$;36| |INT;-;3$;37| NIL NIL (|NonNegativeInteger|) |INT;**;$Nni$;40| |INT;odd?;$B;41| |INT;max;3$;42| |INT;min;3$;43| (|Record| (|:| |quotient| |$|) (|:| |remainder| |$|)) |INT;divide;2$R;44| |INT;quo;3$;45| |INT;rem;3$;46| |INT;shift;3$;47| (|Union| |$| (QUOTE "failed")) |INT;exquo;2$U;48| |INT;recip;$U;49| |INT;gcd;3$;50| (|Record| (|:| |unit| |$|) (|:| |canonical| |$|) (|:| |associate| |$|)) |INT;unitNormal;$R;51| |INT;unitCanonical;2$;52| (|Union| 88 (QUOTE "failed")) (|List| 89) (|SparseUnivariatePolynomial| 11) (|IntegerSolveLinearPolynomialEquation|) (63 . |solveLinearPolynomialEquation|) (|Factored| 93) (|SparseUnivariatePolynomial| |$$|) (|UnivariatePolynomialSquareFree| |$$| 93) (69 . |squareFree|) (74 . |primitivePart|) (79 . |leadingCoefficient|) (|GaloisGroupFactorizer| 93) (84 . |factor|) (89 . |coerce|) (|Factored| |$|) (94 . |factor|) (|Mapping| 93 |$$|) (|Factored| |$$|) (|FactoredFunctions2| |$$| 93) (99 . |map|) (|FactoredFunctionUtilities| 93) (105 . |mergeFactors|) (111 . |factorSquareFree|) (116 . |zero?|) (121 . |unitCanonical|) (|List| 93) (|HeuGcd| 93) (126 . |gcd|) (|SparseUnivariatePolynomial| |$|) |INT;gcdPolynomial;3Sup;57| (|Union| 118 (QUOTE "failed")) (|Fraction| 11) (|PatternMatchResult| 11 |$|) (|Pattern| 11) (|Union| 11 (QUOTE "failed")) (|Union| 123 (QUOTE "failed")) (|List| |$|) (|Record| (|:| |coef| 123) (|:| |generator| |$|)) (|Record| (|:| |coef1| |$|) (|:| |coef2| |$|)) (|Union| 125 (QUOTE "failed")) (|Record| (|:| |coef1| |$|) (|:| |coef2| |$|) (|:| |generator| |$|)) (|PositiveInteger|) (|SingleInteger|))) (QUOTE #(|~=| 131 |zero?| 137 |unitNormal| 142 |unitCanonical| 147 |unit?| 152 |symmetricRemainder| 157 |subtractIfCan| 163 |submod| 169 |squareFreePart| 176 |squareFree| 181 |sizeLess?| 186 |sign| 192 |shift| 197 |sample| 203 |retractIfCan| 207 |retract| 212 |rem| 217 |reducedSystem| 223 |recip| 234 |rationalIfCan| 239 |rational?| 244 |rational| 249 |random| 254 |quo| 263 |principalIdeal| 269 |prime?| 274 |powmod| 279 |positiveRemainder| 286 |positive?| 292 |permutation| 297 |patternMatch| 303 |one?| 310 |odd?| 315 |nextItem| 320 |negative?| 325 |multiEuclidean| 330 |mulmod| 336 |min| 343 |max| 349 |mask| 355 |length| 360 |lcm| 365 |latex| 376 |invmod| 381 |init| 387 |inc| 391 |hash| 396 |gcdPolynomial| 406 |gcd| 412 |factorial| 423 |factor| 428 |extendedEuclidean| 433 |exquo| 446 |expressIdealMember| 452 |even?| 458 |euclideanSize| 463 |divide| 468 |differentiate| 474 |dec| 485 |copy| 490 |convert| 495 |coerce| 525 |characteristic| 545 |bit?| 549 |binomial| 555 |base| 561 |associates?| 565 |addmod| 571 |abs| 578 |^| 583 |Zero| 595 |One| 599 |OMwrite| 603 D 627 |>=| 638 |>| 644 |=| 650 |<=| 656 |<| 662 |-| 668 |+| 679 |**| 685 |*| 697)) (QUOTE ((|infinite| . 0) (|noetherian| . 0) (|canonicalsClosed| . 0) (|canonical| . 0) (|canonicalUnitNormal| . 0) (|multiplicativeValuation| . 0) (|noZeroDivisors| . 0) ((|commutative| "*") . 0) (|rightUnitary| . 0) (|leftUnitary| . 0) (|unitsKnown| . 0))) (CONS (|makeByteWordVec2| 1 (QUOTE (0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0))) (CONS (QUOTE #(|IntegerNumberSystem&| |EuclideanDomain&| |UniqueFactorizationDomain&| NIL NIL |GcdDomain&| |IntegralDomain&| |Algebra&| NIL NIL |DifferentialRing&| |OrderedRing&| NIL NIL |Module&| NIL NIL |Ring&| NIL NIL NIL NIL NIL |AbelianGroup&| NIL NIL |AbelianMonoid&| |Monoid&| NIL NIL |OrderedSet&| |AbelianSemiGroup&| |SemiGroup&| NIL |SetCategory&| NIL NIL NIL NIL NIL NIL NIL |RetractableTo&| NIL |BasicType&| NIL)) (CONS (QUOTE #((|IntegerNumberSystem|) (|EuclideanDomain|) (|UniqueFactorizationDomain|) (|PrincipalIdealDomain|) (|OrderedIntegralDomain|) (|GcdDomain|) (|IntegralDomain|) (|Algebra| |$$|) (|CharacteristicZero|) (|LinearlyExplicitRingOver| 11) (|DifferentialRing|) (|OrderedRing|) (|CommutativeRing|) (|EntireRing|) (|Module| |$$|) (|OrderedAbelianGroup|) (|BiModule| |$$| |$$|) (|Ring|) (|OrderedCancellationAbelianMonoid|) (|LeftModule| |$$|) (|Rng|) (|RightModule| |$$|) (|OrderedAbelianMonoid|) (|AbelianGroup|) (|OrderedAbelianSemiGroup|) (|CancellationAbelianMonoid|) (|AbelianMonoid|) (|Monoid|) (|StepThrough|) (|PatternMatchable| 11) (|OrderedSet|) (|AbelianSemiGroup|) (|SemiGroup|) (|RealConstant|) (|SetCategory|) (|OpenMath|) (|ConvertibleTo| 9) (|ConvertibleTo| 43) (|ConvertibleTo| 46) (|CombinatorialFunctionCategory|) (|ConvertibleTo| 120) (|ConvertibleTo| 48) (|RetractableTo| 11) (|ConvertibleTo| 11) (|BasicType|) (|CoercibleTo| 34))) (|makeByteWordVec2| 129 (QUOTE (1 7 6 0 8 3 7 6 0 9 9 10 2 7 6 0 11 12 1 7 6 0 13 0 14 0 15 2 7 0 9 14 16 1 7 6 0 17 1 7 6 0 18 1 7 6 0 19 1 34 0 11 35 1 43 0 11 44 1 48 0 11 49 2 90 87 88 89 91 1 94 92 93 95 1 93 0 0 96 1 93 2 0 97 1 98 92 93 99 1 93 0 2 100 1 0 101 0 102 2 105 92 103 104 106 2 107 92 92 92 108 1 98 92 93 109 1 93 21 0 110 1 93 0 0 111 1 113 93 112 114 2 0 21 0 0 1 1 0 21 0 25 1 0 84 0 85 1 0 0 0 86 1 0 21 0 1 2 0 0 0 0 1 2 0 80 0 0 1 3 0 0 0 0 0 41 1 0 0 0 1 1 0 101 0 1 2 0 21 0 0 1 1 0 11 0 1 2 0 0 0 0 79 0 0 0 1 1 0 121 0 1 1 0 11 0 1 2 0 0 0 0 78 2 0 57 55 58 59 1 0 54 55 56 1 0 80 0 82 1 0 117 0 1 1 0 21 0 1 1 0 118 0 1 1 0 0 0 62 0 0 0 61 2 0 0 0 0 77 1 0 124 123 1 1 0 21 0 1 3 0 0 0 0 0 1 2 0 0 0 0 53 1 0 21 0 1 2 0 0 0 0 1 3 0 119 0 120 119 1 1 0 21 0 1 1 0 21 0 72 1 0 80 0 1 1 0 21 0 33 2 0 122 123 0 1 3 0 0 0 0 0 42 2 0 0 0 0 74 2 0 0 0 0 73 1 0 0 0 1 1 0 0 0 39 1 0 0 123 1 2 0 0 0 0 1 1 0 9 0 52 2 0 0 0 0 1 0 0 0 1 1 0 0 0 30 1 0 0 0 32 1 0 129 0 1 2 0 115 115 115 116 2 0 0 0 0 83 1 0 0 123 1 1 0 0 0 1 1 0 101 0 102 3 0 126 0 0 0 1 2 0 127 0 0 1 2 0 80 0 0 81 2 0 122 123 0 1 1 0 21 0 1 1 0 70 0 1 2 0 75 0 0 76 1 0 0 0 1 2 0 0 0 70 1 1 0 0 0 31 1 0 0 0 29 1 0 9 0 51 1 0 46 0 47 1 0 43 0 45 1 0 48 0 50 1 0 120 0 1 1 0 11 0 38 1 0 0 11 37 1 0 0 11 37 1 0 0 0 1 1 0 34 0 36 0 0 70 1 2 0 21 0 0 1 2 0 0 0 0 1 0 0 0 28 2 0 21 0 0 1 3 0 0 0 0 0 40 1 0 0 0 60 2 0 0 0 70 1 2 0 0 0 128 1 0 0 0 26 0 0 0 27 3 0 6 7 0 21 24 2 0 9 0 21 22 2 0 6 7 0 23 1 0 9 0 20 1 0 0 0 1 2 0 0 0 70 1 2 0 21 0 0 1 2 0 21 0 0 1 2 0 21 0 0 63 2 0 21 0 0 1 2 0 21 0 0 64 2 0 0 0 0 67 1 0 0 0 65 2 0 0 0 0 66 2 0 0 0 70 71 2 0 0 0 128 1 2 0 0 0 0 68 2 0 0 11 0 69 2 0 0 70 0 1 2 0 0 128 0 1)))))) (QUOTE |lookupComplete|))) - -(MAKEPROP (QUOTE |Integer|) (QUOTE NILADIC) T) +(DEFUN |INT;factorPolynomial| (|p| $) + (PROG (|pp| #0=#:G1498) + (RETURN + (SEQ (LETT |pp| (SPADCALL |p| (|getShellEntry| $ 98)) + |INT;factorPolynomial|) + (EXIT (COND + ((EQL (SPADCALL |pp| (|getShellEntry| $ 99)) + (SPADCALL |p| (|getShellEntry| $ 99))) + (SPADCALL |p| (|getShellEntry| $ 101))) + ('T + (SPADCALL (SPADCALL |pp| (|getShellEntry| $ 101)) + (SPADCALL (CONS #'|INT;factorPolynomial!0| $) + (SPADCALL + (PROG2 (LETT #0# + (SPADCALL + (SPADCALL |p| + (|getShellEntry| $ 99)) + (SPADCALL |pp| + (|getShellEntry| $ 99)) + (|getShellEntry| $ 83)) + |INT;factorPolynomial|) + (QCDR #0#) + (|check-union| (QEQCAR #0# 0) $ #0#)) + (|getShellEntry| $ 104)) + (|getShellEntry| $ 108)) + (|getShellEntry| $ 110))))))))) + +(DEFUN |INT;factorPolynomial!0| (|#1| $) + (SPADCALL |#1| (|getShellEntry| $ 102))) + +(DEFUN |INT;factorSquareFreePolynomial| (|p| $) + (SPADCALL |p| (|getShellEntry| $ 111))) + +(DEFUN |INT;gcdPolynomial;3Sup;58| (|p| |q| $) + (COND + ((SPADCALL |p| (|getShellEntry| $ 112)) + (SPADCALL |q| (|getShellEntry| $ 113))) + ((SPADCALL |q| (|getShellEntry| $ 112)) + (SPADCALL |p| (|getShellEntry| $ 113))) + ('T (SPADCALL (LIST |p| |q|) (|getShellEntry| $ 116))))) + +(DEFUN |Integer| () + (PROG () + (RETURN + (PROG (#0=#:G1523) + (RETURN + (COND + ((LETT #0# (HGET |$ConstructorCache| '|Integer|) |Integer|) + (|CDRwithIncrement| (CDAR #0#))) + ('T + (UNWIND-PROTECT + (PROG1 (CDDAR (HPUT |$ConstructorCache| '|Integer| + (LIST + (CONS NIL (CONS 1 (|Integer;|)))))) + (LETT #0# T |Integer|)) + (COND + ((NOT #0#) (HREM |$ConstructorCache| '|Integer|))))))))))) + +(DEFUN |Integer;| () + (PROG (|dv$| $ |pv$|) + (RETURN + (PROGN + (LETT |dv$| '(|Integer|) . #0=(|Integer|)) + (LETT $ (|newShell| 132) . #0#) + (|setShellEntry| $ 0 |dv$|) + (|setShellEntry| $ 3 + (LETT |pv$| (|buildPredVector| 0 0 NIL) . #0#)) + (|haddProp| |$ConstructorCache| '|Integer| NIL (CONS 1 $)) + (|stuffDomainSlots| $) + (|setShellEntry| $ 71 + (|setShellEntry| $ 70 + (CONS (|dispatchFunction| |INT;*;I2$;40|) $))) + $)))) + +(MAKEPROP '|Integer| '|infovec| + (LIST '#(NIL NIL NIL NIL NIL NIL (|Void|) (|OpenMathDevice|) + (0 . |OMputApp|) (|String|) (5 . |OMputSymbol|) + (|Integer|) (12 . |OMputInteger|) (18 . |OMputEndApp|) + (|OpenMathEncoding|) (23 . |OMencodingXML|) + (27 . |OMopenString|) (33 . |OMputObject|) + (38 . |OMputEndObject|) (43 . |OMclose|) + |INT;OMwrite;$S;2| (|Boolean|) |INT;OMwrite;$BS;3| + |INT;OMwrite;Omd$V;4| |INT;OMwrite;Omd$BV;5| + |INT;zero?;$B;6| |INT;one?;$B;7| + (CONS IDENTITY + (FUNCALL (|dispatchFunction| |INT;Zero;$;8|) $)) + (CONS IDENTITY + (FUNCALL (|dispatchFunction| |INT;One;$;9|) $)) + |INT;base;$;10| |INT;copy;2$;11| |INT;inc;2$;12| + |INT;dec;2$;13| |INT;hash;2$;14| |INT;negative?;$B;15| + (|OutputForm|) (48 . |outputForm|) |INT;coerce;$Of;16| + |INT;coerce;I$;17| |INT;convert;$I;18| |INT;length;2$;19| + |INT;addmod;4$;20| |INT;submod;4$;21| |INT;mulmod;4$;22| + (|Float|) (53 . |coerce|) |INT;convert;$F;23| + (|DoubleFloat|) |INT;convert;$Df;24| (|InputForm|) + (58 . |convert|) |INT;convert;$If;25| |INT;convert;$S;26| + |INT;latex;$S;27| |INT;positiveRemainder;3$;28| + (|Matrix| 11) (|Matrix| $) |INT;reducedSystem;MM;29| + (|Vector| 11) (|Record| (|:| |mat| 55) (|:| |vec| 58)) + (|Vector| $) |INT;reducedSystem;MVR;30| |INT;abs;2$;31| + |INT;random;$;32| |INT;random;2$;33| |INT;=;2$B;34| + |INT;<;2$B;35| |INT;-;2$;36| |INT;+;3$;37| |INT;-;3$;38| + NIL NIL (|NonNegativeInteger|) |INT;**;$Nni$;41| + |INT;odd?;$B;42| |INT;max;3$;43| |INT;min;3$;44| + (|Record| (|:| |quotient| $) (|:| |remainder| $)) + |INT;divide;2$R;45| |INT;quo;3$;46| |INT;rem;3$;47| + |INT;shift;3$;48| (|Union| $ '"failed") |INT;exquo;2$U;49| + |INT;recip;$U;50| |INT;gcd;3$;51| + (|Record| (|:| |unit| $) (|:| |canonical| $) + (|:| |associate| $)) + |INT;unitNormal;$R;52| |INT;unitCanonical;2$;53| + (|SparseUnivariatePolynomial| 11) (|List| 89) + (|Union| 90 '"failed") + (|IntegerSolveLinearPolynomialEquation|) + (63 . |solveLinearPolynomialEquation|) + (|SparseUnivariatePolynomial| $$) (|Factored| 94) + (|UnivariatePolynomialSquareFree| $$ 94) + (69 . |squareFree|) (74 . |primitivePart|) + (79 . |leadingCoefficient|) (|GaloisGroupFactorizer| 94) + (84 . |factor|) (89 . |coerce|) (|Factored| $) + (94 . |factor|) (|Mapping| 94 $$) (|Factored| $$) + (|FactoredFunctions2| $$ 94) (99 . |map|) + (|FactoredFunctionUtilities| 94) (105 . |mergeFactors|) + (111 . |factorSquareFree|) (116 . |zero?|) + (121 . |unitCanonical|) (|List| 94) (|HeuGcd| 94) + (126 . |gcd|) (|SparseUnivariatePolynomial| $) + |INT;gcdPolynomial;3Sup;58| (|Fraction| 11) + (|Union| 119 '"failed") (|PatternMatchResult| 11 $) + (|Pattern| 11) (|Union| 11 '"failed") (|List| $) + (|Union| 124 '"failed") + (|Record| (|:| |coef| 124) (|:| |generator| $)) + (|Record| (|:| |coef1| $) (|:| |coef2| $)) + (|Union| 127 '"failed") + (|Record| (|:| |coef1| $) (|:| |coef2| $) + (|:| |generator| $)) + (|PositiveInteger|) (|SingleInteger|)) + '#(~= 131 |zero?| 137 |unitNormal| 142 |unitCanonical| 147 + |unit?| 152 |symmetricRemainder| 157 |subtractIfCan| 163 + |submod| 169 |squareFreePart| 176 |squareFree| 181 + |sizeLess?| 186 |sign| 192 |shift| 197 |sample| 203 + |retractIfCan| 207 |retract| 212 |rem| 217 |reducedSystem| + 223 |recip| 234 |rationalIfCan| 239 |rational?| 244 + |rational| 249 |random| 254 |quo| 263 |principalIdeal| 269 + |prime?| 274 |powmod| 279 |positiveRemainder| 286 + |positive?| 292 |permutation| 297 |patternMatch| 303 + |one?| 310 |odd?| 315 |nextItem| 320 |negative?| 325 + |multiEuclidean| 330 |mulmod| 336 |min| 343 |max| 349 + |mask| 355 |length| 360 |lcm| 365 |latex| 376 |invmod| 381 + |init| 387 |inc| 391 |hash| 396 |gcdPolynomial| 406 |gcd| + 412 |factorial| 423 |factor| 428 |extendedEuclidean| 433 + |exquo| 446 |expressIdealMember| 452 |even?| 458 + |euclideanSize| 463 |divide| 468 |differentiate| 474 |dec| + 485 |copy| 490 |convert| 495 |coerce| 525 |characteristic| + 545 |bit?| 549 |binomial| 555 |base| 561 |associates?| 565 + |addmod| 571 |abs| 578 ^ 583 |Zero| 595 |One| 599 + |OMwrite| 603 D 627 >= 638 > 644 = 650 <= 656 < 662 - 668 + + 679 ** 685 * 697) + '((|infinite| . 0) (|noetherian| . 0) + (|canonicalsClosed| . 0) (|canonical| . 0) + (|canonicalUnitNormal| . 0) (|multiplicativeValuation| . 0) + (|noZeroDivisors| . 0) ((|commutative| "*") . 0) + (|rightUnitary| . 0) (|leftUnitary| . 0) + (|unitsKnown| . 0)) + (CONS (|makeByteWordVec2| 1 + '(0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 + 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0)) + (CONS '#(|IntegerNumberSystem&| |EuclideanDomain&| + |UniqueFactorizationDomain&| NIL NIL + |GcdDomain&| |IntegralDomain&| |Algebra&| NIL + NIL |DifferentialRing&| |OrderedRing&| NIL NIL + |Module&| NIL NIL |Ring&| NIL NIL NIL NIL NIL + |AbelianGroup&| NIL NIL |AbelianMonoid&| + |Monoid&| NIL NIL |OrderedSet&| + |AbelianSemiGroup&| |SemiGroup&| NIL + |SetCategory&| NIL NIL NIL NIL NIL NIL NIL + |RetractableTo&| NIL |BasicType&| NIL) + (CONS '#((|IntegerNumberSystem|) + (|EuclideanDomain|) + (|UniqueFactorizationDomain|) + (|PrincipalIdealDomain|) + (|OrderedIntegralDomain|) (|GcdDomain|) + (|IntegralDomain|) (|Algebra| $$) + (|CharacteristicZero|) + (|LinearlyExplicitRingOver| 11) + (|DifferentialRing|) (|OrderedRing|) + (|CommutativeRing|) (|EntireRing|) + (|Module| $$) (|OrderedAbelianGroup|) + (|BiModule| $$ $$) (|Ring|) + (|OrderedCancellationAbelianMonoid|) + (|LeftModule| $$) (|Rng|) + (|RightModule| $$) + (|OrderedAbelianMonoid|) + (|AbelianGroup|) + (|OrderedAbelianSemiGroup|) + (|CancellationAbelianMonoid|) + (|AbelianMonoid|) (|Monoid|) + (|StepThrough|) (|PatternMatchable| 11) + (|OrderedSet|) (|AbelianSemiGroup|) + (|SemiGroup|) (|RealConstant|) + (|SetCategory|) (|OpenMath|) + (|ConvertibleTo| 9) (|ConvertibleTo| 44) + (|ConvertibleTo| 47) + (|CombinatorialFunctionCategory|) + (|ConvertibleTo| 122) + (|ConvertibleTo| 49) + (|RetractableTo| 11) + (|ConvertibleTo| 11) (|BasicType|) + (|CoercibleTo| 35)) + (|makeByteWordVec2| 131 + '(1 7 6 0 8 3 7 6 0 9 9 10 2 7 6 0 11 + 12 1 7 6 0 13 0 14 0 15 2 7 0 9 14 16 + 1 7 6 0 17 1 7 6 0 18 1 7 6 0 19 1 35 + 0 11 36 1 44 0 11 45 1 49 0 11 50 2 + 92 91 90 89 93 1 96 95 94 97 1 94 0 0 + 98 1 94 2 0 99 1 100 95 94 101 1 94 0 + 2 102 1 0 103 0 104 2 107 95 105 106 + 108 2 109 95 95 95 110 1 100 95 94 + 111 1 94 21 0 112 1 94 0 0 113 1 115 + 94 114 116 2 0 21 0 0 1 1 0 21 0 25 1 + 0 86 0 87 1 0 0 0 88 1 0 21 0 1 2 0 0 + 0 0 1 2 0 82 0 0 1 3 0 0 0 0 0 42 1 0 + 0 0 1 1 0 103 0 1 2 0 21 0 0 1 1 0 11 + 0 1 2 0 0 0 0 81 0 0 0 1 1 0 123 0 1 + 1 0 11 0 1 2 0 0 0 0 80 2 0 59 56 60 + 61 1 0 55 56 57 1 0 82 0 84 1 0 120 0 + 1 1 0 21 0 1 1 0 119 0 1 1 0 0 0 64 0 + 0 0 63 2 0 0 0 0 79 1 0 126 124 1 1 0 + 21 0 1 3 0 0 0 0 0 1 2 0 0 0 0 54 1 0 + 21 0 1 2 0 0 0 0 1 3 0 121 0 122 121 + 1 1 0 21 0 26 1 0 21 0 74 1 0 82 0 1 + 1 0 21 0 34 2 0 125 124 0 1 3 0 0 0 0 + 0 43 2 0 0 0 0 76 2 0 0 0 0 75 1 0 0 + 0 1 1 0 0 0 40 1 0 0 124 1 2 0 0 0 0 + 1 1 0 9 0 53 2 0 0 0 0 1 0 0 0 1 1 0 + 0 0 31 1 0 0 0 33 1 0 131 0 1 2 0 117 + 117 117 118 2 0 0 0 0 85 1 0 0 124 1 + 1 0 0 0 1 1 0 103 0 104 3 0 128 0 0 0 + 1 2 0 129 0 0 1 2 0 82 0 0 83 2 0 125 + 124 0 1 1 0 21 0 1 1 0 72 0 1 2 0 77 + 0 0 78 1 0 0 0 1 2 0 0 0 72 1 1 0 0 0 + 32 1 0 0 0 30 1 0 9 0 52 1 0 47 0 48 + 1 0 44 0 46 1 0 49 0 51 1 0 122 0 1 1 + 0 11 0 39 1 0 0 11 38 1 0 0 11 38 1 0 + 0 0 1 1 0 35 0 37 0 0 72 1 2 0 21 0 0 + 1 2 0 0 0 0 1 0 0 0 29 2 0 21 0 0 1 3 + 0 0 0 0 0 41 1 0 0 0 62 2 0 0 0 72 1 + 2 0 0 0 130 1 0 0 0 27 0 0 0 28 3 0 6 + 7 0 21 24 2 0 9 0 21 22 2 0 6 7 0 23 + 1 0 9 0 20 1 0 0 0 1 2 0 0 0 72 1 2 0 + 21 0 0 1 2 0 21 0 0 1 2 0 21 0 0 65 2 + 0 21 0 0 1 2 0 21 0 0 66 2 0 0 0 0 69 + 1 0 0 0 67 2 0 0 0 0 68 2 0 0 0 72 73 + 2 0 0 0 130 1 2 0 0 0 0 70 2 0 0 11 0 + 71 2 0 0 72 0 1 2 0 0 130 0 1))))) + '|lookupComplete|)) + +(MAKEPROP '|Integer| 'NILADIC T) @ + \section{domain NNI NonNegativeInteger} + <<domain NNI NonNegativeInteger>>= )abbrev domain NNI NonNegativeInteger ++ Author: diff --git a/src/algebra/polset.spad.pamphlet b/src/algebra/polset.spad.pamphlet index 60afd780..08e3cb05 100644 --- a/src/algebra/polset.spad.pamphlet +++ b/src/algebra/polset.spad.pamphlet @@ -501,10 +501,11 @@ Note that this code is not included in the generated catdef.spad file. (DEFUN |PSETCAT-;elements| (|ps| $) (PROG (|lp|) (RETURN - (LETT |lp| (SPADCALL |ps| (QREFELT $ 12)) |PSETCAT-;elements|)))) + (LETT |lp| (SPADCALL |ps| (|getShellEntry| $ 12)) + |PSETCAT-;elements|)))) (DEFUN |PSETCAT-;variables1| (|lp| $) - (PROG (#0=#:G1428 |p| #1=#:G1429 |lvars|) + (PROG (#0=#:G1435 |p| #1=#:G1436 |lvars|) (RETURN (SEQ (LETT |lvars| (PROGN @@ -519,22 +520,25 @@ Note that this code is not included in the generated catdef.spad file. NIL)) (GO G191))) (SEQ (EXIT (LETT #0# - (CONS (SPADCALL |p| (QREFELT $ 14)) + (CONS + (SPADCALL |p| + (|getShellEntry| $ 14)) #0#) |PSETCAT-;variables1|))) (LETT #1# (CDR #1#) |PSETCAT-;variables1|) (GO G190) G191 (EXIT (NREVERSE0 #0#)))) |PSETCAT-;variables1|) (EXIT (SPADCALL (CONS #'|PSETCAT-;variables1!0| $) - (SPADCALL (SPADCALL |lvars| (QREFELT $ 18)) - (QREFELT $ 19)) - (QREFELT $ 21))))))) + (SPADCALL + (SPADCALL |lvars| (|getShellEntry| $ 18)) + (|getShellEntry| $ 19)) + (|getShellEntry| $ 21))))))) (DEFUN |PSETCAT-;variables1!0| (|#1| |#2| $) - (SPADCALL |#2| |#1| (QREFELT $ 16))) + (SPADCALL |#2| |#1| (|getShellEntry| $ 16))) (DEFUN |PSETCAT-;variables2| (|lp| $) - (PROG (#0=#:G1433 |p| #1=#:G1434 |lvars|) + (PROG (#0=#:G1440 |p| #1=#:G1441 |lvars|) (RETURN (SEQ (LETT |lvars| (PROGN @@ -549,24 +553,28 @@ Note that this code is not included in the generated catdef.spad file. NIL)) (GO G191))) (SEQ (EXIT (LETT #0# - (CONS (SPADCALL |p| (QREFELT $ 22)) + (CONS + (SPADCALL |p| + (|getShellEntry| $ 22)) #0#) |PSETCAT-;variables2|))) (LETT #1# (CDR #1#) |PSETCAT-;variables2|) (GO G190) G191 (EXIT (NREVERSE0 #0#)))) |PSETCAT-;variables2|) (EXIT (SPADCALL (CONS #'|PSETCAT-;variables2!0| $) - (SPADCALL |lvars| (QREFELT $ 19)) (QREFELT $ 21))))))) + (SPADCALL |lvars| (|getShellEntry| $ 19)) + (|getShellEntry| $ 21))))))) (DEFUN |PSETCAT-;variables2!0| (|#1| |#2| $) - (SPADCALL |#2| |#1| (QREFELT $ 16))) + (SPADCALL |#2| |#1| (|getShellEntry| $ 16))) (DEFUN |PSETCAT-;variables;SL;4| (|ps| $) (|PSETCAT-;variables1| (|PSETCAT-;elements| |ps| $) $)) (DEFUN |PSETCAT-;mainVariables;SL;5| (|ps| $) (|PSETCAT-;variables2| - (SPADCALL (ELT $ 24) (|PSETCAT-;elements| |ps| $) (QREFELT $ 26)) + (SPADCALL (ELT $ 24) (|PSETCAT-;elements| |ps| $) + (|getShellEntry| $ 26)) $)) (DEFUN |PSETCAT-;mainVariable?;VarSetSB;6| (|v| |ps| $) @@ -574,7 +582,7 @@ Note that this code is not included in the generated catdef.spad file. (RETURN (SEQ (LETT |lp| (SPADCALL (ELT $ 24) (|PSETCAT-;elements| |ps| $) - (QREFELT $ 26)) + (|getShellEntry| $ 26)) |PSETCAT-;mainVariable?;VarSetSB;6|) (SEQ G190 (COND @@ -584,14 +592,14 @@ Note that this code is not included in the generated catdef.spad file. (SPADCALL (SPADCALL (SPADCALL (|SPADfirst| |lp|) - (QREFELT $ 22)) - |v| (QREFELT $ 28)) - (QREFELT $ 29))))) + (|getShellEntry| $ 22)) + |v| (|getShellEntry| $ 28)) + (|getShellEntry| $ 29))))) (GO G191))) (SEQ (EXIT (LETT |lp| (CDR |lp|) |PSETCAT-;mainVariable?;VarSetSB;6|))) NIL (GO G190) G191 (EXIT NIL)) - (EXIT (SPADCALL (NULL |lp|) (QREFELT $ 29))))))) + (EXIT (SPADCALL (NULL |lp|) (|getShellEntry| $ 29))))))) (DEFUN |PSETCAT-;collectUnder;SVarSetS;7| (|ps| |v| $) (PROG (|p| |lp| |lq|) @@ -601,21 +609,22 @@ Note that this code is not included in the generated catdef.spad file. (LETT |lq| NIL |PSETCAT-;collectUnder;SVarSetS;7|) (SEQ G190 (COND - ((NULL (SPADCALL (NULL |lp|) (QREFELT $ 29))) + ((NULL (SPADCALL (NULL |lp|) (|getShellEntry| $ 29))) (GO G191))) (SEQ (LETT |p| (|SPADfirst| |lp|) |PSETCAT-;collectUnder;SVarSetS;7|) (LETT |lp| (CDR |lp|) |PSETCAT-;collectUnder;SVarSetS;7|) (EXIT (COND - ((OR (SPADCALL |p| (QREFELT $ 24)) + ((OR (SPADCALL |p| (|getShellEntry| $ 24)) (SPADCALL - (SPADCALL |p| (QREFELT $ 22)) |v| - (QREFELT $ 16))) + (SPADCALL |p| + (|getShellEntry| $ 22)) + |v| (|getShellEntry| $ 16))) (LETT |lq| (CONS |p| |lq|) |PSETCAT-;collectUnder;SVarSetS;7|))))) NIL (GO G190) G191 (EXIT NIL)) - (EXIT (SPADCALL |lq| (QREFELT $ 31))))))) + (EXIT (SPADCALL |lq| (|getShellEntry| $ 31))))))) (DEFUN |PSETCAT-;collectUpper;SVarSetS;8| (|ps| |v| $) (PROG (|p| |lp| |lq|) @@ -625,22 +634,24 @@ Note that this code is not included in the generated catdef.spad file. (LETT |lq| NIL |PSETCAT-;collectUpper;SVarSetS;8|) (SEQ G190 (COND - ((NULL (SPADCALL (NULL |lp|) (QREFELT $ 29))) + ((NULL (SPADCALL (NULL |lp|) (|getShellEntry| $ 29))) (GO G191))) (SEQ (LETT |p| (|SPADfirst| |lp|) |PSETCAT-;collectUpper;SVarSetS;8|) (LETT |lp| (CDR |lp|) |PSETCAT-;collectUpper;SVarSetS;8|) (EXIT (COND - ((NULL (SPADCALL |p| (QREFELT $ 24))) + ((NULL (SPADCALL |p| + (|getShellEntry| $ 24))) (COND ((SPADCALL |v| - (SPADCALL |p| (QREFELT $ 22)) - (QREFELT $ 16)) + (SPADCALL |p| + (|getShellEntry| $ 22)) + (|getShellEntry| $ 16)) (LETT |lq| (CONS |p| |lq|) |PSETCAT-;collectUpper;SVarSetS;8|))))))) NIL (GO G190) G191 (EXIT NIL)) - (EXIT (SPADCALL |lq| (QREFELT $ 31))))))) + (EXIT (SPADCALL |lq| (|getShellEntry| $ 31))))))) (DEFUN |PSETCAT-;collect;SVarSetS;9| (|ps| |v| $) (PROG (|p| |lp| |lq|) @@ -650,22 +661,24 @@ Note that this code is not included in the generated catdef.spad file. (LETT |lq| NIL |PSETCAT-;collect;SVarSetS;9|) (SEQ G190 (COND - ((NULL (SPADCALL (NULL |lp|) (QREFELT $ 29))) + ((NULL (SPADCALL (NULL |lp|) (|getShellEntry| $ 29))) (GO G191))) (SEQ (LETT |p| (|SPADfirst| |lp|) |PSETCAT-;collect;SVarSetS;9|) (LETT |lp| (CDR |lp|) |PSETCAT-;collect;SVarSetS;9|) (EXIT (COND - ((NULL (SPADCALL |p| (QREFELT $ 24))) + ((NULL (SPADCALL |p| + (|getShellEntry| $ 24))) (COND ((SPADCALL - (SPADCALL |p| (QREFELT $ 22)) |v| - (QREFELT $ 28)) + (SPADCALL |p| + (|getShellEntry| $ 22)) + |v| (|getShellEntry| $ 28)) (LETT |lq| (CONS |p| |lq|) |PSETCAT-;collect;SVarSetS;9|))))))) NIL (GO G190) G191 (EXIT NIL)) - (EXIT (SPADCALL |lq| (QREFELT $ 31))))))) + (EXIT (SPADCALL |lq| (|getShellEntry| $ 31))))))) (DEFUN |PSETCAT-;sort;SVarSetR;10| (|ps| |v| $) (PROG (|p| |lp| |us| |vs| |ws|) @@ -677,32 +690,34 @@ Note that this code is not included in the generated catdef.spad file. (LETT |ws| NIL |PSETCAT-;sort;SVarSetR;10|) (SEQ G190 (COND - ((NULL (SPADCALL (NULL |lp|) (QREFELT $ 29))) + ((NULL (SPADCALL (NULL |lp|) (|getShellEntry| $ 29))) (GO G191))) (SEQ (LETT |p| (|SPADfirst| |lp|) |PSETCAT-;sort;SVarSetR;10|) (LETT |lp| (CDR |lp|) |PSETCAT-;sort;SVarSetR;10|) (EXIT (COND - ((OR (SPADCALL |p| (QREFELT $ 24)) + ((OR (SPADCALL |p| (|getShellEntry| $ 24)) (SPADCALL - (SPADCALL |p| (QREFELT $ 22)) |v| - (QREFELT $ 16))) + (SPADCALL |p| + (|getShellEntry| $ 22)) + |v| (|getShellEntry| $ 16))) (LETT |us| (CONS |p| |us|) |PSETCAT-;sort;SVarSetR;10|)) - ((SPADCALL (SPADCALL |p| (QREFELT $ 22)) - |v| (QREFELT $ 28)) + ((SPADCALL + (SPADCALL |p| (|getShellEntry| $ 22)) + |v| (|getShellEntry| $ 28)) (LETT |vs| (CONS |p| |vs|) |PSETCAT-;sort;SVarSetR;10|)) ('T (LETT |ws| (CONS |p| |ws|) |PSETCAT-;sort;SVarSetR;10|))))) NIL (GO G190) G191 (EXIT NIL)) - (EXIT (VECTOR (SPADCALL |us| (QREFELT $ 31)) - (SPADCALL |vs| (QREFELT $ 31)) - (SPADCALL |ws| (QREFELT $ 31)))))))) + (EXIT (VECTOR (SPADCALL |us| (|getShellEntry| $ 31)) + (SPADCALL |vs| (|getShellEntry| $ 31)) + (SPADCALL |ws| (|getShellEntry| $ 31)))))))) (DEFUN |PSETCAT-;=;2SB;11| (|ps1| |ps2| $) - (PROG (#0=#:G1468 #1=#:G1469 #2=#:G1470 |p| #3=#:G1471) + (PROG (#0=#:G1475 #1=#:G1476 #2=#:G1477 |p| #3=#:G1478) (RETURN (SEQ (SPADCALL (SPADCALL @@ -723,7 +738,7 @@ Note that this code is not included in the generated catdef.spad file. |PSETCAT-;=;2SB;11|))) (LETT #1# (CDR #1#) |PSETCAT-;=;2SB;11|) (GO G190) G191 (EXIT (NREVERSE0 #0#)))) - (QREFELT $ 38)) + (|getShellEntry| $ 38)) (SPADCALL (PROGN (LETT #2# NIL |PSETCAT-;=;2SB;11|) @@ -742,27 +757,28 @@ Note that this code is not included in the generated catdef.spad file. |PSETCAT-;=;2SB;11|))) (LETT #3# (CDR #3#) |PSETCAT-;=;2SB;11|) (GO G190) G191 (EXIT (NREVERSE0 #2#)))) - (QREFELT $ 38)) - (QREFELT $ 39)))))) + (|getShellEntry| $ 38)) + (|getShellEntry| $ 39)))))) (DEFUN |PSETCAT-;localInf?| (|p| |q| $) - (SPADCALL (SPADCALL |p| (QREFELT $ 41)) (SPADCALL |q| (QREFELT $ 41)) - (QREFELT $ 42))) + (SPADCALL (SPADCALL |p| (|getShellEntry| $ 41)) + (SPADCALL |q| (|getShellEntry| $ 41)) (|getShellEntry| $ 42))) (DEFUN |PSETCAT-;localTriangular?| (|lp| $) (PROG (|q| |p|) (RETURN - (SEQ (LETT |lp| (SPADCALL (ELT $ 43) |lp| (QREFELT $ 26)) + (SEQ (LETT |lp| (SPADCALL (ELT $ 43) |lp| (|getShellEntry| $ 26)) |PSETCAT-;localTriangular?|) (EXIT (COND ((NULL |lp|) 'T) - ((SPADCALL (ELT $ 24) |lp| (QREFELT $ 44)) 'NIL) + ((SPADCALL (ELT $ 24) |lp| (|getShellEntry| $ 44)) + 'NIL) ('T (SEQ (LETT |lp| (SPADCALL (CONS #'|PSETCAT-;localTriangular?!0| $) - |lp| (QREFELT $ 46)) + |lp| (|getShellEntry| $ 46)) |PSETCAT-;localTriangular?|) (LETT |p| (|SPADfirst| |lp|) |PSETCAT-;localTriangular?|) @@ -778,10 +794,10 @@ Note that this code is not included in the generated catdef.spad file. (LETT |q| (|SPADfirst| |lp|) |PSETCAT-;localTriangular?|) - (QREFELT $ 22)) + (|getShellEntry| $ 22)) (SPADCALL |p| - (QREFELT $ 22)) - (QREFELT $ 16))))) + (|getShellEntry| $ 22)) + (|getShellEntry| $ 16))))) (GO G191))) (SEQ (LETT |p| |q| |PSETCAT-;localTriangular?|) @@ -792,38 +808,39 @@ Note that this code is not included in the generated catdef.spad file. (EXIT (NULL |lp|)))))))))) (DEFUN |PSETCAT-;localTriangular?!0| (|#1| |#2| $) - (SPADCALL (SPADCALL |#2| (QREFELT $ 22)) - (SPADCALL |#1| (QREFELT $ 22)) (QREFELT $ 16))) + (SPADCALL (SPADCALL |#2| (|getShellEntry| $ 22)) + (SPADCALL |#1| (|getShellEntry| $ 22)) (|getShellEntry| $ 16))) (DEFUN |PSETCAT-;triangular?;SB;14| (|ps| $) (|PSETCAT-;localTriangular?| (|PSETCAT-;elements| |ps| $) $)) (DEFUN |PSETCAT-;trivialIdeal?;SB;15| (|ps| $) (NULL (SPADCALL (ELT $ 43) (|PSETCAT-;elements| |ps| $) - (QREFELT $ 26)))) + (|getShellEntry| $ 26)))) (DEFUN |PSETCAT-;roughUnitIdeal?;SB;16| (|ps| $) (SPADCALL (ELT $ 24) - (SPADCALL (ELT $ 43) (|PSETCAT-;elements| |ps| $) (QREFELT $ 26)) - (QREFELT $ 44))) + (SPADCALL (ELT $ 43) (|PSETCAT-;elements| |ps| $) + (|getShellEntry| $ 26)) + (|getShellEntry| $ 44))) (DEFUN |PSETCAT-;relativelyPrimeLeadingMonomials?| (|p| |q| $) (PROG (|dp| |dq|) (RETURN - (SEQ (LETT |dp| (SPADCALL |p| (QREFELT $ 41)) + (SEQ (LETT |dp| (SPADCALL |p| (|getShellEntry| $ 41)) |PSETCAT-;relativelyPrimeLeadingMonomials?|) - (LETT |dq| (SPADCALL |q| (QREFELT $ 41)) + (LETT |dq| (SPADCALL |q| (|getShellEntry| $ 41)) |PSETCAT-;relativelyPrimeLeadingMonomials?|) - (EXIT (SPADCALL (SPADCALL |dp| |dq| (QREFELT $ 50)) - (SPADCALL |dp| |dq| (QREFELT $ 51)) - (QREFELT $ 52))))))) + (EXIT (SPADCALL (SPADCALL |dp| |dq| (|getShellEntry| $ 50)) + (SPADCALL |dp| |dq| (|getShellEntry| $ 51)) + (|getShellEntry| $ 52))))))) (DEFUN |PSETCAT-;roughBase?;SB;18| (|ps| $) (PROG (|p| |lp| |rB?| |copylp|) (RETURN (SEQ (LETT |lp| (SPADCALL (ELT $ 43) (|PSETCAT-;elements| |ps| $) - (QREFELT $ 26)) + (|getShellEntry| $ 26)) |PSETCAT-;roughBase?;SB;18|) (EXIT (COND ((NULL |lp|) 'T) @@ -866,40 +883,41 @@ Note that this code is not included in the generated catdef.spad file. (RETURN (SEQ (LETT |lp| (SPADCALL (|PSETCAT-;elements| |ps1| $) |ps2| - (QREFELT $ 54)) + (|getShellEntry| $ 54)) |PSETCAT-;roughSubIdeal?;2SB;19|) - (EXIT (NULL (SPADCALL (ELT $ 43) |lp| (QREFELT $ 26)))))))) + (EXIT (NULL (SPADCALL (ELT $ 43) |lp| + (|getShellEntry| $ 26)))))))) (DEFUN |PSETCAT-;roughEqualIdeals?;2SB;20| (|ps1| |ps2| $) (COND - ((SPADCALL |ps1| |ps2| (QREFELT $ 56)) 'T) - ((SPADCALL |ps1| |ps2| (QREFELT $ 57)) - (SPADCALL |ps2| |ps1| (QREFELT $ 57))) + ((SPADCALL |ps1| |ps2| (|getShellEntry| $ 56)) 'T) + ((SPADCALL |ps1| |ps2| (|getShellEntry| $ 57)) + (SPADCALL |ps2| |ps1| (|getShellEntry| $ 57))) ('T 'NIL))) (DEFUN |PSETCAT-;exactQuo| (|r| |s| $) - (PROG (#0=#:G1503) + (PROG (#0=#:G1510) (RETURN (COND - ((|HasCategory| (QREFELT $ 7) '(|EuclideanDomain|)) - (SPADCALL |r| |s| (QREFELT $ 59))) + ((|HasCategory| (|getShellEntry| $ 7) '(|EuclideanDomain|)) + (SPADCALL |r| |s| (|getShellEntry| $ 59))) ('T - (PROG2 (LETT #0# (SPADCALL |r| |s| (QREFELT $ 61)) + (PROG2 (LETT #0# (SPADCALL |r| |s| (|getShellEntry| $ 61)) |PSETCAT-;exactQuo|) (QCDR #0#) - (|check-union| (QEQCAR #0# 0) (QREFELT $ 7) #0#))))))) + (|check-union| (QEQCAR #0# 0) (|getShellEntry| $ 7) #0#))))))) (DEFUN |PSETCAT-;headRemainder;PSR;22| (|a| |ps| $) (PROG (|lp1| |p| |e| |g| |#G45| |#G46| |lca| |lcp| |r| |lp2|) (RETURN (SEQ (LETT |lp1| (SPADCALL (ELT $ 43) (|PSETCAT-;elements| |ps| $) - (QREFELT $ 26)) + (|getShellEntry| $ 26)) |PSETCAT-;headRemainder;PSR;22|) (EXIT (COND ((NULL |lp1|) (CONS |a| (|spadConstant| $ 62))) - ((SPADCALL (ELT $ 24) |lp1| (QREFELT $ 44)) - (CONS (SPADCALL |a| (QREFELT $ 63)) + ((SPADCALL (ELT $ 24) |lp1| (|getShellEntry| $ 44)) + (CONS (SPADCALL |a| (|getShellEntry| $ 63)) (|spadConstant| $ 62))) ('T (SEQ (LETT |r| (|spadConstant| $ 62) @@ -911,26 +929,29 @@ Note that this code is not included in the generated catdef.spad file. $) (REVERSE (|PSETCAT-;elements| |ps| $)) - (QREFELT $ 46)) + (|getShellEntry| $ 46)) |PSETCAT-;headRemainder;PSR;22|) (LETT |lp2| |lp1| |PSETCAT-;headRemainder;PSR;22|) (SEQ G190 (COND ((NULL (COND - ((SPADCALL |a| (QREFELT $ 43)) + ((SPADCALL |a| + (|getShellEntry| $ 43)) 'NIL) ('T (SPADCALL (NULL |lp2|) - (QREFELT $ 29))))) + (|getShellEntry| $ 29))))) (GO G191))) (SEQ (LETT |p| (|SPADfirst| |lp2|) |PSETCAT-;headRemainder;PSR;22|) (LETT |e| (SPADCALL - (SPADCALL |a| (QREFELT $ 41)) - (SPADCALL |p| (QREFELT $ 41)) - (QREFELT $ 64)) + (SPADCALL |a| + (|getShellEntry| $ 41)) + (SPADCALL |p| + (|getShellEntry| $ 41)) + (|getShellEntry| $ 64)) |PSETCAT-;headRemainder;PSR;22|) (EXIT (COND @@ -940,13 +961,13 @@ Note that this code is not included in the generated catdef.spad file. (SPADCALL (LETT |lca| (SPADCALL |a| - (QREFELT $ 65)) + (|getShellEntry| $ 65)) |PSETCAT-;headRemainder;PSR;22|) (LETT |lcp| (SPADCALL |p| - (QREFELT $ 65)) + (|getShellEntry| $ 65)) |PSETCAT-;headRemainder;PSR;22|) - (QREFELT $ 66)) + (|getShellEntry| $ 66)) |PSETCAT-;headRemainder;PSR;22|) (PROGN (LETT |#G45| @@ -965,19 +986,19 @@ Note that this code is not included in the generated catdef.spad file. (SPADCALL (SPADCALL |lcp| (SPADCALL |a| - (QREFELT $ 63)) - (QREFELT $ 67)) + (|getShellEntry| $ 63)) + (|getShellEntry| $ 67)) (SPADCALL (SPADCALL |lca| (QCDR |e|) - (QREFELT $ 68)) + (|getShellEntry| $ 68)) (SPADCALL |p| - (QREFELT $ 63)) - (QREFELT $ 69)) - (QREFELT $ 70)) + (|getShellEntry| $ 63)) + (|getShellEntry| $ 69)) + (|getShellEntry| $ 70)) |PSETCAT-;headRemainder;PSR;22|) (LETT |r| (SPADCALL |r| |lcp| - (QREFELT $ 71)) + (|getShellEntry| $ 71)) |PSETCAT-;headRemainder;PSR;22|) (EXIT (LETT |lp2| |lp1| @@ -992,16 +1013,18 @@ Note that this code is not included in the generated catdef.spad file. (PROG (|g|) (RETURN (SEQ (LETT |g| - (SPADCALL (QCDR |frac|) (QCAR |frac|) (QREFELT $ 74)) + (SPADCALL (QCDR |frac|) (QCAR |frac|) + (|getShellEntry| $ 74)) |PSETCAT-;makeIrreducible!|) (EXIT (COND - ((SPADCALL |g| (|spadConstant| $ 62) (QREFELT $ 76)) + ((SPADCALL |g| (|spadConstant| $ 62) + (|getShellEntry| $ 76)) |frac|) ('T (SEQ (PROGN (RPLACA |frac| (SPADCALL (QCAR |frac|) |g| - (QREFELT $ 77))) + (|getShellEntry| $ 77))) (QCAR |frac|)) (PROGN (RPLACD |frac| @@ -1015,61 +1038,67 @@ Note that this code is not included in the generated catdef.spad file. (RETURN (SEQ (LETT |hRa| (|PSETCAT-;makeIrreducible!| - (SPADCALL |a| |ps| (QREFELT $ 78)) $) + (SPADCALL |a| |ps| (|getShellEntry| $ 78)) $) |PSETCAT-;remainder;PSR;24|) (LETT |a| (QCAR |hRa|) |PSETCAT-;remainder;PSR;24|) (LETT |r| (QCDR |hRa|) |PSETCAT-;remainder;PSR;24|) (EXIT (COND - ((SPADCALL |a| (QREFELT $ 43)) + ((SPADCALL |a| (|getShellEntry| $ 43)) (VECTOR (|spadConstant| $ 62) |a| |r|)) ('T (SEQ (LETT |b| (SPADCALL (|spadConstant| $ 62) - (SPADCALL |a| (QREFELT $ 41)) - (QREFELT $ 68)) + (SPADCALL |a| + (|getShellEntry| $ 41)) + (|getShellEntry| $ 68)) |PSETCAT-;remainder;PSR;24|) - (LETT |c| (SPADCALL |a| (QREFELT $ 65)) + (LETT |c| + (SPADCALL |a| (|getShellEntry| $ 65)) |PSETCAT-;remainder;PSR;24|) (SEQ G190 (COND ((NULL (SPADCALL (SPADCALL (LETT |a| - (SPADCALL |a| (QREFELT $ 63)) + (SPADCALL |a| + (|getShellEntry| $ 63)) |PSETCAT-;remainder;PSR;24|) - (QREFELT $ 43)) - (QREFELT $ 29))) + (|getShellEntry| $ 43)) + (|getShellEntry| $ 29))) (GO G191))) (SEQ (LETT |hRa| (|PSETCAT-;makeIrreducible!| - (SPADCALL |a| |ps| (QREFELT $ 78)) + (SPADCALL |a| |ps| + (|getShellEntry| $ 78)) $) |PSETCAT-;remainder;PSR;24|) (LETT |a| (QCAR |hRa|) |PSETCAT-;remainder;PSR;24|) (LETT |r| (SPADCALL |r| (QCDR |hRa|) - (QREFELT $ 71)) + (|getShellEntry| $ 71)) |PSETCAT-;remainder;PSR;24|) (LETT |g| (SPADCALL |c| (LETT |lca| - (SPADCALL |a| (QREFELT $ 65)) + (SPADCALL |a| + (|getShellEntry| $ 65)) |PSETCAT-;remainder;PSR;24|) - (QREFELT $ 66)) + (|getShellEntry| $ 66)) |PSETCAT-;remainder;PSR;24|) (LETT |b| (SPADCALL (SPADCALL (SPADCALL (QCDR |hRa|) (|PSETCAT-;exactQuo| |c| |g| $) - (QREFELT $ 71)) - |b| (QREFELT $ 67)) + (|getShellEntry| $ 71)) + |b| (|getShellEntry| $ 67)) (SPADCALL (|PSETCAT-;exactQuo| |lca| |g| $) - (SPADCALL |a| (QREFELT $ 41)) - (QREFELT $ 68)) - (QREFELT $ 79)) + (SPADCALL |a| + (|getShellEntry| $ 41)) + (|getShellEntry| $ 68)) + (|getShellEntry| $ 79)) |PSETCAT-;remainder;PSR;24|) (EXIT (LETT |c| |g| @@ -1081,15 +1110,18 @@ Note that this code is not included in the generated catdef.spad file. (PROG (|p| |rs|) (RETURN (SEQ (COND - ((SPADCALL |cs| (QREFELT $ 82)) |ps|) - ((SPADCALL |cs| (QREFELT $ 83)) + ((SPADCALL |cs| (|getShellEntry| $ 82)) |ps|) + ((SPADCALL |cs| (|getShellEntry| $ 83)) (LIST (|spadConstant| $ 84))) ('T - (SEQ (LETT |ps| (SPADCALL (ELT $ 43) |ps| (QREFELT $ 26)) + (SEQ (LETT |ps| + (SPADCALL (ELT $ 43) |ps| + (|getShellEntry| $ 26)) |PSETCAT-;rewriteIdealWithHeadRemainder;LSL;25|) (EXIT (COND ((NULL |ps|) |ps|) - ((SPADCALL (ELT $ 24) |ps| (QREFELT $ 44)) + ((SPADCALL (ELT $ 24) |ps| + (|getShellEntry| $ 44)) (LIST (|spadConstant| $ 75))) ('T (SEQ (LETT |rs| NIL @@ -1098,7 +1130,7 @@ Note that this code is not included in the generated catdef.spad file. (COND ((NULL (SPADCALL (NULL |ps|) - (QREFELT $ 29))) + (|getShellEntry| $ 29))) (GO G191))) (SEQ (LETT |p| (|SPADfirst| |ps|) @@ -1108,16 +1140,16 @@ Note that this code is not included in the generated catdef.spad file. (LETT |p| (QCAR (SPADCALL |p| |cs| - (QREFELT $ 78))) + (|getShellEntry| $ 78))) |PSETCAT-;rewriteIdealWithHeadRemainder;LSL;25|) (EXIT (COND ((NULL (SPADCALL |p| - (QREFELT $ 43))) + (|getShellEntry| $ 43))) (COND ((SPADCALL |p| - (QREFELT $ 24)) + (|getShellEntry| $ 24)) (SEQ (LETT |ps| NIL |PSETCAT-;rewriteIdealWithHeadRemainder;LSL;25|) @@ -1129,27 +1161,31 @@ Note that this code is not included in the generated catdef.spad file. ('T (SEQ (SPADCALL |p| - (QREFELT $ 85)) + (|getShellEntry| $ 85)) (EXIT (LETT |rs| (CONS |p| |rs|) |PSETCAT-;rewriteIdealWithHeadRemainder;LSL;25|))))))))) NIL (GO G190) G191 (EXIT NIL)) - (EXIT (SPADCALL |rs| (QREFELT $ 86)))))))))))))) + (EXIT (SPADCALL |rs| + (|getShellEntry| $ 86)))))))))))))) (DEFUN |PSETCAT-;rewriteIdealWithRemainder;LSL;26| (|ps| |cs| $) (PROG (|p| |rs|) (RETURN (SEQ (COND - ((SPADCALL |cs| (QREFELT $ 82)) |ps|) - ((SPADCALL |cs| (QREFELT $ 83)) + ((SPADCALL |cs| (|getShellEntry| $ 82)) |ps|) + ((SPADCALL |cs| (|getShellEntry| $ 83)) (LIST (|spadConstant| $ 84))) ('T - (SEQ (LETT |ps| (SPADCALL (ELT $ 43) |ps| (QREFELT $ 26)) + (SEQ (LETT |ps| + (SPADCALL (ELT $ 43) |ps| + (|getShellEntry| $ 26)) |PSETCAT-;rewriteIdealWithRemainder;LSL;26|) (EXIT (COND ((NULL |ps|) |ps|) - ((SPADCALL (ELT $ 24) |ps| (QREFELT $ 44)) + ((SPADCALL (ELT $ 24) |ps| + (|getShellEntry| $ 44)) (LIST (|spadConstant| $ 75))) ('T (SEQ (LETT |rs| NIL @@ -1158,7 +1194,7 @@ Note that this code is not included in the generated catdef.spad file. (COND ((NULL (SPADCALL (NULL |ps|) - (QREFELT $ 29))) + (|getShellEntry| $ 29))) (GO G191))) (SEQ (LETT |p| (|SPADfirst| |ps|) @@ -1168,17 +1204,17 @@ Note that this code is not included in the generated catdef.spad file. (LETT |p| (QVELT (SPADCALL |p| |cs| - (QREFELT $ 88)) + (|getShellEntry| $ 88)) 1) |PSETCAT-;rewriteIdealWithRemainder;LSL;26|) (EXIT (COND ((NULL (SPADCALL |p| - (QREFELT $ 43))) + (|getShellEntry| $ 43))) (COND ((SPADCALL |p| - (QREFELT $ 24)) + (|getShellEntry| $ 24)) (SEQ (LETT |ps| NIL |PSETCAT-;rewriteIdealWithRemainder;LSL;26|) @@ -1191,11 +1227,12 @@ Note that this code is not included in the generated catdef.spad file. (LETT |rs| (CONS (SPADCALL |p| - (QREFELT $ 89)) + (|getShellEntry| $ 89)) |rs|) |PSETCAT-;rewriteIdealWithRemainder;LSL;26|))))))) NIL (GO G190) G191 (EXIT NIL)) - (EXIT (SPADCALL |rs| (QREFELT $ 86)))))))))))))) + (EXIT (SPADCALL |rs| + (|getShellEntry| $ 86)))))))))))))) (DEFUN |PolynomialSetCategory&| (|#1| |#2| |#3| |#4| |#5|) (PROG (|dv$1| |dv$2| |dv$3| |dv$4| |dv$5| |dv$| $ |pv$|) @@ -1210,33 +1247,33 @@ Note that this code is not included in the generated catdef.spad file. (LETT |dv$| (LIST '|PolynomialSetCategory&| |dv$1| |dv$2| |dv$3| |dv$4| |dv$5|) . #0#) - (LETT $ (GETREFV 91) . #0#) - (QSETREFV $ 0 |dv$|) - (QSETREFV $ 3 + (LETT $ (|newShell| 91) . #0#) + (|setShellEntry| $ 0 |dv$|) + (|setShellEntry| $ 3 (LETT |pv$| (|buildPredVector| 0 0 (LIST (|HasCategory| |#2| '(|IntegralDomain|)))) . #0#)) (|stuffDomainSlots| $) - (QSETREFV $ 6 |#1|) - (QSETREFV $ 7 |#2|) - (QSETREFV $ 8 |#3|) - (QSETREFV $ 9 |#4|) - (QSETREFV $ 10 |#5|) + (|setShellEntry| $ 6 |#1|) + (|setShellEntry| $ 7 |#2|) + (|setShellEntry| $ 8 |#3|) + (|setShellEntry| $ 9 |#4|) + (|setShellEntry| $ 10 |#5|) (COND ((|testBitVector| |pv$| 1) (PROGN - (QSETREFV $ 49 + (|setShellEntry| $ 49 (CONS (|dispatchFunction| |PSETCAT-;roughUnitIdeal?;SB;16|) $)) - (QSETREFV $ 53 + (|setShellEntry| $ 53 (CONS (|dispatchFunction| |PSETCAT-;roughBase?;SB;18|) $)) - (QSETREFV $ 55 + (|setShellEntry| $ 55 (CONS (|dispatchFunction| |PSETCAT-;roughSubIdeal?;2SB;19|) $)) - (QSETREFV $ 58 + (|setShellEntry| $ 58 (CONS (|dispatchFunction| |PSETCAT-;roughEqualIdeals?;2SB;20|) $))))) @@ -1245,19 +1282,19 @@ Note that this code is not included in the generated catdef.spad file. (COND ((|HasCategory| |#4| '(|ConvertibleTo| (|Symbol|))) (PROGN - (QSETREFV $ 73 + (|setShellEntry| $ 73 (CONS (|dispatchFunction| |PSETCAT-;headRemainder;PSR;22|) $)) - (QSETREFV $ 81 + (|setShellEntry| $ 81 (CONS (|dispatchFunction| |PSETCAT-;remainder;PSR;24|) $)) - (QSETREFV $ 87 + (|setShellEntry| $ 87 (CONS (|dispatchFunction| |PSETCAT-;rewriteIdealWithHeadRemainder;LSL;25|) $)) - (QSETREFV $ 90 + (|setShellEntry| $ 90 (CONS (|dispatchFunction| |PSETCAT-;rewriteIdealWithRemainder;LSL;26|) $))))))) @@ -1344,7 +1381,9 @@ Note that this code is not included in the generated catdef.spad file. 40))))) '|lookupComplete|)) @ + \section{domain GPOLSET GeneralPolynomialSet} + <<domain GPOLSET GeneralPolynomialSet>>= )abbrev domain GPOLSET GeneralPolynomialSet ++ Author: Marc Moreno Maza diff --git a/src/algebra/polycat.spad.pamphlet b/src/algebra/polycat.spad.pamphlet index 05ee03f9..6eef8763 100644 --- a/src/algebra/polycat.spad.pamphlet +++ b/src/algebra/polycat.spad.pamphlet @@ -869,8 +869,8 @@ Note that this code is not included in the generated catdef.spad file. (/VERSIONCHECK 2) (DEFUN |POLYCAT-;eval;SLS;1| (|p| |l| $) - (PROG (#0=#:G1420 #1=#:G1414 #2=#:G1421 #3=#:G1422 |lvar| #4=#:G1423 - |e| #5=#:G1424) + (PROG (#0=#:G1427 #1=#:G1421 #2=#:G1428 #3=#:G1429 |lvar| #4=#:G1430 + |e| #5=#:G1431) (RETURN (SEQ (COND ((NULL |l|) |p|) @@ -890,8 +890,9 @@ Note that this code is not included in the generated catdef.spad file. (COND ((QEQCAR (SPADCALL - (SPADCALL |e| (QREFELT $ 11)) - (QREFELT $ 13)) + (SPADCALL |e| + (|getShellEntry| $ 11)) + (|getShellEntry| $ 13)) 1) (PROGN (LETT #1# @@ -920,8 +921,9 @@ Note that this code is not included in the generated catdef.spad file. (LETT #2# (CONS (SPADCALL - (SPADCALL |e| (QREFELT $ 11)) - (QREFELT $ 14)) + (SPADCALL |e| + (|getShellEntry| $ 11)) + (|getShellEntry| $ 14)) #2#) |POLYCAT-;eval;SLS;1|))) (LETT #3# (CDR #3#) @@ -947,14 +949,15 @@ Note that this code is not included in the generated catdef.spad file. (EXIT (LETT #4# (CONS - (SPADCALL |e| (QREFELT $ 15)) + (SPADCALL |e| + (|getShellEntry| $ 15)) #4#) |POLYCAT-;eval;SLS;1|))) (LETT #5# (CDR #5#) |POLYCAT-;eval;SLS;1|) (GO G190) G191 (EXIT (NREVERSE0 #4#)))) - (QREFELT $ 18)))))))))) + (|getShellEntry| $ 18)))))))))) (DEFUN |POLYCAT-;monomials;SL;2| (|p| $) (PROG (|ml|) @@ -962,15 +965,15 @@ Note that this code is not included in the generated catdef.spad file. (SEQ (LETT |ml| NIL |POLYCAT-;monomials;SL;2|) (SEQ G190 (COND - ((NULL (SPADCALL - (SPADCALL |p| (|spadConstant| $ 21) - (QREFELT $ 24)) - (QREFELT $ 25))) + ((NULL (SPADCALL |p| (|spadConstant| $ 22) + (|getShellEntry| $ 25))) (GO G191))) (SEQ (LETT |ml| - (CONS (SPADCALL |p| (QREFELT $ 26)) |ml|) + (CONS (SPADCALL |p| (|getShellEntry| $ 26)) + |ml|) |POLYCAT-;monomials;SL;2|) - (EXIT (LETT |p| (SPADCALL |p| (QREFELT $ 27)) + (EXIT (LETT |p| + (SPADCALL |p| (|getShellEntry| $ 27)) |POLYCAT-;monomials;SL;2|))) NIL (GO G190) G191 (EXIT NIL)) (EXIT (REVERSE |ml|)))))) @@ -979,18 +982,19 @@ Note that this code is not included in the generated catdef.spad file. (PROG (|l|) (RETURN (COND - ((NULL (CDR (LETT |l| (SPADCALL |p| (QREFELT $ 29)) + ((NULL (CDR (LETT |l| (SPADCALL |p| (|getShellEntry| $ 29)) |POLYCAT-;isPlus;SU;3|))) (CONS 1 "failed")) ('T (CONS 0 |l|)))))) (DEFUN |POLYCAT-;isTimes;SU;4| (|p| $) - (PROG (|lv| #0=#:G1446 |v| #1=#:G1447 |l| |r|) + (PROG (|lv| #0=#:G1453 |v| #1=#:G1454 |l| |r|) (RETURN (SEQ (COND - ((OR (NULL (LETT |lv| (SPADCALL |p| (QREFELT $ 32)) + ((OR (NULL (LETT |lv| + (SPADCALL |p| (|getShellEntry| $ 32)) |POLYCAT-;isTimes;SU;4|)) - (NULL (SPADCALL |p| (QREFELT $ 33)))) + (NULL (SPADCALL |p| (|getShellEntry| $ 33)))) (CONS 1 "failed")) ('T (SEQ (LETT |l| @@ -1012,31 +1016,32 @@ Note that this code is not included in the generated catdef.spad file. (SPADCALL (|spadConstant| $ 34) |v| (SPADCALL |p| |v| - (QREFELT $ 37)) - (QREFELT $ 38)) + (|getShellEntry| $ 37)) + (|getShellEntry| $ 38)) #0#) |POLYCAT-;isTimes;SU;4|))) (LETT #1# (CDR #1#) |POLYCAT-;isTimes;SU;4|) (GO G190) G191 (EXIT (NREVERSE0 #0#)))) |POLYCAT-;isTimes;SU;4|) - (LETT |r| (SPADCALL |p| (QREFELT $ 39)) + (LETT |r| (SPADCALL |p| (|getShellEntry| $ 39)) |POLYCAT-;isTimes;SU;4|) (EXIT (COND ((SPADCALL |r| (|spadConstant| $ 35) - (QREFELT $ 40)) + (|getShellEntry| $ 40)) (COND ((NULL (CDR |lv|)) (CONS 1 "failed")) ('T (CONS 0 |l|)))) ('T (CONS 0 - (CONS (SPADCALL |r| (QREFELT $ 41)) + (CONS (SPADCALL |r| + (|getShellEntry| $ 41)) |l|)))))))))))) (DEFUN |POLYCAT-;isExpt;SU;5| (|p| $) (PROG (|u| |d|) (RETURN - (SEQ (LETT |u| (SPADCALL |p| (QREFELT $ 43)) + (SEQ (LETT |u| (SPADCALL |p| (|getShellEntry| $ 43)) |POLYCAT-;isExpt;SU;5|) (EXIT (COND ((OR (QEQCAR |u| 1) @@ -1045,15 +1050,16 @@ Note that this code is not included in the generated catdef.spad file. (QCDR |u|) (LETT |d| (SPADCALL |p| (QCDR |u|) - (QREFELT $ 37)) + (|getShellEntry| $ 37)) |POLYCAT-;isExpt;SU;5|) - (QREFELT $ 38)) - (QREFELT $ 24)))) + (|getShellEntry| $ 38)) + (|getShellEntry| $ 44)))) (CONS 1 "failed")) ('T (CONS 0 (CONS (QCDR |u|) |d|))))))))) (DEFUN |POLYCAT-;coefficient;SVarSetNniS;6| (|p| |v| |n| $) - (SPADCALL (SPADCALL |p| |v| (QREFELT $ 48)) |n| (QREFELT $ 50))) + (SPADCALL (SPADCALL |p| |v| (|getShellEntry| $ 49)) |n| + (|getShellEntry| $ 51))) (DEFUN |POLYCAT-;coefficient;SLLS;7| (|p| |lv| |ln| $) (COND @@ -1064,9 +1070,10 @@ Note that this code is not included in the generated catdef.spad file. ((NULL |ln|) (|error| "mismatched lists in coefficient")) ('T (SPADCALL - (SPADCALL (SPADCALL |p| (|SPADfirst| |lv|) (QREFELT $ 48)) - (|SPADfirst| |ln|) (QREFELT $ 50)) - (CDR |lv|) (CDR |ln|) (QREFELT $ 53))))) + (SPADCALL + (SPADCALL |p| (|SPADfirst| |lv|) (|getShellEntry| $ 49)) + (|SPADfirst| |ln|) (|getShellEntry| $ 51)) + (CDR |lv|) (CDR |ln|) (|getShellEntry| $ 54))))) (DEFUN |POLYCAT-;monomial;SLLS;8| (|p| |lv| |ln| $) (COND @@ -1078,36 +1085,38 @@ Note that this code is not included in the generated catdef.spad file. ('T (SPADCALL (SPADCALL |p| (|SPADfirst| |lv|) (|SPADfirst| |ln|) - (QREFELT $ 38)) - (CDR |lv|) (CDR |ln|) (QREFELT $ 55))))) + (|getShellEntry| $ 38)) + (CDR |lv|) (CDR |ln|) (|getShellEntry| $ 56))))) (DEFUN |POLYCAT-;retract;SVarSet;9| (|p| $) - (PROG (#0=#:G1472 |q|) + (PROG (#0=#:G1479 |q|) (RETURN (SEQ (LETT |q| - (PROG2 (LETT #0# (SPADCALL |p| (QREFELT $ 43)) + (PROG2 (LETT #0# (SPADCALL |p| (|getShellEntry| $ 43)) |POLYCAT-;retract;SVarSet;9|) (QCDR #0#) - (|check-union| (QEQCAR #0# 0) (QREFELT $ 9) #0#)) + (|check-union| (QEQCAR #0# 0) (|getShellEntry| $ 9) + #0#)) |POLYCAT-;retract;SVarSet;9|) (EXIT (COND - ((SPADCALL (SPADCALL |q| (QREFELT $ 57)) |p| - (QREFELT $ 24)) + ((SPADCALL (SPADCALL |q| (|getShellEntry| $ 58)) |p| + (|getShellEntry| $ 44)) |q|) ('T (|error| "Polynomial is not a single variable")))))))) (DEFUN |POLYCAT-;retractIfCan;SU;10| (|p| $) - (PROG (|q| #0=#:G1480) + (PROG (|q| #0=#:G1487) (RETURN - (SEQ (EXIT (SEQ (SEQ (LETT |q| (SPADCALL |p| (QREFELT $ 43)) + (SEQ (EXIT (SEQ (SEQ (LETT |q| + (SPADCALL |p| (|getShellEntry| $ 43)) |POLYCAT-;retractIfCan;SU;10|) (EXIT (COND ((QEQCAR |q| 0) (COND ((SPADCALL (SPADCALL (QCDR |q|) - (QREFELT $ 57)) - |p| (QREFELT $ 24)) + (|getShellEntry| $ 58)) + |p| (|getShellEntry| $ 44)) (PROGN (LETT #0# |q| |POLYCAT-;retractIfCan;SU;10|) @@ -1116,16 +1125,16 @@ Note that this code is not included in the generated catdef.spad file. #0# (EXIT #0#))))) (DEFUN |POLYCAT-;mkPrim| (|p| $) - (SPADCALL (|spadConstant| $ 35) (SPADCALL |p| (QREFELT $ 60)) - (QREFELT $ 61))) + (SPADCALL (|spadConstant| $ 35) (SPADCALL |p| (|getShellEntry| $ 61)) + (|getShellEntry| $ 62))) (DEFUN |POLYCAT-;primitiveMonomials;SL;12| (|p| $) - (PROG (#0=#:G1485 |q| #1=#:G1486) + (PROG (#0=#:G1492 |q| #1=#:G1493) (RETURN (SEQ (PROGN (LETT #0# NIL |POLYCAT-;primitiveMonomials;SL;12|) (SEQ (LETT |q| NIL |POLYCAT-;primitiveMonomials;SL;12|) - (LETT #1# (SPADCALL |p| (QREFELT $ 29)) + (LETT #1# (SPADCALL |p| (|getShellEntry| $ 29)) |POLYCAT-;primitiveMonomials;SL;12|) G190 (COND @@ -1143,99 +1152,104 @@ Note that this code is not included in the generated catdef.spad file. (GO G190) G191 (EXIT (NREVERSE0 #0#)))))))) (DEFUN |POLYCAT-;totalDegree;SNni;13| (|p| $) - (PROG (#0=#:G1488 |d| |u|) + (PROG (#0=#:G1495 |d| |u|) (RETURN (SEQ (COND - ((SPADCALL |p| (QREFELT $ 63)) 0) + ((SPADCALL |p| (|getShellEntry| $ 64)) 0) ('T (SEQ (LETT |u| (SPADCALL |p| (PROG2 (LETT #0# - (SPADCALL |p| (QREFELT $ 43)) + (SPADCALL |p| + (|getShellEntry| $ 43)) |POLYCAT-;totalDegree;SNni;13|) (QCDR #0#) (|check-union| (QEQCAR #0# 0) - (QREFELT $ 9) #0#)) - (QREFELT $ 48)) + (|getShellEntry| $ 9) #0#)) + (|getShellEntry| $ 49)) |POLYCAT-;totalDegree;SNni;13|) (LETT |d| 0 |POLYCAT-;totalDegree;SNni;13|) (SEQ G190 (COND - ((NULL (SPADCALL - (SPADCALL |u| - (|spadConstant| $ 64) - (QREFELT $ 65)) - (QREFELT $ 25))) + ((NULL (SPADCALL |u| (|spadConstant| $ 65) + (|getShellEntry| $ 66))) (GO G191))) (SEQ (LETT |d| (MAX |d| - (+ (SPADCALL |u| (QREFELT $ 66)) + (+ + (SPADCALL |u| + (|getShellEntry| $ 67)) (SPADCALL - (SPADCALL |u| (QREFELT $ 67)) - (QREFELT $ 68)))) + (SPADCALL |u| + (|getShellEntry| $ 68)) + (|getShellEntry| $ 69)))) |POLYCAT-;totalDegree;SNni;13|) (EXIT (LETT |u| - (SPADCALL |u| (QREFELT $ 69)) + (SPADCALL |u| + (|getShellEntry| $ 70)) |POLYCAT-;totalDegree;SNni;13|))) NIL (GO G190) G191 (EXIT NIL)) (EXIT |d|)))))))) (DEFUN |POLYCAT-;totalDegree;SLNni;14| (|p| |lv| $) - (PROG (#0=#:G1496 |v| |w| |d| |u|) + (PROG (#0=#:G1503 |v| |w| |d| |u|) (RETURN (SEQ (COND - ((SPADCALL |p| (QREFELT $ 63)) 0) + ((SPADCALL |p| (|getShellEntry| $ 64)) 0) ('T (SEQ (LETT |u| (SPADCALL |p| (LETT |v| (PROG2 (LETT #0# - (SPADCALL |p| (QREFELT $ 43)) + (SPADCALL |p| + (|getShellEntry| $ 43)) |POLYCAT-;totalDegree;SLNni;14|) (QCDR #0#) (|check-union| (QEQCAR #0# 0) - (QREFELT $ 9) #0#)) + (|getShellEntry| $ 9) #0#)) |POLYCAT-;totalDegree;SLNni;14|) - (QREFELT $ 48)) + (|getShellEntry| $ 49)) |POLYCAT-;totalDegree;SLNni;14|) (LETT |d| 0 |POLYCAT-;totalDegree;SLNni;14|) (LETT |w| 0 |POLYCAT-;totalDegree;SLNni;14|) (COND - ((SPADCALL |v| |lv| (QREFELT $ 71)) + ((SPADCALL |v| |lv| (|getShellEntry| $ 72)) (LETT |w| 1 |POLYCAT-;totalDegree;SLNni;14|))) (SEQ G190 (COND - ((NULL (SPADCALL - (SPADCALL |u| - (|spadConstant| $ 64) - (QREFELT $ 65)) - (QREFELT $ 25))) + ((NULL (SPADCALL |u| (|spadConstant| $ 65) + (|getShellEntry| $ 66))) (GO G191))) (SEQ (LETT |d| (MAX |d| (+ (* |w| - (SPADCALL |u| (QREFELT $ 66))) + (SPADCALL |u| + (|getShellEntry| $ 67))) (SPADCALL - (SPADCALL |u| (QREFELT $ 67)) - |lv| (QREFELT $ 72)))) + (SPADCALL |u| + (|getShellEntry| $ 68)) + |lv| (|getShellEntry| $ 73)))) |POLYCAT-;totalDegree;SLNni;14|) (EXIT (LETT |u| - (SPADCALL |u| (QREFELT $ 69)) + (SPADCALL |u| + (|getShellEntry| $ 70)) |POLYCAT-;totalDegree;SLNni;14|))) NIL (GO G190) G191 (EXIT NIL)) (EXIT |d|)))))))) (DEFUN |POLYCAT-;resultant;2SVarSetS;15| (|p1| |p2| |mvar| $) - (SPADCALL (SPADCALL |p1| |mvar| (QREFELT $ 48)) - (SPADCALL |p2| |mvar| (QREFELT $ 48)) (QREFELT $ 74))) + (SPADCALL (SPADCALL |p1| |mvar| (|getShellEntry| $ 49)) + (SPADCALL |p2| |mvar| (|getShellEntry| $ 49)) + (|getShellEntry| $ 75))) (DEFUN |POLYCAT-;discriminant;SVarSetS;16| (|p| |var| $) - (SPADCALL (SPADCALL |p| |var| (QREFELT $ 48)) (QREFELT $ 76))) + (SPADCALL (SPADCALL |p| |var| (|getShellEntry| $ 49)) + (|getShellEntry| $ 77))) (DEFUN |POLYCAT-;allMonoms| (|l| $) - (PROG (#0=#:G1508 |p| #1=#:G1509) + (PROG (#0=#:G1515 |p| #1=#:G1516) (RETURN (SEQ (SPADCALL (SPADCALL @@ -1252,23 +1266,26 @@ Note that this code is not included in the generated catdef.spad file. (GO G191))) (SEQ (EXIT (LETT #0# (CONS - (SPADCALL |p| (QREFELT $ 78)) + (SPADCALL |p| + (|getShellEntry| $ 79)) #0#) |POLYCAT-;allMonoms|))) (LETT #1# (CDR #1#) |POLYCAT-;allMonoms|) (GO G190) G191 (EXIT (NREVERSE0 #0#)))) - (QREFELT $ 80)) - (QREFELT $ 81)))))) + (|getShellEntry| $ 81)) + (|getShellEntry| $ 82)))))) (DEFUN |POLYCAT-;P2R| (|p| |b| |n| $) - (PROG (|w| |bj| #0=#:G1514 |i| #1=#:G1513) + (PROG (|w| |bj| #0=#:G1521 |i| #1=#:G1520) (RETURN (SEQ (LETT |w| - (SPADCALL |n| (|spadConstant| $ 22) (QREFELT $ 83)) + (SPADCALL |n| (|spadConstant| $ 23) + (|getShellEntry| $ 84)) |POLYCAT-;P2R|) (SEQ (LETT |bj| NIL |POLYCAT-;P2R|) (LETT #0# |b| |POLYCAT-;P2R|) - (LETT |i| (SPADCALL |w| (QREFELT $ 85)) |POLYCAT-;P2R|) + (LETT |i| (SPADCALL |w| (|getShellEntry| $ 86)) + |POLYCAT-;P2R|) (LETT #1# (QVSIZE |w|) |POLYCAT-;P2R|) G190 (COND ((OR (> |i| #1#) (ATOM #0#) @@ -1277,8 +1294,9 @@ Note that this code is not included in the generated catdef.spad file. NIL)) (GO G191))) (SEQ (EXIT (SPADCALL |w| |i| - (SPADCALL |p| |bj| (QREFELT $ 86)) - (QREFELT $ 87)))) + (SPADCALL |p| |bj| + (|getShellEntry| $ 87)) + (|getShellEntry| $ 88)))) (LETT |i| (PROG1 (+ |i| 1) (LETT #0# (CDR #0#) |POLYCAT-;P2R|)) @@ -1287,7 +1305,7 @@ Note that this code is not included in the generated catdef.spad file. (EXIT |w|))))) (DEFUN |POLYCAT-;eq2R| (|l| |b| $) - (PROG (#0=#:G1518 |bj| #1=#:G1519 #2=#:G1520 |p| #3=#:G1521) + (PROG (#0=#:G1525 |bj| #1=#:G1526 #2=#:G1527 |p| #3=#:G1528) (RETURN (SEQ (SPADCALL (PROGN @@ -1323,7 +1341,7 @@ Note that this code is not included in the generated catdef.spad file. (LETT #2# (CONS (SPADCALL |p| |bj| - (QREFELT $ 86)) + (|getShellEntry| $ 87)) #2#) |POLYCAT-;eq2R|))) (LETT #3# (CDR #3#) @@ -1334,13 +1352,13 @@ Note that this code is not included in the generated catdef.spad file. |POLYCAT-;eq2R|))) (LETT #1# (CDR #1#) |POLYCAT-;eq2R|) (GO G190) G191 (EXIT (NREVERSE0 #0#)))) - (QREFELT $ 90)))))) + (|getShellEntry| $ 92)))))) (DEFUN |POLYCAT-;reducedSystem;MM;20| (|m| $) - (PROG (#0=#:G1530 |r| #1=#:G1531 |b| #2=#:G1532 |bj| #3=#:G1533 |d| + (PROG (#0=#:G1537 |r| #1=#:G1538 |b| #2=#:G1539 |bj| #3=#:G1540 |d| |mm| |l|) (RETURN - (SEQ (LETT |l| (SPADCALL |m| (QREFELT $ 93)) + (SEQ (LETT |l| (SPADCALL |m| (|getShellEntry| $ 95)) |POLYCAT-;reducedSystem;MM;20|) (LETT |b| (SPADCALL @@ -1369,8 +1387,8 @@ Note that this code is not included in the generated catdef.spad file. (LETT #1# (CDR #1#) |POLYCAT-;reducedSystem;MM;20|) (GO G190) G191 (EXIT (NREVERSE0 #0#)))) - (QREFELT $ 80)) - (QREFELT $ 81)) + (|getShellEntry| $ 81)) + (|getShellEntry| $ 82)) |POLYCAT-;reducedSystem;MM;20|) (LETT |d| (PROGN @@ -1387,7 +1405,8 @@ Note that this code is not included in the generated catdef.spad file. (GO G191))) (SEQ (EXIT (LETT #2# (CONS - (SPADCALL |bj| (QREFELT $ 60)) + (SPADCALL |bj| + (|getShellEntry| $ 61)) #2#) |POLYCAT-;reducedSystem;MM;20|))) (LETT #3# (CDR #3#) @@ -1399,13 +1418,13 @@ Note that this code is not included in the generated catdef.spad file. (LETT |l| (CDR |l|) |POLYCAT-;reducedSystem;MM;20|) (SEQ G190 (COND - ((NULL (SPADCALL (NULL |l|) (QREFELT $ 25))) + ((NULL (SPADCALL (NULL |l|) (|getShellEntry| $ 96))) (GO G191))) (SEQ (LETT |mm| (SPADCALL |mm| (|POLYCAT-;eq2R| (|SPADfirst| |l|) |d| $) - (QREFELT $ 94)) + (|getShellEntry| $ 97)) |POLYCAT-;reducedSystem;MM;20|) (EXIT (LETT |l| (CDR |l|) |POLYCAT-;reducedSystem;MM;20|))) @@ -1413,12 +1432,12 @@ Note that this code is not included in the generated catdef.spad file. (EXIT |mm|))))) (DEFUN |POLYCAT-;reducedSystem;MVR;21| (|m| |v| $) - (PROG (#0=#:G1544 |s| #1=#:G1545 |b| #2=#:G1546 |bj| #3=#:G1547 |d| + (PROG (#0=#:G1551 |s| #1=#:G1552 |b| #2=#:G1553 |bj| #3=#:G1554 |d| |n| |mm| |w| |l| |r|) (RETURN - (SEQ (LETT |l| (SPADCALL |m| (QREFELT $ 93)) + (SEQ (LETT |l| (SPADCALL |m| (|getShellEntry| $ 95)) |POLYCAT-;reducedSystem;MVR;21|) - (LETT |r| (SPADCALL |v| (QREFELT $ 98)) + (LETT |r| (SPADCALL |v| (|getShellEntry| $ 101)) |POLYCAT-;reducedSystem;MVR;21|) (LETT |b| (SPADCALL @@ -1450,9 +1469,9 @@ Note that this code is not included in the generated catdef.spad file. |POLYCAT-;reducedSystem;MVR;21|) (GO G190) G191 (EXIT (NREVERSE0 #0#)))) - (QREFELT $ 80)) - (QREFELT $ 99)) - (QREFELT $ 81)) + (|getShellEntry| $ 81)) + (|getShellEntry| $ 102)) + (|getShellEntry| $ 82)) |POLYCAT-;reducedSystem;MVR;21|) (LETT |d| (PROGN @@ -1469,7 +1488,8 @@ Note that this code is not included in the generated catdef.spad file. (GO G191))) (SEQ (EXIT (LETT #2# (CONS - (SPADCALL |bj| (QREFELT $ 60)) + (SPADCALL |bj| + (|getShellEntry| $ 61)) #2#) |POLYCAT-;reducedSystem;MVR;21|))) (LETT #3# (CDR #3#) @@ -1485,19 +1505,19 @@ Note that this code is not included in the generated catdef.spad file. (LETT |r| (CDR |r|) |POLYCAT-;reducedSystem;MVR;21|) (SEQ G190 (COND - ((NULL (SPADCALL (NULL |l|) (QREFELT $ 25))) + ((NULL (SPADCALL (NULL |l|) (|getShellEntry| $ 96))) (GO G191))) (SEQ (LETT |mm| (SPADCALL |mm| (|POLYCAT-;eq2R| (|SPADfirst| |l|) |d| $) - (QREFELT $ 94)) + (|getShellEntry| $ 97)) |POLYCAT-;reducedSystem;MVR;21|) (LETT |w| (SPADCALL |w| (|POLYCAT-;P2R| (|SPADfirst| |r|) |d| |n| $) - (QREFELT $ 100)) + (|getShellEntry| $ 103)) |POLYCAT-;reducedSystem;MVR;21|) (LETT |l| (CDR |l|) |POLYCAT-;reducedSystem;MVR;21|) @@ -1507,33 +1527,36 @@ Note that this code is not included in the generated catdef.spad file. (EXIT (CONS |mm| |w|)))))) (DEFUN |POLYCAT-;gcdPolynomial;3Sup;22| (|pp| |qq| $) - (SPADCALL |pp| |qq| (QREFELT $ 105))) + (SPADCALL |pp| |qq| (|getShellEntry| $ 108))) (DEFUN |POLYCAT-;solveLinearPolynomialEquation;LSupU;23| (|lpp| |pp| $) - (SPADCALL |lpp| |pp| (QREFELT $ 110))) + (SPADCALL |lpp| |pp| (|getShellEntry| $ 113))) (DEFUN |POLYCAT-;factorPolynomial;SupF;24| (|pp| $) - (SPADCALL |pp| (QREFELT $ 115))) + (SPADCALL |pp| (|getShellEntry| $ 118))) (DEFUN |POLYCAT-;factorSquareFreePolynomial;SupF;25| (|pp| $) - (SPADCALL |pp| (QREFELT $ 118))) + (SPADCALL |pp| (|getShellEntry| $ 121))) (DEFUN |POLYCAT-;factor;SF;26| (|p| $) - (PROG (|v| |ansR| #0=#:G1589 |w| #1=#:G1590 |up| |ansSUP| #2=#:G1591 - |ww| #3=#:G1592) + (PROG (|v| |ansR| #0=#:G1596 |w| #1=#:G1597 |up| |ansSUP| #2=#:G1598 + |ww| #3=#:G1599) (RETURN - (SEQ (LETT |v| (SPADCALL |p| (QREFELT $ 43)) + (SEQ (LETT |v| (SPADCALL |p| (|getShellEntry| $ 43)) |POLYCAT-;factor;SF;26|) (EXIT (COND ((QEQCAR |v| 1) (SEQ (LETT |ansR| - (SPADCALL (SPADCALL |p| (QREFELT $ 39)) - (QREFELT $ 121)) + (SPADCALL + (SPADCALL |p| + (|getShellEntry| $ 39)) + (|getShellEntry| $ 124)) |POLYCAT-;factor;SF;26|) (EXIT (SPADCALL (SPADCALL - (SPADCALL |ansR| (QREFELT $ 123)) - (QREFELT $ 41)) + (SPADCALL |ansR| + (|getShellEntry| $ 126)) + (|getShellEntry| $ 41)) (PROGN (LETT #0# NIL |POLYCAT-;factor;SF;26|) @@ -1542,7 +1565,7 @@ Note that this code is not included in the generated catdef.spad file. |POLYCAT-;factor;SF;26|) (LETT #1# (SPADCALL |ansR| - (QREFELT $ 127)) + (|getShellEntry| $ 130)) |POLYCAT-;factor;SF;26|) G190 (COND @@ -1558,7 +1581,7 @@ Note that this code is not included in the generated catdef.spad file. (CONS (VECTOR (QVELT |w| 0) (SPADCALL (QVELT |w| 1) - (QREFELT $ 41)) + (|getShellEntry| $ 41)) (QVELT |w| 2)) #0#) |POLYCAT-;factor;SF;26|))) @@ -1566,17 +1589,20 @@ Note that this code is not included in the generated catdef.spad file. |POLYCAT-;factor;SF;26|) (GO G190) G191 (EXIT (NREVERSE0 #0#)))) - (QREFELT $ 131))))) + (|getShellEntry| $ 134))))) ('T (SEQ (LETT |up| - (SPADCALL |p| (QCDR |v|) (QREFELT $ 48)) + (SPADCALL |p| (QCDR |v|) + (|getShellEntry| $ 49)) |POLYCAT-;factor;SF;26|) - (LETT |ansSUP| (SPADCALL |up| (QREFELT $ 115)) + (LETT |ansSUP| + (SPADCALL |up| (|getShellEntry| $ 118)) |POLYCAT-;factor;SF;26|) (EXIT (SPADCALL (SPADCALL - (SPADCALL |ansSUP| (QREFELT $ 132)) - (QCDR |v|) (QREFELT $ 133)) + (SPADCALL |ansSUP| + (|getShellEntry| $ 135)) + (QCDR |v|) (|getShellEntry| $ 136)) (PROGN (LETT #2# NIL |POLYCAT-;factor;SF;26|) @@ -1585,7 +1611,7 @@ Note that this code is not included in the generated catdef.spad file. |POLYCAT-;factor;SF;26|) (LETT #3# (SPADCALL |ansSUP| - (QREFELT $ 136)) + (|getShellEntry| $ 139)) |POLYCAT-;factor;SF;26|) G190 (COND @@ -1601,7 +1627,8 @@ Note that this code is not included in the generated catdef.spad file. (CONS (VECTOR (QVELT |ww| 0) (SPADCALL (QVELT |ww| 1) - (QCDR |v|) (QREFELT $ 133)) + (QCDR |v|) + (|getShellEntry| $ 136)) (QVELT |ww| 2)) #2#) |POLYCAT-;factor;SF;26|))) @@ -1609,20 +1636,22 @@ Note that this code is not included in the generated catdef.spad file. |POLYCAT-;factor;SF;26|) (GO G190) G191 (EXIT (NREVERSE0 #2#)))) - (QREFELT $ 131))))))))))) + (|getShellEntry| $ 134))))))))))) (DEFUN |POLYCAT-;conditionP;MU;27| (|mat| $) - (PROG (|ll| #0=#:G1627 |z| #1=#:G1628 |ch| |l| #2=#:G1629 #3=#:G1630 - #4=#:G1599 #5=#:G1597 #6=#:G1598 #7=#:G1631 |vars| |degs| - #8=#:G1632 |d| #9=#:G1633 |nd| #10=#:G1626 #11=#:G1606 - |deg1| |redmons| #12=#:G1634 |v| #13=#:G1636 |u| - #14=#:G1635 |llR| |monslist| |ans| #15=#:G1637 - #16=#:G1638 |mons| #17=#:G1639 |m| #18=#:G1640 |i| - #19=#:G1622 #20=#:G1620 #21=#:G1621) + (PROG (|ll| #0=#:G1634 |z| #1=#:G1635 |ch| |l| #2=#:G1636 #3=#:G1637 + #4=#:G1606 #5=#:G1604 #6=#:G1605 #7=#:G1638 |vars| |degs| + #8=#:G1639 |d| #9=#:G1640 |nd| #10=#:G1633 #11=#:G1613 + |deg1| |redmons| #12=#:G1641 |v| #13=#:G1643 |u| + #14=#:G1642 |llR| |monslist| |ans| #15=#:G1644 + #16=#:G1645 |mons| #17=#:G1646 |m| #18=#:G1647 |i| + #19=#:G1629 #20=#:G1627 #21=#:G1628) (RETURN (SEQ (EXIT (SEQ (LETT |ll| - (SPADCALL (SPADCALL |mat| (QREFELT $ 138)) - (QREFELT $ 93)) + (SPADCALL + (SPADCALL |mat| + (|getShellEntry| $ 141)) + (|getShellEntry| $ 95)) |POLYCAT-;conditionP;MU;27|) (LETT |llR| (PROGN @@ -1650,7 +1679,7 @@ Note that this code is not included in the generated catdef.spad file. (EXIT (NREVERSE0 #0#)))) |POLYCAT-;conditionP;MU;27|) (LETT |monslist| NIL |POLYCAT-;conditionP;MU;27|) - (LETT |ch| (SPADCALL (QREFELT $ 139)) + (LETT |ch| (SPADCALL (|getShellEntry| $ 142)) |POLYCAT-;conditionP;MU;27|) (SEQ (LETT |l| NIL |POLYCAT-;conditionP;MU;27|) (LETT #2# |ll| |POLYCAT-;conditionP;MU;27|) @@ -1684,13 +1713,14 @@ Note that this code is not included in the generated catdef.spad file. (PROGN (LETT #4# (SPADCALL |u| - (QREFELT $ 78)) + (|getShellEntry| $ 79)) |POLYCAT-;conditionP;MU;27|) (COND (#6# (LETT #5# (SPADCALL #5# #4# - (QREFELT $ 140)) + (|getShellEntry| $ + 143)) |POLYCAT-;conditionP;MU;27|)) ('T (PROGN @@ -1723,11 +1753,12 @@ Note that this code is not included in the generated catdef.spad file. (GO G191))) (SEQ (LETT |vars| - (SPADCALL |m| (QREFELT $ 32)) + (SPADCALL |m| + (|getShellEntry| $ 32)) |POLYCAT-;conditionP;MU;27|) (LETT |degs| (SPADCALL |m| |vars| - (QREFELT $ 141)) + (|getShellEntry| $ 144)) |POLYCAT-;conditionP;MU;27|) (LETT |deg1| (PROGN @@ -1753,7 +1784,8 @@ Note that this code is not included in the generated catdef.spad file. (SEQ (LETT |nd| (SPADCALL |d| |ch| - (QREFELT $ 143)) + (|getShellEntry| $ + 146)) |POLYCAT-;conditionP;MU;27|) (EXIT (COND @@ -1782,7 +1814,8 @@ Note that this code is not included in the generated catdef.spad file. (LETT |redmons| (CONS (SPADCALL (|spadConstant| $ 34) - |vars| |deg1| (QREFELT $ 55)) + |vars| |deg1| + (|getShellEntry| $ 56)) |redmons|) |POLYCAT-;conditionP;MU;27|) (EXIT @@ -1820,8 +1853,10 @@ Note that this code is not included in the generated catdef.spad file. (SPADCALL (SPADCALL |u| |vars| |degs| - (QREFELT $ 53)) - (QREFELT $ 144)) + (|getShellEntry| $ + 54)) + (|getShellEntry| $ + 147)) |v|) #12#) |POLYCAT-;conditionP;MU;27|))) @@ -1845,9 +1880,10 @@ Note that this code is not included in the generated catdef.spad file. (LETT |ans| (SPADCALL (SPADCALL - (SPADCALL |llR| (QREFELT $ 90)) - (QREFELT $ 145)) - (QREFELT $ 147)) + (SPADCALL |llR| + (|getShellEntry| $ 92)) + (|getShellEntry| $ 148)) + (|getShellEntry| $ 150)) |POLYCAT-;conditionP;MU;27|) (EXIT (COND ((QEQCAR |ans| 1) (CONS 1 "failed")) @@ -1907,17 +1943,20 @@ Note that this code is not included in the generated catdef.spad file. (LETT |i| (+ |i| 1) |POLYCAT-;conditionP;MU;27|) - (QREFELT $ 148)) - (QREFELT $ 41)) - (QREFELT $ 149)) + (|getShellEntry| + $ 151)) + (|getShellEntry| + $ 41)) + (|getShellEntry| + $ 152)) |POLYCAT-;conditionP;MU;27|) (COND (#21# (LETT #20# (SPADCALL #20# #19# - (QREFELT $ - 150)) + (|getShellEntry| + $ 153)) |POLYCAT-;conditionP;MU;27|)) ('T (PROGN @@ -1933,7 +1972,7 @@ Note that this code is not included in the generated catdef.spad file. (COND (#21# #20#) ('T - (|spadConstant| $ 21))))))) + (|spadConstant| $ 22))))))) (LETT #17# (PROG1 (CDR #17#) (LETT #16# (QSADD1 #16#) @@ -1946,53 +1985,60 @@ Note that this code is not included in the generated catdef.spad file. (DEFUN |POLYCAT-;charthRoot;SU;28| (|p| $) (PROG (|vars| |ans| |ch|) (RETURN - (SEQ (LETT |vars| (SPADCALL |p| (QREFELT $ 32)) + (SEQ (LETT |vars| (SPADCALL |p| (|getShellEntry| $ 32)) |POLYCAT-;charthRoot;SU;28|) (EXIT (COND ((NULL |vars|) (SEQ (LETT |ans| - (SPADCALL (SPADCALL |p| (QREFELT $ 144)) - (QREFELT $ 152)) + (SPADCALL + (SPADCALL |p| + (|getShellEntry| $ 147)) + (|getShellEntry| $ 155)) |POLYCAT-;charthRoot;SU;28|) (EXIT (COND ((QEQCAR |ans| 1) (CONS 1 "failed")) ('T (CONS 0 (SPADCALL (QCDR |ans|) - (QREFELT $ 41)))))))) + (|getShellEntry| $ 41)))))))) ('T - (SEQ (LETT |ch| (SPADCALL (QREFELT $ 139)) + (SEQ (LETT |ch| (SPADCALL (|getShellEntry| $ 142)) |POLYCAT-;charthRoot;SU;28|) (EXIT (|POLYCAT-;charthRootlv| |p| |vars| |ch| $)))))))))) (DEFUN |POLYCAT-;charthRootlv| (|p| |vars| |ch| $) - (PROG (|v| |dd| |cp| |d| #0=#:G1661 |ans| |ansx| #1=#:G1668) + (PROG (|v| |dd| |cp| |d| #0=#:G1668 |ans| |ansx| #1=#:G1675) (RETURN (SEQ (EXIT (COND ((NULL |vars|) (SEQ (LETT |ans| - (SPADCALL (SPADCALL |p| (QREFELT $ 144)) - (QREFELT $ 152)) + (SPADCALL + (SPADCALL |p| + (|getShellEntry| $ 147)) + (|getShellEntry| $ 155)) |POLYCAT-;charthRootlv|) (EXIT (COND ((QEQCAR |ans| 1) (CONS 1 "failed")) ('T (CONS 0 (SPADCALL (QCDR |ans|) - (QREFELT $ 41)))))))) + (|getShellEntry| $ 41)))))))) ('T (SEQ (LETT |v| (|SPADfirst| |vars|) |POLYCAT-;charthRootlv|) (LETT |vars| (CDR |vars|) |POLYCAT-;charthRootlv|) - (LETT |d| (SPADCALL |p| |v| (QREFELT $ 37)) + (LETT |d| + (SPADCALL |p| |v| + (|getShellEntry| $ 37)) |POLYCAT-;charthRootlv|) - (LETT |ans| (|spadConstant| $ 21) + (LETT |ans| (|spadConstant| $ 22) |POLYCAT-;charthRootlv|) (SEQ G190 (COND ((NULL (< 0 |d|)) (GO G191))) (SEQ (LETT |dd| - (SPADCALL |d| |ch| (QREFELT $ 143)) + (SPADCALL |d| |ch| + (|getShellEntry| $ 146)) |POLYCAT-;charthRootlv|) (EXIT (COND @@ -2005,13 +2051,13 @@ Note that this code is not included in the generated catdef.spad file. (SEQ (LETT |cp| (SPADCALL |p| |v| |d| - (QREFELT $ 155)) + (|getShellEntry| $ 158)) |POLYCAT-;charthRootlv|) (LETT |p| (SPADCALL |p| (SPADCALL |cp| |v| |d| - (QREFELT $ 38)) - (QREFELT $ 156)) + (|getShellEntry| $ 38)) + (|getShellEntry| $ 159)) |POLYCAT-;charthRootlv|) (LETT |ansx| (|POLYCAT-;charthRootlv| |cp| @@ -2029,7 +2075,7 @@ Note that this code is not included in the generated catdef.spad file. (SEQ (LETT |d| (SPADCALL |p| |v| - (QREFELT $ 37)) + (|getShellEntry| $ 37)) |POLYCAT-;charthRootlv|) (EXIT (LETT |ans| @@ -2043,8 +2089,8 @@ Note that this code is not included in the generated catdef.spad file. (>= #0# 0) '(|NonNegativeInteger|) #0#)) - (QREFELT $ 38)) - (QREFELT $ 150)) + (|getShellEntry| $ 38)) + (|getShellEntry| $ 153)) |POLYCAT-;charthRootlv|))))))))))) NIL (GO G190) G191 (EXIT NIL)) (LETT |ansx| @@ -2062,7 +2108,7 @@ Note that this code is not included in the generated catdef.spad file. (LETT #1# (CONS 0 (SPADCALL |ans| (QCDR |ansx|) - (QREFELT $ 150))) + (|getShellEntry| $ 153))) |POLYCAT-;charthRootlv|) (GO #1#))))))))) #1# (EXIT #1#))))) @@ -2071,36 +2117,37 @@ Note that this code is not included in the generated catdef.spad file. (PROG (|result|) (RETURN (SEQ (LETT |result| - (SPADCALL (SPADCALL |p1| |mvar| (QREFELT $ 48)) - (SPADCALL |p2| |mvar| (QREFELT $ 48)) - (QREFELT $ 158)) + (SPADCALL + (SPADCALL |p1| |mvar| (|getShellEntry| $ 49)) + (SPADCALL |p2| |mvar| (|getShellEntry| $ 49)) + (|getShellEntry| $ 161)) |POLYCAT-;monicDivide;2SVarSetR;30|) (EXIT (CONS (SPADCALL (QCAR |result|) |mvar| - (QREFELT $ 133)) + (|getShellEntry| $ 136)) (SPADCALL (QCDR |result|) |mvar| - (QREFELT $ 133)))))))) + (|getShellEntry| $ 136)))))))) (DEFUN |POLYCAT-;squareFree;SF;31| (|p| $) - (SPADCALL |p| (QREFELT $ 161))) + (SPADCALL |p| (|getShellEntry| $ 164))) (DEFUN |POLYCAT-;squareFree;SF;32| (|p| $) - (SPADCALL |p| (QREFELT $ 164))) + (SPADCALL |p| (|getShellEntry| $ 167))) (DEFUN |POLYCAT-;squareFree;SF;33| (|p| $) - (SPADCALL |p| (QREFELT $ 164))) + (SPADCALL |p| (|getShellEntry| $ 167))) (DEFUN |POLYCAT-;squareFreePart;2S;34| (|p| $) - (PROG (|s| |f| #0=#:G1684 #1=#:G1682 #2=#:G1680 #3=#:G1681) + (PROG (|s| |f| #0=#:G1691 #1=#:G1689 #2=#:G1687 #3=#:G1688) (RETURN (SEQ (SPADCALL (SPADCALL - (LETT |s| (SPADCALL |p| (QREFELT $ 165)) + (LETT |s| (SPADCALL |p| (|getShellEntry| $ 168)) |POLYCAT-;squareFreePart;2S;34|) - (QREFELT $ 166)) + (|getShellEntry| $ 169)) (PROGN (LETT #3# NIL |POLYCAT-;squareFreePart;2S;34|) (SEQ (LETT |f| NIL |POLYCAT-;squareFreePart;2S;34|) - (LETT #0# (SPADCALL |s| (QREFELT $ 169)) + (LETT #0# (SPADCALL |s| (|getShellEntry| $ 172)) |POLYCAT-;squareFreePart;2S;34|) G190 (COND @@ -2117,7 +2164,7 @@ Note that this code is not included in the generated catdef.spad file. (#3# (LETT #2# (SPADCALL #2# #1# - (QREFELT $ 149)) + (|getShellEntry| $ 152)) |POLYCAT-;squareFreePart;2S;34|)) ('T (PROGN @@ -2129,73 +2176,80 @@ Note that this code is not included in the generated catdef.spad file. |POLYCAT-;squareFreePart;2S;34|) (GO G190) G191 (EXIT NIL)) (COND (#3# #2#) ('T (|spadConstant| $ 34)))) - (QREFELT $ 149)))))) + (|getShellEntry| $ 152)))))) (DEFUN |POLYCAT-;content;SVarSetS;35| (|p| |v| $) - (SPADCALL (SPADCALL |p| |v| (QREFELT $ 48)) (QREFELT $ 171))) + (SPADCALL (SPADCALL |p| |v| (|getShellEntry| $ 49)) + (|getShellEntry| $ 174))) (DEFUN |POLYCAT-;primitivePart;2S;36| (|p| $) - (PROG (#0=#:G1687) + (PROG (#0=#:G1694) (RETURN (QVELT (SPADCALL (PROG2 (LETT #0# (SPADCALL |p| - (SPADCALL |p| (QREFELT $ 173)) - (QREFELT $ 174)) + (SPADCALL |p| + (|getShellEntry| $ 176)) + (|getShellEntry| $ 177)) |POLYCAT-;primitivePart;2S;36|) (QCDR #0#) - (|check-union| (QEQCAR #0# 0) (QREFELT $ 6) #0#)) - (QREFELT $ 176)) + (|check-union| (QEQCAR #0# 0) (|getShellEntry| $ 6) + #0#)) + (|getShellEntry| $ 179)) 1)))) (DEFUN |POLYCAT-;primitivePart;SVarSetS;37| (|p| |v| $) - (PROG (#0=#:G1693) + (PROG (#0=#:G1700) (RETURN (QVELT (SPADCALL (PROG2 (LETT #0# (SPADCALL |p| - (SPADCALL |p| |v| (QREFELT $ 178)) - (QREFELT $ 179)) + (SPADCALL |p| |v| + (|getShellEntry| $ 181)) + (|getShellEntry| $ 182)) |POLYCAT-;primitivePart;SVarSetS;37|) (QCDR #0#) - (|check-union| (QEQCAR #0# 0) (QREFELT $ 6) #0#)) - (QREFELT $ 176)) + (|check-union| (QEQCAR #0# 0) (|getShellEntry| $ 6) + #0#)) + (|getShellEntry| $ 179)) 1)))) (DEFUN |POLYCAT-;<;2SB;38| (|p| |q| $) (PROG (|dp| |dq|) (RETURN - (SEQ (LETT |dp| (SPADCALL |p| (QREFELT $ 60)) + (SEQ (LETT |dp| (SPADCALL |p| (|getShellEntry| $ 61)) |POLYCAT-;<;2SB;38|) - (LETT |dq| (SPADCALL |q| (QREFELT $ 60)) + (LETT |dq| (SPADCALL |q| (|getShellEntry| $ 61)) |POLYCAT-;<;2SB;38|) (EXIT (COND - ((SPADCALL |dp| |dq| (QREFELT $ 181)) - (SPADCALL (|spadConstant| $ 22) - (SPADCALL |q| (QREFELT $ 39)) (QREFELT $ 182))) - ((SPADCALL |dq| |dp| (QREFELT $ 181)) - (SPADCALL (SPADCALL |p| (QREFELT $ 39)) - (|spadConstant| $ 22) (QREFELT $ 182))) + ((SPADCALL |dp| |dq| (|getShellEntry| $ 184)) + (SPADCALL (|spadConstant| $ 23) + (SPADCALL |q| (|getShellEntry| $ 39)) + (|getShellEntry| $ 185))) + ((SPADCALL |dq| |dp| (|getShellEntry| $ 184)) + (SPADCALL (SPADCALL |p| (|getShellEntry| $ 39)) + (|spadConstant| $ 23) (|getShellEntry| $ 185))) ('T (SPADCALL - (SPADCALL (SPADCALL |p| |q| (QREFELT $ 156)) - (QREFELT $ 39)) - (|spadConstant| $ 22) (QREFELT $ 182))))))))) + (SPADCALL (SPADCALL |p| |q| + (|getShellEntry| $ 159)) + (|getShellEntry| $ 39)) + (|spadConstant| $ 23) (|getShellEntry| $ 185))))))))) (DEFUN |POLYCAT-;patternMatch;SP2Pmr;39| (|p| |pat| |l| $) - (SPADCALL |p| |pat| |l| (QREFELT $ 187))) + (SPADCALL |p| |pat| |l| (|getShellEntry| $ 190))) (DEFUN |POLYCAT-;patternMatch;SP2Pmr;40| (|p| |pat| |l| $) - (SPADCALL |p| |pat| |l| (QREFELT $ 193))) + (SPADCALL |p| |pat| |l| (|getShellEntry| $ 197))) (DEFUN |POLYCAT-;convert;SP;41| (|x| $) - (SPADCALL (ELT $ 196) (ELT $ 197) |x| (QREFELT $ 201))) + (SPADCALL (ELT $ 200) (ELT $ 201) |x| (|getShellEntry| $ 205))) (DEFUN |POLYCAT-;convert;SP;42| (|x| $) - (SPADCALL (ELT $ 203) (ELT $ 204) |x| (QREFELT $ 208))) + (SPADCALL (ELT $ 207) (ELT $ 208) |x| (|getShellEntry| $ 212))) (DEFUN |POLYCAT-;convert;SIf;43| (|p| $) - (SPADCALL (ELT $ 211) (ELT $ 212) |p| (QREFELT $ 216))) + (SPADCALL (ELT $ 215) (ELT $ 216) |p| (|getShellEntry| $ 220))) (DEFUN |PolynomialCategory&| (|#1| |#2| |#3| |#4|) (PROG (|dv$1| |dv$2| |dv$3| |dv$4| |dv$| $ |pv$|) @@ -2207,9 +2261,9 @@ Note that this code is not included in the generated catdef.spad file. (LETT |dv$4| (|devaluate| |#4|) . #0#) (LETT |dv$| (LIST '|PolynomialCategory&| |dv$1| |dv$2| |dv$3| |dv$4|) . #0#) - (LETT $ (GETREFV 226) . #0#) - (QSETREFV $ 0 |dv$|) - (QSETREFV $ 3 + (LETT $ (|newShell| 229) . #0#) + (|setShellEntry| $ 0 |dv$|) + (|setShellEntry| $ 3 (LETT |pv$| (|buildPredVector| 0 0 (LIST (|HasCategory| |#2| @@ -2244,64 +2298,64 @@ Note that this code is not included in the generated catdef.spad file. '(|ConvertibleTo| (|InputForm|))) (|HasCategory| |#2| '(|OrderedSet|)))) . #0#)) (|stuffDomainSlots| $) - (QSETREFV $ 6 |#1|) - (QSETREFV $ 7 |#2|) - (QSETREFV $ 8 |#3|) - (QSETREFV $ 9 |#4|) + (|setShellEntry| $ 6 |#1|) + (|setShellEntry| $ 7 |#2|) + (|setShellEntry| $ 8 |#3|) + (|setShellEntry| $ 9 |#4|) (COND ((|testBitVector| |pv$| 4) (PROGN - (QSETREFV $ 75 + (|setShellEntry| $ 76 (CONS (|dispatchFunction| |POLYCAT-;resultant;2SVarSetS;15|) $)) - (QSETREFV $ 77 + (|setShellEntry| $ 78 (CONS (|dispatchFunction| |POLYCAT-;discriminant;SVarSetS;16|) $))))) (COND ((|HasCategory| |#2| '(|IntegralDomain|)) (PROGN - (QSETREFV $ 96 + (|setShellEntry| $ 99 (CONS (|dispatchFunction| |POLYCAT-;reducedSystem;MM;20|) $)) - (QSETREFV $ 103 + (|setShellEntry| $ 106 (CONS (|dispatchFunction| |POLYCAT-;reducedSystem;MVR;21|) $))))) (COND ((|testBitVector| |pv$| 1) (PROGN - (QSETREFV $ 106 + (|setShellEntry| $ 109 (CONS (|dispatchFunction| |POLYCAT-;gcdPolynomial;3Sup;22|) $)) - (QSETREFV $ 113 + (|setShellEntry| $ 116 (CONS (|dispatchFunction| |POLYCAT-;solveLinearPolynomialEquation;LSupU;23|) $)) - (QSETREFV $ 117 + (|setShellEntry| $ 120 (CONS (|dispatchFunction| |POLYCAT-;factorPolynomial;SupF;24|) $)) - (QSETREFV $ 119 + (|setShellEntry| $ 122 (CONS (|dispatchFunction| |POLYCAT-;factorSquareFreePolynomial;SupF;25|) $)) - (QSETREFV $ 137 + (|setShellEntry| $ 140 (CONS (|dispatchFunction| |POLYCAT-;factor;SF;26|) $)) (COND ((|HasCategory| |#2| '(|CharacteristicNonZero|)) (PROGN - (QSETREFV $ 151 + (|setShellEntry| $ 154 (CONS (|dispatchFunction| |POLYCAT-;conditionP;MU;27|) $)))))))) (COND ((|HasCategory| |#2| '(|CharacteristicNonZero|)) (PROGN - (QSETREFV $ 153 + (|setShellEntry| $ 156 (CONS (|dispatchFunction| |POLYCAT-;charthRoot;SU;28|) $))))) (COND @@ -2311,46 +2365,46 @@ Note that this code is not included in the generated catdef.spad file. ((|HasCategory| |#2| '(|EuclideanDomain|)) (COND ((|HasCategory| |#2| '(|CharacteristicZero|)) - (QSETREFV $ 162 + (|setShellEntry| $ 165 (CONS (|dispatchFunction| |POLYCAT-;squareFree;SF;31|) $))) ('T - (QSETREFV $ 162 + (|setShellEntry| $ 165 (CONS (|dispatchFunction| |POLYCAT-;squareFree;SF;32|) $))))) ('T - (QSETREFV $ 162 + (|setShellEntry| $ 165 (CONS (|dispatchFunction| |POLYCAT-;squareFree;SF;33|) $)))) - (QSETREFV $ 170 + (|setShellEntry| $ 173 (CONS (|dispatchFunction| |POLYCAT-;squareFreePart;2S;34|) $)) - (QSETREFV $ 172 + (|setShellEntry| $ 175 (CONS (|dispatchFunction| |POLYCAT-;content;SVarSetS;35|) $)) - (QSETREFV $ 177 + (|setShellEntry| $ 180 (CONS (|dispatchFunction| |POLYCAT-;primitivePart;2S;36|) $)) - (QSETREFV $ 180 + (|setShellEntry| $ 183 (CONS (|dispatchFunction| |POLYCAT-;primitivePart;SVarSetS;37|) $))))) (COND ((|testBitVector| |pv$| 15) (PROGN - (QSETREFV $ 183 + (|setShellEntry| $ 186 (CONS (|dispatchFunction| |POLYCAT-;<;2SB;38|) $)) (COND ((|testBitVector| |pv$| 8) (COND ((|testBitVector| |pv$| 7) - (QSETREFV $ 189 + (|setShellEntry| $ 192 (CONS (|dispatchFunction| |POLYCAT-;patternMatch;SP2Pmr;39|) $)))))) @@ -2358,7 +2412,7 @@ Note that this code is not included in the generated catdef.spad file. ((|testBitVector| |pv$| 6) (COND ((|testBitVector| |pv$| 5) - (QSETREFV $ 195 + (|setShellEntry| $ 199 (CONS (|dispatchFunction| |POLYCAT-;patternMatch;SP2Pmr;40|) $))))))))) @@ -2366,21 +2420,21 @@ Note that this code is not included in the generated catdef.spad file. ((|testBitVector| |pv$| 12) (COND ((|testBitVector| |pv$| 11) - (QSETREFV $ 202 + (|setShellEntry| $ 206 (CONS (|dispatchFunction| |POLYCAT-;convert;SP;41|) $)))))) (COND ((|testBitVector| |pv$| 10) (COND ((|testBitVector| |pv$| 9) - (QSETREFV $ 209 + (|setShellEntry| $ 213 (CONS (|dispatchFunction| |POLYCAT-;convert;SP;42|) $)))))) (COND ((|testBitVector| |pv$| 14) (COND ((|testBitVector| |pv$| 13) - (QSETREFV $ 217 + (|setShellEntry| $ 221 (CONS (|dispatchFunction| |POLYCAT-;convert;SIf;43|) $)))))) $)))) @@ -2390,187 +2444,188 @@ Note that this code is not included in the generated catdef.spad file. (|local| |#3|) (|local| |#4|) (|Equation| 6) (0 . |lhs|) (|Union| 9 '"failed") (5 . |retractIfCan|) (10 . |retract|) (15 . |rhs|) (|List| 9) (|List| $) - (20 . |eval|) (|List| 221) |POLYCAT-;eval;SLS;1| - (27 . |Zero|) (31 . |Zero|) (|Boolean|) (35 . =) - (41 . |not|) (46 . |leadingMonomial|) (51 . |reductum|) - |POLYCAT-;monomials;SL;2| (56 . |monomials|) - (|Union| 17 '"failed") |POLYCAT-;isPlus;SU;3| - (61 . |variables|) (66 . |monomial?|) (71 . |One|) - (75 . |One|) (|NonNegativeInteger|) (79 . |degree|) - (85 . |monomial|) (92 . |leadingCoefficient|) (97 . =) - (103 . |coerce|) |POLYCAT-;isTimes;SU;4| - (108 . |mainVariable|) + (20 . |eval|) (|Equation| $) (|List| 19) + |POLYCAT-;eval;SLS;1| (27 . |Zero|) (31 . |Zero|) + (|Boolean|) (35 . ~=) (41 . |leadingMonomial|) + (46 . |reductum|) |POLYCAT-;monomials;SL;2| + (51 . |monomials|) (|Union| 17 '"failed") + |POLYCAT-;isPlus;SU;3| (56 . |variables|) + (61 . |monomial?|) (66 . |One|) (70 . |One|) + (|NonNegativeInteger|) (74 . |degree|) (80 . |monomial|) + (87 . |leadingCoefficient|) (92 . =) (98 . |coerce|) + |POLYCAT-;isTimes;SU;4| (103 . |mainVariable|) (108 . =) (|Record| (|:| |var| 9) (|:| |exponent| 36)) - (|Union| 44 '"failed") |POLYCAT-;isExpt;SU;5| - (|SparseUnivariatePolynomial| $) (113 . |univariate|) - (|SparseUnivariatePolynomial| 6) (119 . |coefficient|) + (|Union| 45 '"failed") |POLYCAT-;isExpt;SU;5| + (|SparseUnivariatePolynomial| $) (114 . |univariate|) + (|SparseUnivariatePolynomial| 6) (120 . |coefficient|) |POLYCAT-;coefficient;SVarSetNniS;6| (|List| 36) - (125 . |coefficient|) |POLYCAT-;coefficient;SLLS;7| - (132 . |monomial|) |POLYCAT-;monomial;SLLS;8| - (139 . |coerce|) |POLYCAT-;retract;SVarSet;9| - |POLYCAT-;retractIfCan;SU;10| (144 . |degree|) - (149 . |monomial|) |POLYCAT-;primitiveMonomials;SL;12| - (155 . |ground?|) (160 . |Zero|) (164 . =) - (170 . |degree|) (175 . |leadingCoefficient|) - (180 . |totalDegree|) (185 . |reductum|) - |POLYCAT-;totalDegree;SNni;13| (190 . |member?|) - (196 . |totalDegree|) |POLYCAT-;totalDegree;SLNni;14| - (202 . |resultant|) (208 . |resultant|) - (215 . |discriminant|) (220 . |discriminant|) - (226 . |primitiveMonomials|) (|List| 6) (231 . |concat|) - (236 . |removeDuplicates!|) (|Vector| 7) (241 . |new|) - (|Integer|) (247 . |minIndex|) (252 . |coefficient|) - (258 . |qsetelt!|) (|List| 220) (|Matrix| 7) - (265 . |matrix|) (|List| 79) (|Matrix| 6) - (270 . |listOfLists|) (275 . |vertConcat|) (|Matrix| $) - (281 . |reducedSystem|) (|Vector| 6) (286 . |entries|) - (291 . |concat|) (297 . |concat|) - (|Record| (|:| |mat| 89) (|:| |vec| 82)) (|Vector| $) - (303 . |reducedSystem|) + (126 . |coefficient|) |POLYCAT-;coefficient;SLLS;7| + (133 . |monomial|) |POLYCAT-;monomial;SLLS;8| + (140 . |coerce|) |POLYCAT-;retract;SVarSet;9| + |POLYCAT-;retractIfCan;SU;10| (145 . |degree|) + (150 . |monomial|) |POLYCAT-;primitiveMonomials;SL;12| + (156 . |ground?|) (161 . |Zero|) (165 . ~=) + (171 . |degree|) (176 . |leadingCoefficient|) + (181 . |totalDegree|) (186 . |reductum|) + |POLYCAT-;totalDegree;SNni;13| (191 . |member?|) + (197 . |totalDegree|) |POLYCAT-;totalDegree;SLNni;14| + (203 . |resultant|) (209 . |resultant|) + (216 . |discriminant|) (221 . |discriminant|) + (227 . |primitiveMonomials|) (|List| 6) (232 . |concat|) + (237 . |removeDuplicates!|) (|Vector| 7) (242 . |new|) + (|Integer|) (248 . |minIndex|) (253 . |coefficient|) + (259 . |qsetelt!|) (|List| 7) (|List| 89) (|Matrix| 7) + (266 . |matrix|) (|List| 80) (|Matrix| 6) + (271 . |listOfLists|) (276 . |not|) (281 . |vertConcat|) + (|Matrix| $) (287 . |reducedSystem|) (|Vector| 6) + (292 . |entries|) (297 . |concat|) (303 . |concat|) + (|Record| (|:| |mat| 91) (|:| |vec| 83)) (|Vector| $) + (309 . |reducedSystem|) (|GeneralPolynomialGcdPackage| 8 9 7 6) - (309 . |gcdPolynomial|) (315 . |gcdPolynomial|) - (|Union| 108 '"failed") (|List| 49) + (315 . |gcdPolynomial|) (321 . |gcdPolynomial|) + (|List| 50) (|Union| 110 '"failed") (|PolynomialFactorizationByRecursion| 7 8 9 6) - (321 . |solveLinearPolynomialEquationByRecursion|) - (|Union| 112 '"failed") (|List| 47) - (327 . |solveLinearPolynomialEquation|) (|Factored| 49) - (333 . |factorByRecursion|) (|Factored| 47) - (338 . |factorPolynomial|) - (343 . |factorSquareFreeByRecursion|) - (348 . |factorSquareFreePolynomial|) (|Factored| $) - (353 . |factor|) (|Factored| 7) (358 . |unit|) + (327 . |solveLinearPolynomialEquationByRecursion|) + (|List| 48) (|Union| 114 '"failed") + (333 . |solveLinearPolynomialEquation|) (|Factored| 50) + (339 . |factorByRecursion|) (|Factored| 48) + (344 . |factorPolynomial|) + (349 . |factorSquareFreeByRecursion|) + (354 . |factorSquareFreePolynomial|) (|Factored| $) + (359 . |factor|) (|Factored| 7) (364 . |unit|) (|Union| '"nil" '"sqfr" '"irred" '"prime") - (|Record| (|:| |flg| 124) (|:| |fctr| 7) (|:| |xpnt| 84)) - (|List| 125) (363 . |factorList|) - (|Record| (|:| |flg| 124) (|:| |fctr| 6) (|:| |xpnt| 84)) - (|List| 128) (|Factored| 6) (368 . |makeFR|) - (374 . |unit|) (379 . |multivariate|) - (|Record| (|:| |flg| 124) (|:| |fctr| 49) (|:| |xpnt| 84)) - (|List| 134) (385 . |factorList|) (390 . |factor|) - (395 . |transpose|) (400 . |characteristic|) - (404 . |setUnion|) (410 . |degree|) (|Union| $ '"failed") - (416 . |exquo|) (422 . |ground|) (427 . |transpose|) - (|Union| 102 '"failed") (432 . |conditionP|) (437 . |elt|) - (443 . *) (449 . +) (455 . |conditionP|) - (460 . |charthRoot|) (465 . |charthRoot|) (470 . |Zero|) - (474 . |coefficient|) (481 . -) + (|Record| (|:| |flg| 127) (|:| |fctr| 7) (|:| |xpnt| 85)) + (|List| 128) (369 . |factorList|) + (|Record| (|:| |flg| 127) (|:| |fctr| 6) (|:| |xpnt| 85)) + (|List| 131) (|Factored| 6) (374 . |makeFR|) + (380 . |unit|) (385 . |multivariate|) + (|Record| (|:| |flg| 127) (|:| |fctr| 50) (|:| |xpnt| 85)) + (|List| 137) (391 . |factorList|) (396 . |factor|) + (401 . |transpose|) (406 . |characteristic|) + (410 . |setUnion|) (416 . |degree|) (|Union| $ '"failed") + (422 . |exquo|) (428 . |ground|) (433 . |transpose|) + (|Union| 105 '"failed") (438 . |conditionP|) (443 . |elt|) + (449 . *) (455 . +) (461 . |conditionP|) + (466 . |charthRoot|) (471 . |charthRoot|) (476 . |Zero|) + (480 . |coefficient|) (487 . -) (|Record| (|:| |quotient| $) (|:| |remainder| $)) - (487 . |monicDivide|) |POLYCAT-;monicDivide;2SVarSetR;30| - (|MultivariateSquareFree| 8 9 7 6) (493 . |squareFree|) - (498 . |squareFree|) (|PolynomialSquareFree| 9 8 7 6) - (503 . |squareFree|) (508 . |squareFree|) (513 . |unit|) - (|Record| (|:| |factor| 6) (|:| |exponent| 84)) - (|List| 167) (518 . |factors|) (523 . |squareFreePart|) - (528 . |content|) (533 . |content|) (539 . |content|) - (544 . |exquo|) + (493 . |monicDivide|) |POLYCAT-;monicDivide;2SVarSetR;30| + (|MultivariateSquareFree| 8 9 7 6) (499 . |squareFree|) + (504 . |squareFree|) (|PolynomialSquareFree| 9 8 7 6) + (509 . |squareFree|) (514 . |squareFree|) (519 . |unit|) + (|Record| (|:| |factor| 6) (|:| |exponent| 85)) + (|List| 170) (524 . |factors|) (529 . |squareFreePart|) + (534 . |content|) (539 . |content|) (545 . |content|) + (550 . |exquo|) (|Record| (|:| |unit| $) (|:| |canonical| $) (|:| |associate| $)) - (550 . |unitNormal|) (555 . |primitivePart|) - (560 . |content|) (566 . |exquo|) (572 . |primitivePart|) - (578 . <) (584 . <) (590 . <) (|PatternMatchResult| 84 6) - (|Pattern| 84) - (|PatternMatchPolynomialCategory| 84 8 9 7 6) - (596 . |patternMatch|) (|PatternMatchResult| 84 $) - (603 . |patternMatch|) (|PatternMatchResult| (|Float|) 6) - (|Pattern| (|Float|)) - (|PatternMatchPolynomialCategory| (|Float|) 8 9 7 6) - (610 . |patternMatch|) (|PatternMatchResult| (|Float|) $) - (617 . |patternMatch|) (624 . |convert|) (629 . |convert|) - (|Mapping| 185 9) (|Mapping| 185 7) - (|PolynomialCategoryLifting| 8 9 7 6 185) (634 . |map|) - (641 . |convert|) (646 . |convert|) (651 . |convert|) - (|Mapping| 191 9) (|Mapping| 191 7) - (|PolynomialCategoryLifting| 8 9 7 6 191) (656 . |map|) - (663 . |convert|) (|InputForm|) (668 . |convert|) - (673 . |convert|) (|Mapping| 210 9) (|Mapping| 210 7) - (|PolynomialCategoryLifting| 8 9 7 6 210) (678 . |map|) - (685 . |convert|) - (|Record| (|:| |mat| 219) (|:| |vec| (|Vector| 84))) - (|Matrix| 84) (|List| 7) (|Equation| $) - (|Union| 84 '"failed") (|Union| 224 '"failed") - (|Fraction| 84) (|Union| 7 '"failed")) - '#(|totalDegree| 690 |squareFreePart| 701 |squareFree| 706 - |solveLinearPolynomialEquation| 711 |retractIfCan| 717 - |retract| 722 |resultant| 727 |reducedSystem| 734 - |primitivePart| 745 |primitiveMonomials| 756 - |patternMatch| 761 |monomials| 775 |monomial| 780 - |monicDivide| 787 |isTimes| 794 |isPlus| 799 |isExpt| 804 - |gcdPolynomial| 809 |factorSquareFreePolynomial| 815 - |factorPolynomial| 820 |factor| 825 |eval| 830 - |discriminant| 836 |convert| 842 |content| 857 - |conditionP| 863 |coefficient| 868 |charthRoot| 882 < 887) + (556 . |unitNormal|) (561 . |primitivePart|) + (566 . |content|) (572 . |exquo|) (578 . |primitivePart|) + (584 . <) (590 . <) (596 . <) (|PatternMatchResult| 85 6) + (|Pattern| 85) + (|PatternMatchPolynomialCategory| 85 8 9 7 6) + (602 . |patternMatch|) (|PatternMatchResult| 85 $) + (609 . |patternMatch|) (|Float|) + (|PatternMatchResult| 193 6) (|Pattern| 193) + (|PatternMatchPolynomialCategory| 193 8 9 7 6) + (616 . |patternMatch|) (|PatternMatchResult| 193 $) + (623 . |patternMatch|) (630 . |convert|) (635 . |convert|) + (|Mapping| 188 9) (|Mapping| 188 7) + (|PolynomialCategoryLifting| 8 9 7 6 188) (640 . |map|) + (647 . |convert|) (652 . |convert|) (657 . |convert|) + (|Mapping| 195 9) (|Mapping| 195 7) + (|PolynomialCategoryLifting| 8 9 7 6 195) (662 . |map|) + (669 . |convert|) (|InputForm|) (674 . |convert|) + (679 . |convert|) (|Mapping| 214 9) (|Mapping| 214 7) + (|PolynomialCategoryLifting| 8 9 7 6 214) (684 . |map|) + (691 . |convert|) (|Matrix| 85) (|Vector| 85) + (|Record| (|:| |mat| 222) (|:| |vec| 223)) + (|Union| 85 '"failed") (|Fraction| 85) + (|Union| 226 '"failed") (|Union| 7 '"failed")) + '#(|totalDegree| 696 |squareFreePart| 707 |squareFree| 712 + |solveLinearPolynomialEquation| 717 |retractIfCan| 723 + |retract| 728 |resultant| 733 |reducedSystem| 740 + |primitivePart| 751 |primitiveMonomials| 762 + |patternMatch| 767 |monomials| 781 |monomial| 786 + |monicDivide| 793 |isTimes| 800 |isPlus| 805 |isExpt| 810 + |gcdPolynomial| 815 |factorSquareFreePolynomial| 821 + |factorPolynomial| 826 |factor| 831 |eval| 836 + |discriminant| 842 |convert| 848 |content| 863 + |conditionP| 869 |coefficient| 874 |charthRoot| 888 < 893) 'NIL (CONS (|makeByteWordVec2| 1 'NIL) (CONS '#() (CONS '#() - (|makeByteWordVec2| 217 + (|makeByteWordVec2| 221 '(1 10 6 0 11 1 6 12 0 13 1 6 9 0 14 1 - 10 6 0 15 3 6 0 0 16 17 18 0 6 0 21 0 - 7 0 22 2 6 23 0 0 24 1 23 0 0 25 1 6 - 0 0 26 1 6 0 0 27 1 6 17 0 29 1 6 16 - 0 32 1 6 23 0 33 0 6 0 34 0 7 0 35 2 - 6 36 0 9 37 3 6 0 0 9 36 38 1 6 7 0 - 39 2 7 23 0 0 40 1 6 0 7 41 1 6 12 0 - 43 2 6 47 0 9 48 2 49 6 0 36 50 3 6 0 - 0 16 52 53 3 6 0 0 16 52 55 1 6 0 9 - 57 1 6 8 0 60 2 6 0 7 8 61 1 6 23 0 - 63 0 49 0 64 2 49 23 0 0 65 1 49 36 0 - 66 1 49 6 0 67 1 6 36 0 68 1 49 0 0 - 69 2 16 23 9 0 71 2 6 36 0 16 72 2 49 - 6 0 0 74 3 0 0 0 0 9 75 1 49 6 0 76 2 - 0 0 0 9 77 1 6 17 0 78 1 79 0 17 80 1 - 79 0 0 81 2 82 0 36 7 83 1 82 84 0 85 - 2 6 7 0 8 86 3 82 7 0 84 7 87 1 89 0 - 88 90 1 92 91 0 93 2 89 0 0 0 94 1 0 - 89 95 96 1 97 79 0 98 2 79 0 0 0 99 2 - 82 0 0 0 100 2 0 101 95 102 103 2 104 - 49 49 49 105 2 0 47 47 47 106 2 109 - 107 108 49 110 2 0 111 112 47 113 1 - 109 114 49 115 1 0 116 47 117 1 109 - 114 49 118 1 0 116 47 119 1 7 120 0 - 121 1 122 7 0 123 1 122 126 0 127 2 - 130 0 6 129 131 1 114 49 0 132 2 6 0 - 47 9 133 1 114 135 0 136 1 0 120 0 - 137 1 92 0 0 138 0 6 36 139 2 79 0 0 - 0 140 2 6 52 0 16 141 2 84 142 0 0 - 143 1 6 7 0 144 1 89 0 0 145 1 7 146 - 95 147 2 82 7 0 84 148 2 6 0 0 0 149 - 2 6 0 0 0 150 1 0 146 95 151 1 7 142 - 0 152 1 0 142 0 153 0 8 0 154 3 6 0 0 - 9 36 155 2 6 0 0 0 156 2 49 157 0 0 - 158 1 160 130 6 161 1 0 120 0 162 1 - 163 130 6 164 1 6 120 0 165 1 130 6 0 - 166 1 130 168 0 169 1 0 0 0 170 1 49 - 6 0 171 2 0 0 0 9 172 1 6 7 0 173 2 6 - 142 0 7 174 1 6 175 0 176 1 0 0 0 177 - 2 6 0 0 9 178 2 6 142 0 0 179 2 0 0 0 - 9 180 2 8 23 0 0 181 2 7 23 0 0 182 2 - 0 23 0 0 183 3 186 184 6 185 184 187 - 3 0 188 0 185 188 189 3 192 190 6 191 - 190 193 3 0 194 0 191 194 195 1 9 185 - 0 196 1 7 185 0 197 3 200 185 198 199 - 6 201 1 0 185 0 202 1 9 191 0 203 1 7 - 191 0 204 3 207 191 205 206 6 208 1 0 - 191 0 209 1 9 210 0 211 1 7 210 0 212 - 3 215 210 213 214 6 216 1 0 210 0 217 - 2 0 36 0 16 73 1 0 36 0 70 1 0 0 0 - 170 1 0 120 0 162 2 0 111 112 47 113 - 1 0 12 0 59 1 0 9 0 58 3 0 0 0 0 9 75 - 1 0 89 95 96 2 0 101 95 102 103 2 0 0 - 0 9 180 1 0 0 0 177 1 0 17 0 62 3 0 - 188 0 185 188 189 3 0 194 0 191 194 - 195 1 0 17 0 28 3 0 0 0 16 52 56 3 0 - 157 0 0 9 159 1 0 30 0 42 1 0 30 0 31 - 1 0 45 0 46 2 0 47 47 47 106 1 0 116 - 47 119 1 0 116 47 117 1 0 120 0 137 2 - 0 0 0 19 20 2 0 0 0 9 77 1 0 210 0 - 217 1 0 185 0 202 1 0 191 0 209 2 0 0 - 0 9 172 1 0 146 95 151 3 0 0 0 16 52 - 54 3 0 0 0 9 36 51 1 0 142 0 153 2 0 - 23 0 0 183))))) + 10 6 0 15 3 6 0 0 16 17 18 0 6 0 22 0 + 7 0 23 2 6 24 0 0 25 1 6 0 0 26 1 6 0 + 0 27 1 6 17 0 29 1 6 16 0 32 1 6 24 0 + 33 0 6 0 34 0 7 0 35 2 6 36 0 9 37 3 + 6 0 0 9 36 38 1 6 7 0 39 2 7 24 0 0 + 40 1 6 0 7 41 1 6 12 0 43 2 6 24 0 0 + 44 2 6 48 0 9 49 2 50 6 0 36 51 3 6 0 + 0 16 53 54 3 6 0 0 16 53 56 1 6 0 9 + 58 1 6 8 0 61 2 6 0 7 8 62 1 6 24 0 + 64 0 50 0 65 2 50 24 0 0 66 1 50 36 0 + 67 1 50 6 0 68 1 6 36 0 69 1 50 0 0 + 70 2 16 24 9 0 72 2 6 36 0 16 73 2 50 + 6 0 0 75 3 0 0 0 0 9 76 1 50 6 0 77 2 + 0 0 0 9 78 1 6 17 0 79 1 80 0 17 81 1 + 80 0 0 82 2 83 0 36 7 84 1 83 85 0 86 + 2 6 7 0 8 87 3 83 7 0 85 7 88 1 91 0 + 90 92 1 94 93 0 95 1 24 0 0 96 2 91 0 + 0 0 97 1 0 91 98 99 1 100 80 0 101 2 + 80 0 0 0 102 2 83 0 0 0 103 2 0 104 + 98 105 106 2 107 50 50 50 108 2 0 48 + 48 48 109 2 112 111 110 50 113 2 0 + 115 114 48 116 1 112 117 50 118 1 0 + 119 48 120 1 112 117 50 121 1 0 119 + 48 122 1 7 123 0 124 1 125 7 0 126 1 + 125 129 0 130 2 133 0 6 132 134 1 117 + 50 0 135 2 6 0 48 9 136 1 117 138 0 + 139 1 0 123 0 140 1 94 0 0 141 0 6 36 + 142 2 80 0 0 0 143 2 6 53 0 16 144 2 + 85 145 0 0 146 1 6 7 0 147 1 91 0 0 + 148 1 7 149 98 150 2 83 7 0 85 151 2 + 6 0 0 0 152 2 6 0 0 0 153 1 0 149 98 + 154 1 7 145 0 155 1 0 145 0 156 0 8 0 + 157 3 6 0 0 9 36 158 2 6 0 0 0 159 2 + 50 160 0 0 161 1 163 133 6 164 1 0 + 123 0 165 1 166 133 6 167 1 6 123 0 + 168 1 133 6 0 169 1 133 171 0 172 1 0 + 0 0 173 1 50 6 0 174 2 0 0 0 9 175 1 + 6 7 0 176 2 6 145 0 7 177 1 6 178 0 + 179 1 0 0 0 180 2 6 0 0 9 181 2 6 145 + 0 0 182 2 0 0 0 9 183 2 8 24 0 0 184 + 2 7 24 0 0 185 2 0 24 0 0 186 3 189 + 187 6 188 187 190 3 0 191 0 188 191 + 192 3 196 194 6 195 194 197 3 0 198 0 + 195 198 199 1 9 188 0 200 1 7 188 0 + 201 3 204 188 202 203 6 205 1 0 188 0 + 206 1 9 195 0 207 1 7 195 0 208 3 211 + 195 209 210 6 212 1 0 195 0 213 1 9 + 214 0 215 1 7 214 0 216 3 219 214 217 + 218 6 220 1 0 214 0 221 2 0 36 0 16 + 74 1 0 36 0 71 1 0 0 0 173 1 0 123 0 + 165 2 0 115 114 48 116 1 0 12 0 60 1 + 0 9 0 59 3 0 0 0 0 9 76 1 0 91 98 99 + 2 0 104 98 105 106 2 0 0 0 9 183 1 0 + 0 0 180 1 0 17 0 63 3 0 191 0 188 191 + 192 3 0 198 0 195 198 199 1 0 17 0 28 + 3 0 0 0 16 53 57 3 0 160 0 0 9 162 1 + 0 30 0 42 1 0 30 0 31 1 0 46 0 47 2 0 + 48 48 48 109 1 0 119 48 122 1 0 119 + 48 120 1 0 123 0 140 2 0 0 0 20 21 2 + 0 0 0 9 78 1 0 214 0 221 1 0 188 0 + 206 1 0 195 0 213 2 0 0 0 9 175 1 0 + 149 98 154 3 0 0 0 16 53 55 3 0 0 0 9 + 36 52 1 0 145 0 156 2 0 24 0 0 186))))) '|lookupComplete|)) @ + \section{package POLYLIFT PolynomialCategoryLifting} + <<package POLYLIFT PolynomialCategoryLifting>>= )abbrev package POLYLIFT PolynomialCategoryLifting ++ Author: Manuel Bronstein @@ -3152,19 +3207,21 @@ Note that this code is not included in the generated catdef.spad file. (DEFUN |UPOLYC-;variables;SL;1| (|p| $) (COND - ((OR (SPADCALL |p| (QREFELT $ 9)) - (ZEROP (SPADCALL |p| (QREFELT $ 11)))) + ((OR (SPADCALL |p| (|getShellEntry| $ 9)) + (ZEROP (SPADCALL |p| (|getShellEntry| $ 11)))) NIL) - ('T (LIST (SPADCALL (QREFELT $ 13)))))) + ('T (LIST (SPADCALL (|getShellEntry| $ 13)))))) (DEFUN |UPOLYC-;degree;SSaosNni;2| (|p| |v| $) - (SPADCALL |p| (QREFELT $ 11))) + (SPADCALL |p| (|getShellEntry| $ 11))) (DEFUN |UPOLYC-;totalDegree;SLNni;3| (|p| |lv| $) - (COND ((NULL |lv|) 0) ('T (SPADCALL |p| (QREFELT $ 17))))) + (COND ((NULL |lv|) 0) ('T (SPADCALL |p| (|getShellEntry| $ 17))))) (DEFUN |UPOLYC-;degree;SLL;4| (|p| |lv| $) - (COND ((NULL |lv|) NIL) ('T (LIST (SPADCALL |p| (QREFELT $ 11)))))) + (COND + ((NULL |lv|) NIL) + ('T (LIST (SPADCALL |p| (|getShellEntry| $ 11)))))) (DEFUN |UPOLYC-;eval;SLLS;5| (|p| |lv| |lq| $) (COND @@ -3173,10 +3230,10 @@ Note that this code is not included in the generated catdef.spad file. (|error| "can only eval a univariate polynomial once")) ('T (SPADCALL |p| (|SPADfirst| |lv|) (|SPADfirst| |lq|) - (QREFELT $ 21))))) + (|getShellEntry| $ 21))))) (DEFUN |UPOLYC-;eval;SSaos2S;6| (|p| |v| |q| $) - (SPADCALL |p| |q| (QREFELT $ 24))) + (SPADCALL |p| |q| (|getShellEntry| $ 24))) (DEFUN |UPOLYC-;eval;SLLS;7| (|p| |lv| |lr| $) (COND @@ -3185,10 +3242,11 @@ Note that this code is not included in the generated catdef.spad file. (|error| "can only eval a univariate polynomial once")) ('T (SPADCALL |p| (|SPADfirst| |lv|) (|SPADfirst| |lr|) - (QREFELT $ 26))))) + (|getShellEntry| $ 26))))) (DEFUN |UPOLYC-;eval;SSaosRS;8| (|p| |v| |r| $) - (SPADCALL (SPADCALL |p| |r| (QREFELT $ 29)) (QREFELT $ 30))) + (SPADCALL (SPADCALL |p| |r| (|getShellEntry| $ 29)) + (|getShellEntry| $ 30))) (DEFUN |UPOLYC-;eval;SLS;9| (|p| |le| $) (COND @@ -3197,95 +3255,111 @@ Note that this code is not included in the generated catdef.spad file. (|error| "can only eval a univariate polynomial once")) ('T (COND - ((QEQCAR (SPADCALL (SPADCALL (|SPADfirst| |le|) (QREFELT $ 33)) - (QREFELT $ 35)) + ((QEQCAR (SPADCALL + (SPADCALL (|SPADfirst| |le|) + (|getShellEntry| $ 33)) + (|getShellEntry| $ 35)) 1) |p|) ('T - (SPADCALL |p| (SPADCALL (|SPADfirst| |le|) (QREFELT $ 36)) - (QREFELT $ 24))))))) + (SPADCALL |p| + (SPADCALL (|SPADfirst| |le|) (|getShellEntry| $ 36)) + (|getShellEntry| $ 24))))))) (DEFUN |UPOLYC-;mainVariable;SU;10| (|p| $) (COND - ((ZEROP (SPADCALL |p| (QREFELT $ 11))) (CONS 1 "failed")) - ('T (CONS 0 (SPADCALL (QREFELT $ 13)))))) + ((ZEROP (SPADCALL |p| (|getShellEntry| $ 11))) (CONS 1 "failed")) + ('T (CONS 0 (SPADCALL (|getShellEntry| $ 13)))))) (DEFUN |UPOLYC-;minimumDegree;SSaosNni;11| (|p| |v| $) - (SPADCALL |p| (QREFELT $ 40))) + (SPADCALL |p| (|getShellEntry| $ 41))) (DEFUN |UPOLYC-;minimumDegree;SLL;12| (|p| |lv| $) - (COND ((NULL |lv|) NIL) ('T (LIST (SPADCALL |p| (QREFELT $ 40)))))) + (COND + ((NULL |lv|) NIL) + ('T (LIST (SPADCALL |p| (|getShellEntry| $ 41)))))) (DEFUN |UPOLYC-;monomial;SSaosNniS;13| (|p| |v| |n| $) (SPADCALL (CONS #'|UPOLYC-;monomial;SSaosNniS;13!0| (VECTOR $ |n|)) - |p| (QREFELT $ 45))) + |p| (|getShellEntry| $ 46))) (DEFUN |UPOLYC-;monomial;SSaosNniS;13!0| (|#1| $$) - (SPADCALL |#1| (QREFELT $$ 1) (QREFELT (QREFELT $$ 0) 43))) + (SPADCALL |#1| (|getShellEntry| $$ 1) + (|getShellEntry| (|getShellEntry| $$ 0) 44))) (DEFUN |UPOLYC-;coerce;SaosS;14| (|v| $) - (SPADCALL (|spadConstant| $ 48) 1 (QREFELT $ 49))) + (SPADCALL (|spadConstant| $ 49) 1 (|getShellEntry| $ 50))) (DEFUN |UPOLYC-;makeSUP;SSup;15| (|p| $) (COND - ((SPADCALL |p| (QREFELT $ 9)) (|spadConstant| $ 52)) + ((SPADCALL |p| (|getShellEntry| $ 9)) (|spadConstant| $ 53)) ('T (SPADCALL - (SPADCALL (SPADCALL |p| (QREFELT $ 53)) - (SPADCALL |p| (QREFELT $ 11)) (QREFELT $ 54)) - (SPADCALL (SPADCALL |p| (QREFELT $ 55)) (QREFELT $ 56)) - (QREFELT $ 57))))) + (SPADCALL (SPADCALL |p| (|getShellEntry| $ 54)) + (SPADCALL |p| (|getShellEntry| $ 11)) + (|getShellEntry| $ 55)) + (SPADCALL (SPADCALL |p| (|getShellEntry| $ 56)) + (|getShellEntry| $ 57)) + (|getShellEntry| $ 58))))) (DEFUN |UPOLYC-;unmakeSUP;SupS;16| (|sp| $) (COND - ((SPADCALL |sp| (QREFELT $ 59)) (|spadConstant| $ 60)) + ((SPADCALL |sp| (|getShellEntry| $ 60)) (|spadConstant| $ 61)) ('T (SPADCALL - (SPADCALL (SPADCALL |sp| (QREFELT $ 61)) - (SPADCALL |sp| (QREFELT $ 62)) (QREFELT $ 49)) - (SPADCALL (SPADCALL |sp| (QREFELT $ 63)) (QREFELT $ 64)) - (QREFELT $ 65))))) + (SPADCALL (SPADCALL |sp| (|getShellEntry| $ 62)) + (SPADCALL |sp| (|getShellEntry| $ 63)) + (|getShellEntry| $ 50)) + (SPADCALL (SPADCALL |sp| (|getShellEntry| $ 64)) + (|getShellEntry| $ 65)) + (|getShellEntry| $ 66))))) (DEFUN |UPOLYC-;karatsubaDivide;SNniR;17| (|p| |n| $) - (SPADCALL |p| (SPADCALL (|spadConstant| $ 48) |n| (QREFELT $ 49)) - (QREFELT $ 68))) + (SPADCALL |p| + (SPADCALL (|spadConstant| $ 49) |n| (|getShellEntry| $ 50)) + (|getShellEntry| $ 69))) (DEFUN |UPOLYC-;shiftRight;SNniS;18| (|p| |n| $) (QCAR (SPADCALL |p| - (SPADCALL (|spadConstant| $ 48) |n| (QREFELT $ 49)) - (QREFELT $ 68)))) + (SPADCALL (|spadConstant| $ 49) |n| (|getShellEntry| $ 50)) + (|getShellEntry| $ 69)))) (DEFUN |UPOLYC-;shiftLeft;SNniS;19| (|p| |n| $) - (SPADCALL |p| (SPADCALL (|spadConstant| $ 48) |n| (QREFELT $ 49)) - (QREFELT $ 71))) + (SPADCALL |p| + (SPADCALL (|spadConstant| $ 49) |n| (|getShellEntry| $ 50)) + (|getShellEntry| $ 72))) (DEFUN |UPOLYC-;solveLinearPolynomialEquation;LSupU;20| (|lpp| |pp| $) - (SPADCALL |lpp| |pp| (QREFELT $ 77))) + (SPADCALL |lpp| |pp| (|getShellEntry| $ 78))) (DEFUN |UPOLYC-;factorPolynomial;SupF;21| (|pp| $) - (SPADCALL |pp| (QREFELT $ 83))) + (SPADCALL |pp| (|getShellEntry| $ 84))) (DEFUN |UPOLYC-;factorSquareFreePolynomial;SupF;22| (|pp| $) - (SPADCALL |pp| (QREFELT $ 86))) + (SPADCALL |pp| (|getShellEntry| $ 87))) (DEFUN |UPOLYC-;factor;SF;23| (|p| $) - (PROG (|ansR| #0=#:G1509 |w| #1=#:G1510) + (PROG (|ansR| #0=#:G1516 |w| #1=#:G1517) (RETURN (SEQ (COND - ((ZEROP (SPADCALL |p| (QREFELT $ 11))) + ((ZEROP (SPADCALL |p| (|getShellEntry| $ 11))) (SEQ (LETT |ansR| - (SPADCALL (SPADCALL |p| (QREFELT $ 53)) - (QREFELT $ 89)) + (SPADCALL + (SPADCALL |p| (|getShellEntry| $ 54)) + (|getShellEntry| $ 90)) |UPOLYC-;factor;SF;23|) (EXIT (SPADCALL - (SPADCALL (SPADCALL |ansR| (QREFELT $ 91)) - (QREFELT $ 30)) + (SPADCALL + (SPADCALL |ansR| + (|getShellEntry| $ 92)) + (|getShellEntry| $ 30)) (PROGN (LETT #0# NIL |UPOLYC-;factor;SF;23|) (SEQ (LETT |w| NIL |UPOLYC-;factor;SF;23|) (LETT #1# - (SPADCALL |ansR| (QREFELT $ 95)) + (SPADCALL |ansR| + (|getShellEntry| $ 97)) |UPOLYC-;factor;SF;23|) G190 (COND @@ -3301,7 +3375,7 @@ Note that this code is not included in the generated catdef.spad file. (CONS (VECTOR (QVELT |w| 0) (SPADCALL (QVELT |w| 1) - (QREFELT $ 30)) + (|getShellEntry| $ 30)) (QVELT |w| 2)) #0#) |UPOLYC-;factor;SF;23|))) @@ -3309,25 +3383,25 @@ Note that this code is not included in the generated catdef.spad file. |UPOLYC-;factor;SF;23|) (GO G190) G191 (EXIT (NREVERSE0 #0#)))) - (QREFELT $ 99))))) + (|getShellEntry| $ 101))))) ('T - (SPADCALL (ELT $ 64) - (SPADCALL (SPADCALL |p| (QREFELT $ 56)) - (QREFELT $ 100)) - (QREFELT $ 104)))))))) + (SPADCALL (ELT $ 65) + (SPADCALL (SPADCALL |p| (|getShellEntry| $ 57)) + (|getShellEntry| $ 102)) + (|getShellEntry| $ 106)))))))) (DEFUN |UPOLYC-;vectorise;SNniV;24| (|p| |n| $) - (PROG (|v| |m| |i| #0=#:G1515 #1=#:G1511) + (PROG (|v| |m| |i| #0=#:G1522 #1=#:G1518) (RETURN (SEQ (LETT |m| (SPADCALL (LETT |v| - (SPADCALL |n| (|spadConstant| $ 106) - (QREFELT $ 108)) + (SPADCALL |n| (|spadConstant| $ 108) + (|getShellEntry| $ 110)) |UPOLYC-;vectorise;SNniV;24|) - (QREFELT $ 110)) + (|getShellEntry| $ 111)) |UPOLYC-;vectorise;SNniV;24|) - (SEQ (LETT |i| (SPADCALL |v| (QREFELT $ 110)) + (SEQ (LETT |i| (SPADCALL |v| (|getShellEntry| $ 111)) |UPOLYC-;vectorise;SNniV;24|) (LETT #0# (QVSIZE |v|) |UPOLYC-;vectorise;SNniV;24|) G190 (COND ((> |i| #0#) (GO G191))) @@ -3339,56 +3413,59 @@ Note that this code is not included in the generated catdef.spad file. (|check-subtype| (>= #1# 0) '(|NonNegativeInteger|) #1#)) - (QREFELT $ 111)) - (QREFELT $ 112)))) + (|getShellEntry| $ 112)) + (|getShellEntry| $ 113)))) (LETT |i| (+ |i| 1) |UPOLYC-;vectorise;SNniV;24|) (GO G190) G191 (EXIT NIL)) (EXIT |v|))))) (DEFUN |UPOLYC-;retract;SR;25| (|p| $) (COND - ((SPADCALL |p| (QREFELT $ 9)) (|spadConstant| $ 106)) - ((ZEROP (SPADCALL |p| (QREFELT $ 11))) - (SPADCALL |p| (QREFELT $ 53))) + ((SPADCALL |p| (|getShellEntry| $ 9)) (|spadConstant| $ 108)) + ((ZEROP (SPADCALL |p| (|getShellEntry| $ 11))) + (SPADCALL |p| (|getShellEntry| $ 54))) ('T (|error| "Polynomial is not of degree 0")))) (DEFUN |UPOLYC-;retractIfCan;SU;26| (|p| $) (COND - ((SPADCALL |p| (QREFELT $ 9)) (CONS 0 (|spadConstant| $ 106))) - ((ZEROP (SPADCALL |p| (QREFELT $ 11))) - (CONS 0 (SPADCALL |p| (QREFELT $ 53)))) + ((SPADCALL |p| (|getShellEntry| $ 9)) + (CONS 0 (|spadConstant| $ 108))) + ((ZEROP (SPADCALL |p| (|getShellEntry| $ 11))) + (CONS 0 (SPADCALL |p| (|getShellEntry| $ 54)))) ('T (CONS 1 "failed")))) (DEFUN |UPOLYC-;init;S;27| ($) - (SPADCALL (|spadConstant| $ 117) (QREFELT $ 30))) + (SPADCALL (|spadConstant| $ 118) (|getShellEntry| $ 30))) (DEFUN |UPOLYC-;nextItemInner| (|n| $) - (PROG (|nn| |n1| |n2| #0=#:G1536 |n3|) + (PROG (|nn| |n1| |n2| #0=#:G1543 |n3|) (RETURN (SEQ (COND - ((SPADCALL |n| (QREFELT $ 9)) + ((SPADCALL |n| (|getShellEntry| $ 9)) (CONS 0 (SPADCALL (PROG2 (LETT #0# - (SPADCALL (|spadConstant| $ 106) - (QREFELT $ 120)) + (SPADCALL (|spadConstant| $ 108) + (|getShellEntry| $ 121)) |UPOLYC-;nextItemInner|) (QCDR #0#) - (|check-union| (QEQCAR #0# 0) (QREFELT $ 7) - #0#)) - (QREFELT $ 30)))) - ((ZEROP (SPADCALL |n| (QREFELT $ 11))) + (|check-union| (QEQCAR #0# 0) + (|getShellEntry| $ 7) #0#)) + (|getShellEntry| $ 30)))) + ((ZEROP (SPADCALL |n| (|getShellEntry| $ 11))) (SEQ (LETT |nn| - (SPADCALL (SPADCALL |n| (QREFELT $ 53)) - (QREFELT $ 120)) + (SPADCALL + (SPADCALL |n| (|getShellEntry| $ 54)) + (|getShellEntry| $ 121)) |UPOLYC-;nextItemInner|) (EXIT (COND ((QEQCAR |nn| 1) (CONS 1 "failed")) ('T (CONS 0 - (SPADCALL (QCDR |nn|) (QREFELT $ 30)))))))) + (SPADCALL (QCDR |nn|) + (|getShellEntry| $ 30)))))))) ('T - (SEQ (LETT |n1| (SPADCALL |n| (QREFELT $ 55)) + (SEQ (LETT |n1| (SPADCALL |n| (|getShellEntry| $ 56)) |UPOLYC-;nextItemInner|) (LETT |n2| (|UPOLYC-;nextItemInner| |n1| $) |UPOLYC-;nextItemInner|) @@ -3397,37 +3474,46 @@ Note that this code is not included in the generated catdef.spad file. (CONS 0 (SPADCALL (SPADCALL - (SPADCALL |n| (QREFELT $ 53)) - (SPADCALL |n| (QREFELT $ 11)) - (QREFELT $ 49)) - (QCDR |n2|) (QREFELT $ 65)))) - ((< (+ 1 (SPADCALL |n1| (QREFELT $ 11))) - (SPADCALL |n| (QREFELT $ 11))) + (SPADCALL |n| + (|getShellEntry| $ 54)) + (SPADCALL |n| + (|getShellEntry| $ 11)) + (|getShellEntry| $ 50)) + (QCDR |n2|) + (|getShellEntry| $ 66)))) + ((< (+ 1 + (SPADCALL |n1| + (|getShellEntry| $ 11))) + (SPADCALL |n| (|getShellEntry| $ 11))) (CONS 0 (SPADCALL (SPADCALL - (SPADCALL |n| (QREFELT $ 53)) - (SPADCALL |n| (QREFELT $ 11)) - (QREFELT $ 49)) + (SPADCALL |n| + (|getShellEntry| $ 54)) + (SPADCALL |n| + (|getShellEntry| $ 11)) + (|getShellEntry| $ 50)) (SPADCALL (PROG2 (LETT #0# (SPADCALL - (|spadConstant| $ 117) - (QREFELT $ 120)) + (|spadConstant| $ 118) + (|getShellEntry| $ 121)) |UPOLYC-;nextItemInner|) (QCDR #0#) (|check-union| (QEQCAR #0# 0) - (QREFELT $ 7) #0#)) + (|getShellEntry| $ 7) #0#)) (+ 1 - (SPADCALL |n1| (QREFELT $ 11))) - (QREFELT $ 49)) - (QREFELT $ 65)))) + (SPADCALL |n1| + (|getShellEntry| $ 11))) + (|getShellEntry| $ 50)) + (|getShellEntry| $ 66)))) ('T (SEQ (LETT |n3| (SPADCALL - (SPADCALL |n| (QREFELT $ 53)) - (QREFELT $ 120)) + (SPADCALL |n| + (|getShellEntry| $ 54)) + (|getShellEntry| $ 121)) |UPOLYC-;nextItemInner|) (EXIT (COND ((QEQCAR |n3| 1) @@ -3436,11 +3522,11 @@ Note that this code is not included in the generated catdef.spad file. (CONS 0 (SPADCALL (QCDR |n3|) (SPADCALL |n| - (QREFELT $ 11)) - (QREFELT $ 49))))))))))))))))) + (|getShellEntry| $ 11)) + (|getShellEntry| $ 50))))))))))))))))) (DEFUN |UPOLYC-;nextItem;SU;29| (|n| $) - (PROG (|n1| #0=#:G1549) + (PROG (|n1| #0=#:G1556) (RETURN (SEQ (LETT |n1| (|UPOLYC-;nextItemInner| |n| $) |UPOLYC-;nextItem;SU;29|) @@ -3449,61 +3535,66 @@ Note that this code is not included in the generated catdef.spad file. (CONS 0 (SPADCALL (PROG2 (LETT #0# - (SPADCALL (|spadConstant| $ 117) - (QREFELT $ 120)) + (SPADCALL (|spadConstant| $ 118) + (|getShellEntry| $ 121)) |UPOLYC-;nextItem;SU;29|) (QCDR #0#) (|check-union| (QEQCAR #0# 0) - (QREFELT $ 7) #0#)) - (+ 1 (SPADCALL |n| (QREFELT $ 11))) - (QREFELT $ 49)))) + (|getShellEntry| $ 7) #0#)) + (+ 1 + (SPADCALL |n| (|getShellEntry| $ 11))) + (|getShellEntry| $ 50)))) ('T |n1|))))))) (DEFUN |UPOLYC-;content;SSaosS;30| (|p| |v| $) - (SPADCALL (SPADCALL |p| (QREFELT $ 123)) (QREFELT $ 30))) + (SPADCALL (SPADCALL |p| (|getShellEntry| $ 124)) + (|getShellEntry| $ 30))) (DEFUN |UPOLYC-;primeFactor| (|p| |q| $) - (PROG (#0=#:G1555 |p1|) + (PROG (#0=#:G1562 |p1|) (RETURN (SEQ (LETT |p1| (PROG2 (LETT #0# (SPADCALL |p| (SPADCALL |p| |q| - (QREFELT $ 125)) - (QREFELT $ 126)) + (|getShellEntry| $ 126)) + (|getShellEntry| $ 127)) |UPOLYC-;primeFactor|) (QCDR #0#) - (|check-union| (QEQCAR #0# 0) (QREFELT $ 6) #0#)) + (|check-union| (QEQCAR #0# 0) (|getShellEntry| $ 6) + #0#)) |UPOLYC-;primeFactor|) (EXIT (COND - ((SPADCALL |p1| |p| (QREFELT $ 127)) |p|) + ((SPADCALL |p1| |p| (|getShellEntry| $ 128)) |p|) ('T (|UPOLYC-;primeFactor| |p1| |q| $)))))))) (DEFUN |UPOLYC-;separate;2SR;32| (|p| |q| $) - (PROG (|a| #0=#:G1561) + (PROG (|a| #0=#:G1568) (RETURN (SEQ (LETT |a| (|UPOLYC-;primeFactor| |p| |q| $) |UPOLYC-;separate;2SR;32|) (EXIT (CONS |a| (PROG2 (LETT #0# - (SPADCALL |p| |a| (QREFELT $ 126)) + (SPADCALL |p| |a| + (|getShellEntry| $ 127)) |UPOLYC-;separate;2SR;32|) (QCDR #0#) - (|check-union| (QEQCAR #0# 0) (QREFELT $ 6) - #0#)))))))) + (|check-union| (QEQCAR #0# 0) + (|getShellEntry| $ 6) #0#)))))))) (DEFUN |UPOLYC-;differentiate;SM2S;33| (|x| |deriv| |x'| $) - (PROG (|dg| |lc| #0=#:G1566 |d|) + (PROG (|dg| |lc| #0=#:G1573 |d|) (RETURN - (SEQ (LETT |d| (|spadConstant| $ 60) + (SEQ (LETT |d| (|spadConstant| $ 61) |UPOLYC-;differentiate;SM2S;33|) (SEQ G190 (COND ((NULL (< 0 - (LETT |dg| (SPADCALL |x| (QREFELT $ 11)) + (LETT |dg| + (SPADCALL |x| (|getShellEntry| $ 11)) |UPOLYC-;differentiate;SM2S;33|))) (GO G191))) - (SEQ (LETT |lc| (SPADCALL |x| (QREFELT $ 53)) + (SEQ (LETT |lc| (SPADCALL |x| (|getShellEntry| $ 54)) |UPOLYC-;differentiate;SM2S;33|) (LETT |d| (SPADCALL @@ -3511,34 +3602,36 @@ Note that this code is not included in the generated catdef.spad file. (SPADCALL |x'| (SPADCALL (SPADCALL |dg| |lc| - (QREFELT $ 131)) + (|getShellEntry| $ 132)) (PROG1 (LETT #0# (- |dg| 1) |UPOLYC-;differentiate;SM2S;33|) (|check-subtype| (>= #0# 0) '(|NonNegativeInteger|) #0#)) - (QREFELT $ 49)) - (QREFELT $ 71)) - (QREFELT $ 65)) + (|getShellEntry| $ 50)) + (|getShellEntry| $ 72)) + (|getShellEntry| $ 66)) (SPADCALL (SPADCALL |lc| |deriv|) |dg| - (QREFELT $ 49)) - (QREFELT $ 65)) + (|getShellEntry| $ 50)) + (|getShellEntry| $ 66)) |UPOLYC-;differentiate;SM2S;33|) - (EXIT (LETT |x| (SPADCALL |x| (QREFELT $ 55)) + (EXIT (LETT |x| + (SPADCALL |x| (|getShellEntry| $ 56)) |UPOLYC-;differentiate;SM2S;33|))) NIL (GO G190) G191 (EXIT NIL)) (EXIT (SPADCALL |d| (SPADCALL - (SPADCALL (SPADCALL |x| (QREFELT $ 53)) + (SPADCALL + (SPADCALL |x| (|getShellEntry| $ 54)) |deriv|) - (QREFELT $ 30)) - (QREFELT $ 65))))))) + (|getShellEntry| $ 30)) + (|getShellEntry| $ 66))))))) (DEFUN |UPOLYC-;ncdiff| (|n| |x'| $) - (PROG (#0=#:G1584 |n1|) + (PROG (#0=#:G1591 |n1|) (RETURN (COND - ((ZEROP |n|) (|spadConstant| $ 60)) + ((ZEROP |n|) (|spadConstant| $ 61)) ((ZEROP (LETT |n1| (PROG1 (LETT #0# (- |n| 1) |UPOLYC-;ncdiff|) (|check-subtype| (>= #0# 0) @@ -3548,145 +3641,160 @@ Note that this code is not included in the generated catdef.spad file. ('T (SPADCALL (SPADCALL |x'| - (SPADCALL (|spadConstant| $ 48) |n1| (QREFELT $ 49)) - (QREFELT $ 71)) + (SPADCALL (|spadConstant| $ 49) |n1| + (|getShellEntry| $ 50)) + (|getShellEntry| $ 72)) (SPADCALL - (SPADCALL (|spadConstant| $ 48) 1 (QREFELT $ 49)) - (|UPOLYC-;ncdiff| |n1| |x'| $) (QREFELT $ 71)) - (QREFELT $ 65))))))) + (SPADCALL (|spadConstant| $ 49) 1 + (|getShellEntry| $ 50)) + (|UPOLYC-;ncdiff| |n1| |x'| $) (|getShellEntry| $ 72)) + (|getShellEntry| $ 66))))))) (DEFUN |UPOLYC-;differentiate;SM2S;35| (|x| |deriv| |x'| $) (PROG (|dg| |lc| |d|) (RETURN - (SEQ (LETT |d| (|spadConstant| $ 60) + (SEQ (LETT |d| (|spadConstant| $ 61) |UPOLYC-;differentiate;SM2S;35|) (SEQ G190 (COND ((NULL (< 0 - (LETT |dg| (SPADCALL |x| (QREFELT $ 11)) + (LETT |dg| + (SPADCALL |x| (|getShellEntry| $ 11)) |UPOLYC-;differentiate;SM2S;35|))) (GO G191))) - (SEQ (LETT |lc| (SPADCALL |x| (QREFELT $ 53)) + (SEQ (LETT |lc| (SPADCALL |x| (|getShellEntry| $ 54)) |UPOLYC-;differentiate;SM2S;35|) (LETT |d| (SPADCALL (SPADCALL |d| (SPADCALL (SPADCALL |lc| |deriv|) - |dg| (QREFELT $ 49)) - (QREFELT $ 65)) + |dg| (|getShellEntry| $ 50)) + (|getShellEntry| $ 66)) (SPADCALL |lc| (|UPOLYC-;ncdiff| |dg| |x'| $) - (QREFELT $ 134)) - (QREFELT $ 65)) + (|getShellEntry| $ 135)) + (|getShellEntry| $ 66)) |UPOLYC-;differentiate;SM2S;35|) - (EXIT (LETT |x| (SPADCALL |x| (QREFELT $ 55)) + (EXIT (LETT |x| + (SPADCALL |x| (|getShellEntry| $ 56)) |UPOLYC-;differentiate;SM2S;35|))) NIL (GO G190) G191 (EXIT NIL)) (EXIT (SPADCALL |d| (SPADCALL - (SPADCALL (SPADCALL |x| (QREFELT $ 53)) + (SPADCALL + (SPADCALL |x| (|getShellEntry| $ 54)) |deriv|) - (QREFELT $ 30)) - (QREFELT $ 65))))))) + (|getShellEntry| $ 30)) + (|getShellEntry| $ 66))))))) (DEFUN |UPOLYC-;differentiate;SMS;36| (|x| |deriv| $) - (SPADCALL |x| |deriv| (|spadConstant| $ 47) (QREFELT $ 135))) + (SPADCALL |x| |deriv| (|spadConstant| $ 48) (|getShellEntry| $ 136))) (DEFUN |UPOLYC-;differentiate;2S;37| (|x| $) - (PROG (|dg| #0=#:G1593 |d|) + (PROG (|dg| #0=#:G1600 |d|) (RETURN - (SEQ (LETT |d| (|spadConstant| $ 60) + (SEQ (LETT |d| (|spadConstant| $ 61) |UPOLYC-;differentiate;2S;37|) (SEQ G190 (COND ((NULL (< 0 - (LETT |dg| (SPADCALL |x| (QREFELT $ 11)) + (LETT |dg| + (SPADCALL |x| (|getShellEntry| $ 11)) |UPOLYC-;differentiate;2S;37|))) (GO G191))) (SEQ (LETT |d| (SPADCALL |d| (SPADCALL (SPADCALL |dg| - (SPADCALL |x| (QREFELT $ 53)) - (QREFELT $ 131)) + (SPADCALL |x| + (|getShellEntry| $ 54)) + (|getShellEntry| $ 132)) (PROG1 (LETT #0# (- |dg| 1) |UPOLYC-;differentiate;2S;37|) (|check-subtype| (>= #0# 0) '(|NonNegativeInteger|) #0#)) - (QREFELT $ 49)) - (QREFELT $ 65)) + (|getShellEntry| $ 50)) + (|getShellEntry| $ 66)) |UPOLYC-;differentiate;2S;37|) - (EXIT (LETT |x| (SPADCALL |x| (QREFELT $ 55)) + (EXIT (LETT |x| + (SPADCALL |x| (|getShellEntry| $ 56)) |UPOLYC-;differentiate;2S;37|))) NIL (GO G190) G191 (EXIT NIL)) (EXIT |d|))))) (DEFUN |UPOLYC-;differentiate;SSaosS;38| (|x| |v| $) - (SPADCALL |x| (QREFELT $ 138))) + (SPADCALL |x| (|getShellEntry| $ 139))) (DEFUN |UPOLYC-;elt;3F;39| (|g| |f| $) (SPADCALL - (SPADCALL (SPADCALL |g| (QREFELT $ 141)) |f| (QREFELT $ 143)) - (SPADCALL (SPADCALL |g| (QREFELT $ 144)) |f| (QREFELT $ 143)) - (QREFELT $ 145))) + (SPADCALL (SPADCALL |g| (|getShellEntry| $ 142)) |f| + (|getShellEntry| $ 144)) + (SPADCALL (SPADCALL |g| (|getShellEntry| $ 145)) |f| + (|getShellEntry| $ 144)) + (|getShellEntry| $ 146))) (DEFUN |UPOLYC-;pseudoQuotient;3S;40| (|p| |q| $) - (PROG (|n| #0=#:G1639 #1=#:G1641) + (PROG (|n| #0=#:G1646 #1=#:G1648) (RETURN (SEQ (LETT |n| - (+ (- (SPADCALL |p| (QREFELT $ 11)) - (SPADCALL |q| (QREFELT $ 11))) + (+ (- (SPADCALL |p| (|getShellEntry| $ 11)) + (SPADCALL |q| (|getShellEntry| $ 11))) 1) |UPOLYC-;pseudoQuotient;3S;40|) (EXIT (COND - ((< |n| 1) (|spadConstant| $ 60)) + ((< |n| 1) (|spadConstant| $ 61)) ('T (PROG2 (LETT #1# (SPADCALL (SPADCALL (SPADCALL (SPADCALL - (SPADCALL |q| (QREFELT $ 53)) + (SPADCALL |q| + (|getShellEntry| $ 54)) (PROG1 (LETT #0# |n| |UPOLYC-;pseudoQuotient;3S;40|) (|check-subtype| (>= #0# 0) '(|NonNegativeInteger|) #0#)) - (QREFELT $ 147)) - |p| (QREFELT $ 134)) + (|getShellEntry| $ 148)) + |p| (|getShellEntry| $ 135)) (SPADCALL |p| |q| - (QREFELT $ 148)) - (QREFELT $ 149)) - |q| (QREFELT $ 126)) + (|getShellEntry| $ 149)) + (|getShellEntry| $ 150)) + |q| (|getShellEntry| $ 127)) |UPOLYC-;pseudoQuotient;3S;40|) (QCDR #1#) - (|check-union| (QEQCAR #1# 0) (QREFELT $ 6) #1#))))))))) + (|check-union| (QEQCAR #1# 0) + (|getShellEntry| $ 6) #1#))))))))) (DEFUN |UPOLYC-;pseudoDivide;2SR;41| (|p| |q| $) - (PROG (|n| |prem| #0=#:G1647 |lc| #1=#:G1649) + (PROG (|n| |prem| #0=#:G1654 |lc| #1=#:G1656) (RETURN (SEQ (LETT |n| - (+ (- (SPADCALL |p| (QREFELT $ 11)) - (SPADCALL |q| (QREFELT $ 11))) + (+ (- (SPADCALL |p| (|getShellEntry| $ 11)) + (SPADCALL |q| (|getShellEntry| $ 11))) 1) |UPOLYC-;pseudoDivide;2SR;41|) (EXIT (COND ((< |n| 1) - (VECTOR (|spadConstant| $ 48) (|spadConstant| $ 60) + (VECTOR (|spadConstant| $ 49) (|spadConstant| $ 61) |p|)) ('T (SEQ (LETT |prem| - (SPADCALL |p| |q| (QREFELT $ 148)) + (SPADCALL |p| |q| + (|getShellEntry| $ 149)) |UPOLYC-;pseudoDivide;2SR;41|) (LETT |lc| - (SPADCALL (SPADCALL |q| (QREFELT $ 53)) + (SPADCALL + (SPADCALL |q| + (|getShellEntry| $ 54)) (PROG1 (LETT #0# |n| |UPOLYC-;pseudoDivide;2SR;41|) (|check-subtype| (>= #0# 0) '(|NonNegativeInteger|) #0#)) - (QREFELT $ 147)) + (|getShellEntry| $ 148)) |UPOLYC-;pseudoDivide;2SR;41|) (EXIT (VECTOR |lc| (PROG2 @@ -3694,52 +3802,56 @@ Note that this code is not included in the generated catdef.spad file. (SPADCALL (SPADCALL (SPADCALL |lc| |p| - (QREFELT $ 134)) - |prem| (QREFELT $ 149)) - |q| (QREFELT $ 126)) + (|getShellEntry| $ 135)) + |prem| + (|getShellEntry| $ 150)) + |q| (|getShellEntry| $ 127)) |UPOLYC-;pseudoDivide;2SR;41|) (QCDR #1#) (|check-union| (QEQCAR #1# 0) - (QREFELT $ 6) #1#)) + (|getShellEntry| $ 6) #1#)) |prem|)))))))))) (DEFUN |UPOLYC-;composite;FSU;42| (|f| |q| $) (PROG (|n| |d|) (RETURN (SEQ (LETT |n| - (SPADCALL (SPADCALL |f| (QREFELT $ 141)) |q| - (QREFELT $ 153)) + (SPADCALL (SPADCALL |f| (|getShellEntry| $ 142)) |q| + (|getShellEntry| $ 154)) |UPOLYC-;composite;FSU;42|) (EXIT (COND ((QEQCAR |n| 1) (CONS 1 "failed")) ('T (SEQ (LETT |d| - (SPADCALL (SPADCALL |f| (QREFELT $ 144)) - |q| (QREFELT $ 153)) + (SPADCALL + (SPADCALL |f| + (|getShellEntry| $ 145)) + |q| (|getShellEntry| $ 154)) |UPOLYC-;composite;FSU;42|) (EXIT (COND ((QEQCAR |d| 1) (CONS 1 "failed")) ('T (CONS 0 (SPADCALL (QCDR |n|) (QCDR |d|) - (QREFELT $ 154)))))))))))))) + (|getShellEntry| $ 155)))))))))))))) (DEFUN |UPOLYC-;composite;2SU;43| (|p| |q| $) - (PROG (|cqr| |v| |u| |w| #0=#:G1675) + (PROG (|cqr| |v| |u| |w| #0=#:G1682) (RETURN (SEQ (COND - ((SPADCALL |p| (QREFELT $ 157)) (CONS 0 |p|)) + ((SPADCALL |p| (|getShellEntry| $ 158)) (CONS 0 |p|)) ('T (SEQ (EXIT (SEQ (LETT |cqr| - (SPADCALL |p| |q| (QREFELT $ 158)) + (SPADCALL |p| |q| + (|getShellEntry| $ 159)) |UPOLYC-;composite;2SU;43|) (COND ((SPADCALL (QVELT |cqr| 2) - (QREFELT $ 157)) + (|getShellEntry| $ 158)) (SEQ (LETT |v| (SPADCALL (QVELT |cqr| 2) (QVELT |cqr| 0) - (QREFELT $ 159)) + (|getShellEntry| $ 160)) |UPOLYC-;composite;2SU;43|) (EXIT (COND @@ -3747,7 +3859,8 @@ Note that this code is not included in the generated catdef.spad file. (SEQ (LETT |u| (SPADCALL (QVELT |cqr| 1) - |q| (QREFELT $ 153)) + |q| + (|getShellEntry| $ 154)) |UPOLYC-;composite;2SU;43|) (EXIT (COND @@ -3756,7 +3869,8 @@ Note that this code is not included in the generated catdef.spad file. (LETT |w| (SPADCALL (QCDR |u|) (QVELT |cqr| 0) - (QREFELT $ 159)) + (|getShellEntry| $ + 160)) |UPOLYC-;composite;2SU;43|) (EXIT (COND @@ -3769,42 +3883,46 @@ Note that this code is not included in the generated catdef.spad file. (SPADCALL (SPADCALL (|spadConstant| - $ 48) + $ 49) 1 - (QREFELT $ - 49)) + (|getShellEntry| + $ 50)) (QCDR |w|) - (QREFELT $ - 71)) - (QREFELT $ 65))) + (|getShellEntry| + $ 72)) + (|getShellEntry| + $ 66))) |UPOLYC-;composite;2SU;43|) (GO #0#)))))))))))))))) (EXIT (CONS 1 "failed")))) #0# (EXIT #0#)))))))) (DEFUN |UPOLYC-;elt;S2F;44| (|p| |f| $) - (PROG (|n| #0=#:G1681 |ans|) + (PROG (|n| #0=#:G1688 |ans|) (RETURN (SEQ (COND - ((SPADCALL |p| (QREFELT $ 9)) (|spadConstant| $ 161)) + ((SPADCALL |p| (|getShellEntry| $ 9)) + (|spadConstant| $ 162)) ('T (SEQ (LETT |ans| (SPADCALL - (SPADCALL (SPADCALL |p| (QREFELT $ 53)) - (QREFELT $ 30)) - (QREFELT $ 162)) + (SPADCALL + (SPADCALL |p| (|getShellEntry| $ 54)) + (|getShellEntry| $ 30)) + (|getShellEntry| $ 163)) |UPOLYC-;elt;S2F;44|) - (LETT |n| (SPADCALL |p| (QREFELT $ 11)) + (LETT |n| (SPADCALL |p| (|getShellEntry| $ 11)) |UPOLYC-;elt;S2F;44|) (SEQ G190 (COND ((NULL (SPADCALL (SPADCALL (LETT |p| - (SPADCALL |p| (QREFELT $ 55)) + (SPADCALL |p| + (|getShellEntry| $ 56)) |UPOLYC-;elt;S2F;44|) - (QREFELT $ 9)) - (QREFELT $ 163))) + (|getShellEntry| $ 9)) + (|getShellEntry| $ 164))) (GO G191))) (SEQ (EXIT (LETT |ans| (SPADCALL @@ -3815,35 +3933,37 @@ Note that this code is not included in the generated catdef.spad file. (- |n| (LETT |n| (SPADCALL |p| - (QREFELT $ 11)) + (|getShellEntry| $ 11)) |UPOLYC-;elt;S2F;44|)) |UPOLYC-;elt;S2F;44|) (|check-subtype| (>= #0# 0) '(|NonNegativeInteger|) #0#)) - (QREFELT $ 164)) - (QREFELT $ 165)) + (|getShellEntry| $ 165)) + (|getShellEntry| $ 166)) (SPADCALL (SPADCALL - (SPADCALL |p| (QREFELT $ 53)) - (QREFELT $ 30)) - (QREFELT $ 162)) - (QREFELT $ 166)) + (SPADCALL |p| + (|getShellEntry| $ 54)) + (|getShellEntry| $ 30)) + (|getShellEntry| $ 163)) + (|getShellEntry| $ 167)) |UPOLYC-;elt;S2F;44|))) NIL (GO G190) G191 (EXIT NIL)) (EXIT (COND ((ZEROP |n|) |ans|) ('T (SPADCALL |ans| - (SPADCALL |f| |n| (QREFELT $ 167)) - (QREFELT $ 165)))))))))))) + (SPADCALL |f| |n| + (|getShellEntry| $ 168)) + (|getShellEntry| $ 166)))))))))))) (DEFUN |UPOLYC-;order;2SNni;45| (|p| |q| $) - (PROG (|u| #0=#:G1695 |ans|) + (PROG (|u| #0=#:G1702 |ans|) (RETURN (SEQ (EXIT (COND - ((SPADCALL |p| (QREFELT $ 9)) + ((SPADCALL |p| (|getShellEntry| $ 9)) (|error| "order: arguments must be nonzero")) - ((< (SPADCALL |q| (QREFELT $ 11)) 1) + ((< (SPADCALL |q| (|getShellEntry| $ 11)) 1) (|error| "order: place must be non-trivial")) ('T (SEQ (LETT |ans| 0 |UPOLYC-;order;2SNni;45|) @@ -3851,7 +3971,7 @@ Note that this code is not included in the generated catdef.spad file. (SEQ (LETT |u| (SPADCALL |p| |q| - (QREFELT $ 126)) + (|getShellEntry| $ 127)) |UPOLYC-;order;2SNni;45|) (EXIT (COND @@ -3871,91 +3991,108 @@ Note that this code is not included in the generated catdef.spad file. #0# (EXIT #0#))))) (DEFUN |UPOLYC-;squareFree;SF;46| (|p| $) - (SPADCALL |p| (QREFELT $ 171))) + (SPADCALL |p| (|getShellEntry| $ 172))) (DEFUN |UPOLYC-;squareFreePart;2S;47| (|p| $) - (SPADCALL |p| (QREFELT $ 173))) + (SPADCALL |p| (|getShellEntry| $ 174))) (DEFUN |UPOLYC-;gcdPolynomial;3Sup;48| (|pp| |qq| $) (COND - ((SPADCALL |pp| (QREFELT $ 175)) (SPADCALL |qq| (QREFELT $ 176))) - ((SPADCALL |qq| (QREFELT $ 175)) (SPADCALL |pp| (QREFELT $ 176))) + ((SPADCALL |pp| (|getShellEntry| $ 176)) + (SPADCALL |qq| (|getShellEntry| $ 177))) + ((SPADCALL |qq| (|getShellEntry| $ 176)) + (SPADCALL |pp| (|getShellEntry| $ 177))) ('T (SPADCALL (SPADCALL - (SPADCALL (SPADCALL |pp| (QREFELT $ 177)) - (SPADCALL |qq| (QREFELT $ 177)) (QREFELT $ 125)) + (SPADCALL (SPADCALL |pp| (|getShellEntry| $ 178)) + (SPADCALL |qq| (|getShellEntry| $ 178)) + (|getShellEntry| $ 126)) (SPADCALL - (SPADCALL (SPADCALL |pp| (QREFELT $ 178)) - (SPADCALL |qq| (QREFELT $ 178)) (QREFELT $ 179)) - (QREFELT $ 178)) - (QREFELT $ 180)) - (QREFELT $ 176))))) + (SPADCALL (SPADCALL |pp| (|getShellEntry| $ 179)) + (SPADCALL |qq| (|getShellEntry| $ 179)) + (|getShellEntry| $ 180)) + (|getShellEntry| $ 179)) + (|getShellEntry| $ 181)) + (|getShellEntry| $ 177))))) (DEFUN |UPOLYC-;squareFreePolynomial;SupF;49| (|pp| $) - (SPADCALL |pp| (QREFELT $ 183))) + (SPADCALL |pp| (|getShellEntry| $ 184))) (DEFUN |UPOLYC-;elt;F2R;50| (|f| |r| $) - (SPADCALL (SPADCALL (SPADCALL |f| (QREFELT $ 141)) |r| - (QREFELT $ 29)) - (SPADCALL (SPADCALL |f| (QREFELT $ 144)) |r| - (QREFELT $ 29)) - (QREFELT $ 185))) + (SPADCALL + (SPADCALL (SPADCALL |f| (|getShellEntry| $ 142)) |r| + (|getShellEntry| $ 29)) + (SPADCALL (SPADCALL |f| (|getShellEntry| $ 145)) |r| + (|getShellEntry| $ 29)) + (|getShellEntry| $ 186))) (DEFUN |UPOLYC-;euclideanSize;SNni;51| (|x| $) (COND - ((SPADCALL |x| (QREFELT $ 9)) + ((SPADCALL |x| (|getShellEntry| $ 9)) (|error| "euclideanSize called on 0 in Univariate Polynomial")) - ('T (SPADCALL |x| (QREFELT $ 11))))) + ('T (SPADCALL |x| (|getShellEntry| $ 11))))) (DEFUN |UPOLYC-;divide;2SR;52| (|x| |y| $) - (PROG (|lc| |f| #0=#:G1707 |n| |quot|) + (PROG (|lc| |f| #0=#:G1714 |n| |quot|) (RETURN (SEQ (COND - ((SPADCALL |y| (QREFELT $ 9)) + ((SPADCALL |y| (|getShellEntry| $ 9)) (|error| "division by 0 in Univariate Polynomials")) ('T - (SEQ (LETT |quot| (|spadConstant| $ 60) + (SEQ (LETT |quot| (|spadConstant| $ 61) |UPOLYC-;divide;2SR;52|) (LETT |lc| - (SPADCALL (SPADCALL |y| (QREFELT $ 53)) - (QREFELT $ 188)) + (SPADCALL + (SPADCALL |y| (|getShellEntry| $ 54)) + (|getShellEntry| $ 189)) |UPOLYC-;divide;2SR;52|) (SEQ G190 (COND ((NULL (COND - ((SPADCALL |x| (QREFELT $ 9)) 'NIL) + ((SPADCALL |x| + (|getShellEntry| $ 9)) + 'NIL) ('T (SPADCALL - (< (SPADCALL |x| (QREFELT $ 11)) - (SPADCALL |y| (QREFELT $ 11))) - (QREFELT $ 163))))) + (< + (SPADCALL |x| + (|getShellEntry| $ 11)) + (SPADCALL |y| + (|getShellEntry| $ 11))) + (|getShellEntry| $ 164))))) (GO G191))) (SEQ (LETT |f| (SPADCALL |lc| - (SPADCALL |x| (QREFELT $ 53)) - (QREFELT $ 189)) + (SPADCALL |x| + (|getShellEntry| $ 54)) + (|getShellEntry| $ 190)) |UPOLYC-;divide;2SR;52|) (LETT |n| (PROG1 (LETT #0# - (- (SPADCALL |x| (QREFELT $ 11)) - (SPADCALL |y| (QREFELT $ 11))) + (- + (SPADCALL |x| + (|getShellEntry| $ 11)) + (SPADCALL |y| + (|getShellEntry| $ 11))) |UPOLYC-;divide;2SR;52|) (|check-subtype| (>= #0# 0) '(|NonNegativeInteger|) #0#)) |UPOLYC-;divide;2SR;52|) (LETT |quot| (SPADCALL |quot| - (SPADCALL |f| |n| (QREFELT $ 49)) - (QREFELT $ 65)) + (SPADCALL |f| |n| + (|getShellEntry| $ 50)) + (|getShellEntry| $ 66)) |UPOLYC-;divide;2SR;52|) (EXIT (LETT |x| (SPADCALL |x| (SPADCALL - (SPADCALL |f| |n| (QREFELT $ 49)) - |y| (QREFELT $ 71)) - (QREFELT $ 149)) + (SPADCALL |f| |n| + (|getShellEntry| $ 50)) + |y| (|getShellEntry| $ 72)) + (|getShellEntry| $ 150)) |UPOLYC-;divide;2SR;52|))) NIL (GO G190) G191 (EXIT NIL)) (EXIT (CONS |quot| |x|))))))))) @@ -3963,29 +4100,31 @@ Note that this code is not included in the generated catdef.spad file. (DEFUN |UPOLYC-;integrate;2S;53| (|p| $) (PROG (|l| |d| |ans|) (RETURN - (SEQ (LETT |ans| (|spadConstant| $ 60) |UPOLYC-;integrate;2S;53|) + (SEQ (LETT |ans| (|spadConstant| $ 61) |UPOLYC-;integrate;2S;53|) (SEQ G190 (COND - ((NULL (SPADCALL - (SPADCALL |p| (|spadConstant| $ 60) - (QREFELT $ 127)) - (QREFELT $ 163))) + ((NULL (SPADCALL |p| (|spadConstant| $ 61) + (|getShellEntry| $ 192))) (GO G191))) - (SEQ (LETT |l| (SPADCALL |p| (QREFELT $ 53)) + (SEQ (LETT |l| (SPADCALL |p| (|getShellEntry| $ 54)) |UPOLYC-;integrate;2S;53|) - (LETT |d| (+ 1 (SPADCALL |p| (QREFELT $ 11))) + (LETT |d| + (+ 1 (SPADCALL |p| (|getShellEntry| $ 11))) |UPOLYC-;integrate;2S;53|) (LETT |ans| (SPADCALL |ans| (SPADCALL (SPADCALL - (SPADCALL |d| (QREFELT $ 192)) - (QREFELT $ 193)) - (SPADCALL |l| |d| (QREFELT $ 49)) - (QREFELT $ 194)) - (QREFELT $ 65)) + (SPADCALL |d| + (|getShellEntry| $ 194)) + (|getShellEntry| $ 195)) + (SPADCALL |l| |d| + (|getShellEntry| $ 50)) + (|getShellEntry| $ 196)) + (|getShellEntry| $ 66)) |UPOLYC-;integrate;2S;53|) - (EXIT (LETT |p| (SPADCALL |p| (QREFELT $ 55)) + (EXIT (LETT |p| + (SPADCALL |p| (|getShellEntry| $ 56)) |UPOLYC-;integrate;2S;53|))) NIL (GO G190) G191 (EXIT NIL)) (EXIT |ans|))))) @@ -3999,9 +4138,9 @@ Note that this code is not included in the generated catdef.spad file. (LETT |dv$2| (|devaluate| |#2|) . #0#) (LETT |dv$| (LIST '|UnivariatePolynomialCategory&| |dv$1| |dv$2|) . #0#) - (LETT $ (GETREFV 202) . #0#) - (QSETREFV $ 0 |dv$|) - (QSETREFV $ 3 + (LETT $ (|newShell| 203) . #0#) + (|setShellEntry| $ 0 |dv$|) + (|setShellEntry| $ 3 (LETT |pv$| (|buildPredVector| 0 0 (LIST (|HasCategory| |#2| @@ -4012,113 +4151,113 @@ Note that this code is not included in the generated catdef.spad file. (|HasCategory| |#2| '(|CommutativeRing|)) (|HasCategory| |#2| '(|StepThrough|)))) . #0#)) (|stuffDomainSlots| $) - (QSETREFV $ 6 |#1|) - (QSETREFV $ 7 |#2|) + (|setShellEntry| $ 6 |#1|) + (|setShellEntry| $ 7 |#2|) (COND ((|HasCategory| |#2| '(|PolynomialFactorizationExplicit|)) (PROGN - (QSETREFV $ 81 + (|setShellEntry| $ 82 (CONS (|dispatchFunction| |UPOLYC-;solveLinearPolynomialEquation;LSupU;20|) $)) - (QSETREFV $ 85 + (|setShellEntry| $ 86 (CONS (|dispatchFunction| |UPOLYC-;factorPolynomial;SupF;21|) $)) - (QSETREFV $ 87 + (|setShellEntry| $ 88 (CONS (|dispatchFunction| |UPOLYC-;factorSquareFreePolynomial;SupF;22|) $)) - (QSETREFV $ 105 + (|setShellEntry| $ 107 (CONS (|dispatchFunction| |UPOLYC-;factor;SF;23|) $))))) (COND ((|testBitVector| |pv$| 6) (PROGN - (QSETREFV $ 118 + (|setShellEntry| $ 119 (CONS (|dispatchFunction| |UPOLYC-;init;S;27|) $)) NIL - (QSETREFV $ 122 + (|setShellEntry| $ 123 (CONS (|dispatchFunction| |UPOLYC-;nextItem;SU;29|) $))))) (COND ((|testBitVector| |pv$| 3) (PROGN - (QSETREFV $ 124 + (|setShellEntry| $ 125 (CONS (|dispatchFunction| |UPOLYC-;content;SSaosS;30|) $)) NIL - (QSETREFV $ 129 + (|setShellEntry| $ 130 (CONS (|dispatchFunction| |UPOLYC-;separate;2SR;32|) $))))) (COND ((|testBitVector| |pv$| 5) - (QSETREFV $ 133 + (|setShellEntry| $ 134 (CONS (|dispatchFunction| |UPOLYC-;differentiate;SM2S;33|) $))) ('T (PROGN - (QSETREFV $ 133 + (|setShellEntry| $ 134 (CONS (|dispatchFunction| |UPOLYC-;differentiate;SM2S;35|) $))))) (COND ((|testBitVector| |pv$| 4) (PROGN - (QSETREFV $ 146 + (|setShellEntry| $ 147 (CONS (|dispatchFunction| |UPOLYC-;elt;3F;39|) $)) - (QSETREFV $ 150 + (|setShellEntry| $ 151 (CONS (|dispatchFunction| |UPOLYC-;pseudoQuotient;3S;40|) $)) - (QSETREFV $ 152 + (|setShellEntry| $ 153 (CONS (|dispatchFunction| |UPOLYC-;pseudoDivide;2SR;41|) $)) - (QSETREFV $ 156 + (|setShellEntry| $ 157 (CONS (|dispatchFunction| |UPOLYC-;composite;FSU;42|) $)) - (QSETREFV $ 160 + (|setShellEntry| $ 161 (CONS (|dispatchFunction| |UPOLYC-;composite;2SU;43|) $)) - (QSETREFV $ 168 + (|setShellEntry| $ 169 (CONS (|dispatchFunction| |UPOLYC-;elt;S2F;44|) $)) - (QSETREFV $ 169 + (|setShellEntry| $ 170 (CONS (|dispatchFunction| |UPOLYC-;order;2SNni;45|) $))))) (COND ((|testBitVector| |pv$| 3) (PROGN - (QSETREFV $ 172 + (|setShellEntry| $ 173 (CONS (|dispatchFunction| |UPOLYC-;squareFree;SF;46|) $)) - (QSETREFV $ 174 + (|setShellEntry| $ 175 (CONS (|dispatchFunction| |UPOLYC-;squareFreePart;2S;47|) $))))) (COND ((|HasCategory| |#2| '(|PolynomialFactorizationExplicit|)) (PROGN - (QSETREFV $ 181 + (|setShellEntry| $ 182 (CONS (|dispatchFunction| |UPOLYC-;gcdPolynomial;3Sup;48|) $)) - (QSETREFV $ 184 + (|setShellEntry| $ 185 (CONS (|dispatchFunction| |UPOLYC-;squareFreePolynomial;SupF;49|) $))))) (COND ((|testBitVector| |pv$| 2) (PROGN - (QSETREFV $ 186 + (|setShellEntry| $ 187 (CONS (|dispatchFunction| |UPOLYC-;elt;F2R;50|) $)) - (QSETREFV $ 187 + (|setShellEntry| $ 188 (CONS (|dispatchFunction| |UPOLYC-;euclideanSize;SNni;51|) $)) - (QSETREFV $ 190 + (|setShellEntry| $ 191 (CONS (|dispatchFunction| |UPOLYC-;divide;2SR;52|) $))))) (COND ((|testBitVector| |pv$| 1) - (QSETREFV $ 195 + (|setShellEntry| $ 197 (CONS (|dispatchFunction| |UPOLYC-;integrate;2S;53|) $)))) $)))) @@ -4135,7 +4274,7 @@ Note that this code is not included in the generated catdef.spad file. |UPOLYC-;eval;SLLS;7| (39 . |elt|) (45 . |coerce|) |UPOLYC-;eval;SSaosRS;8| (|Equation| 6) (50 . |lhs|) (|Union| 12 '"failed") (55 . |mainVariable|) (60 . |rhs|) - (|List| 198) |UPOLYC-;eval;SLS;9| + (|Equation| $) (|List| 37) |UPOLYC-;eval;SLS;9| |UPOLYC-;mainVariable;SU;10| (65 . |minimumDegree|) |UPOLYC-;minimumDegree;SSaosNni;11| |UPOLYC-;minimumDegree;SLL;12| (70 . +) (|Mapping| 10 10) @@ -4151,27 +4290,28 @@ Note that this code is not included in the generated catdef.spad file. (|Record| (|:| |quotient| $) (|:| |remainder| $)) (162 . |monicDivide|) |UPOLYC-;karatsubaDivide;SNniR;17| |UPOLYC-;shiftRight;SNniS;18| (168 . *) - |UPOLYC-;shiftLeft;SNniS;19| (|Union| 74 '"failed") - (|List| 75) (|SparseUnivariatePolynomial| 6) + |UPOLYC-;shiftLeft;SNniS;19| + (|SparseUnivariatePolynomial| 6) (|List| 74) + (|Union| 75 '"failed") (|PolynomialFactorizationByRecursionUnivariate| 7 6) (174 . |solveLinearPolynomialEquationByRecursion|) - (|Union| 79 '"failed") (|List| 80) - (|SparseUnivariatePolynomial| $) - (180 . |solveLinearPolynomialEquation|) (|Factored| 75) - (186 . |factorByRecursion|) (|Factored| 80) + (|SparseUnivariatePolynomial| $) (|List| 79) + (|Union| 80 '"failed") + (180 . |solveLinearPolynomialEquation|) (|Factored| 74) + (186 . |factorByRecursion|) (|Factored| 79) (191 . |factorPolynomial|) (196 . |factorSquareFreeByRecursion|) (201 . |factorSquareFreePolynomial|) (|Factored| $) (206 . |factor|) (|Factored| 7) (211 . |unit|) - (|Union| '"nil" '"sqfr" '"irred" '"prime") - (|Record| (|:| |flg| 92) (|:| |fctr| 7) (|:| |xpnt| 109)) - (|List| 93) (216 . |factorList|) - (|Record| (|:| |flg| 92) (|:| |fctr| 6) (|:| |xpnt| 109)) - (|List| 96) (|Factored| 6) (221 . |makeFR|) - (227 . |factorPolynomial|) (|Mapping| 6 51) - (|Factored| 51) (|FactoredFunctions2| 51 6) (232 . |map|) + (|Union| '"nil" '"sqfr" '"irred" '"prime") (|Integer|) + (|Record| (|:| |flg| 93) (|:| |fctr| 7) (|:| |xpnt| 94)) + (|List| 95) (216 . |factorList|) + (|Record| (|:| |flg| 93) (|:| |fctr| 6) (|:| |xpnt| 94)) + (|List| 98) (|Factored| 6) (221 . |makeFR|) + (227 . |factorPolynomial|) (|Mapping| 6 52) + (|Factored| 52) (|FactoredFunctions2| 52 6) (232 . |map|) (238 . |factor|) (243 . |Zero|) (|Vector| 7) (247 . |new|) - (|Integer|) (253 . |minIndex|) (258 . |coefficient|) + (253 . |minIndex|) (258 . |coefficient|) (264 . |qsetelt!|) |UPOLYC-;vectorise;SNniV;24| |UPOLYC-;retract;SR;25| (|Union| 7 '"failed") |UPOLYC-;retractIfCan;SU;26| (271 . |init|) (275 . |init|) @@ -4191,7 +4331,7 @@ Note that this code is not included in the generated catdef.spad file. (|Record| (|:| |coef| 7) (|:| |quotient| $) (|:| |remainder| $)) (415 . |pseudoDivide|) (421 . |composite|) (427 . /) - (|Union| 142 '"failed") (433 . |composite|) + (|Union| 143 '"failed") (433 . |composite|) (439 . |ground?|) (444 . |pseudoDivide|) (450 . |exquo|) (456 . |composite|) (462 . |Zero|) (466 . |coerce|) (471 . |not|) (476 . **) (482 . *) (488 . +) (494 . **) @@ -4202,99 +4342,101 @@ Note that this code is not included in the generated catdef.spad file. (532 . |zero?|) (537 . |unitCanonical|) (542 . |content|) (547 . |primitivePart|) (552 . |subResultantGcd|) (558 . *) (564 . |gcdPolynomial|) - (|UnivariatePolynomialSquareFree| 6 75) + (|UnivariatePolynomialSquareFree| 6 74) (570 . |squareFree|) (575 . |squareFreePolynomial|) (580 . /) (586 . |elt|) (592 . |euclideanSize|) - (597 . |inv|) (602 . *) (608 . |divide|) (|Fraction| 109) - (614 . |coerce|) (619 . |inv|) (624 . *) - (630 . |integrate|) (|Symbol|) (|List| 196) (|Equation| $) - (|Union| 109 '"failed") (|Union| 191 '"failed") + (597 . |inv|) (602 . *) (608 . |divide|) (614 . ~=) + (|Fraction| 94) (620 . |coerce|) (625 . |inv|) (630 . *) + (636 . |integrate|) (|Symbol|) (|List| 198) + (|Union| 94 '"failed") (|Union| 193 '"failed") (|OutputForm|)) - '#(|vectorise| 635 |variables| 641 |unmakeSUP| 646 - |totalDegree| 651 |squareFreePolynomial| 657 - |squareFreePart| 662 |squareFree| 667 - |solveLinearPolynomialEquation| 672 |shiftRight| 678 - |shiftLeft| 684 |separate| 690 |retractIfCan| 696 - |retract| 701 |pseudoQuotient| 706 |pseudoDivide| 712 - |order| 718 |nextItem| 724 |monomial| 729 |minimumDegree| - 736 |makeSUP| 748 |mainVariable| 753 |karatsubaDivide| 758 - |integrate| 764 |init| 769 |gcdPolynomial| 773 - |factorSquareFreePolynomial| 779 |factorPolynomial| 784 - |factor| 789 |eval| 794 |euclideanSize| 828 |elt| 833 - |divide| 851 |differentiate| 857 |degree| 881 |content| - 893 |composite| 899 |coerce| 911) + '#(|vectorise| 641 |variables| 647 |unmakeSUP| 652 + |totalDegree| 657 |squareFreePolynomial| 663 + |squareFreePart| 668 |squareFree| 673 + |solveLinearPolynomialEquation| 678 |shiftRight| 684 + |shiftLeft| 690 |separate| 696 |retractIfCan| 702 + |retract| 707 |pseudoQuotient| 712 |pseudoDivide| 718 + |order| 724 |nextItem| 730 |monomial| 735 |minimumDegree| + 742 |makeSUP| 754 |mainVariable| 759 |karatsubaDivide| 764 + |integrate| 770 |init| 775 |gcdPolynomial| 779 + |factorSquareFreePolynomial| 785 |factorPolynomial| 790 + |factor| 795 |eval| 800 |euclideanSize| 834 |elt| 839 + |divide| 857 |differentiate| 863 |degree| 887 |content| + 899 |composite| 905 |coerce| 917) 'NIL (CONS (|makeByteWordVec2| 1 'NIL) (CONS '#() (CONS '#() - (|makeByteWordVec2| 195 + (|makeByteWordVec2| 197 '(1 6 8 0 9 1 6 10 0 11 0 12 0 13 1 6 10 0 17 3 6 0 0 12 0 21 2 6 0 0 0 24 3 6 0 0 12 7 26 2 6 7 0 7 29 1 6 0 7 30 1 32 6 0 33 1 6 34 0 35 1 32 6 0 - 36 1 6 10 0 40 2 10 0 0 0 43 2 6 0 44 - 0 45 0 6 0 47 0 7 0 48 2 6 0 7 10 49 - 0 51 0 52 1 6 7 0 53 2 51 0 7 10 54 1 - 6 0 0 55 1 6 51 0 56 2 51 0 0 0 57 1 - 51 8 0 59 0 6 0 60 1 51 7 0 61 1 51 - 10 0 62 1 51 0 0 63 1 6 0 51 64 2 6 0 - 0 0 65 2 6 67 0 0 68 2 6 0 0 0 71 2 - 76 73 74 75 77 2 0 78 79 80 81 1 76 - 82 75 83 1 0 84 80 85 1 76 82 75 86 1 - 0 84 80 87 1 7 88 0 89 1 90 7 0 91 1 - 90 94 0 95 2 98 0 6 97 99 1 7 84 80 - 100 2 103 98 101 102 104 1 0 88 0 105 - 0 7 0 106 2 107 0 10 7 108 1 107 109 - 0 110 2 6 7 0 10 111 3 107 7 0 109 7 - 112 0 7 0 117 0 0 0 118 1 7 119 0 120 - 0 75 0 121 1 0 119 0 122 1 6 7 0 123 - 2 0 0 0 12 124 2 6 0 0 0 125 2 6 119 - 0 0 126 2 6 8 0 0 127 2 0 128 0 0 129 - 0 75 0 130 2 7 0 10 0 131 3 0 0 0 132 - 0 133 2 6 0 7 0 134 3 6 0 0 132 0 135 - 1 6 0 0 138 1 140 6 0 141 2 6 142 0 - 142 143 1 140 6 0 144 2 140 0 0 0 145 - 2 0 142 142 142 146 2 7 0 0 10 147 2 - 6 0 0 0 148 2 6 0 0 0 149 2 0 0 0 0 - 150 2 0 151 0 0 152 2 6 119 0 0 153 2 - 140 0 6 6 154 2 0 155 142 0 156 1 6 8 - 0 157 2 6 151 0 0 158 2 6 119 0 7 159 - 2 0 119 0 0 160 0 140 0 161 1 140 0 6 - 162 1 8 0 0 163 2 140 0 0 109 164 2 - 140 0 0 0 165 2 140 0 0 0 166 2 140 0 - 0 10 167 2 0 142 0 142 168 2 0 10 0 0 - 169 1 170 98 6 171 1 0 88 0 172 1 170 - 6 6 173 1 0 0 0 174 1 75 8 0 175 1 75 - 0 0 176 1 75 6 0 177 1 75 0 0 178 2 - 75 0 0 0 179 2 75 0 6 0 180 2 0 80 80 - 80 181 1 182 82 75 183 1 0 84 80 184 - 2 7 0 0 0 185 2 0 7 142 7 186 1 0 10 - 0 187 1 7 0 0 188 2 7 0 0 0 189 2 0 - 67 0 0 190 1 191 0 109 192 1 191 0 0 - 193 2 6 0 191 0 194 1 0 0 0 195 2 0 - 107 0 10 113 1 0 14 0 15 1 0 0 51 66 - 2 0 10 0 14 18 1 0 84 80 184 1 0 0 0 - 174 1 0 88 0 172 2 0 78 79 80 81 2 0 - 0 0 10 70 2 0 0 0 10 72 2 0 128 0 0 - 129 1 0 115 0 116 1 0 7 0 114 2 0 0 0 - 0 150 2 0 151 0 0 152 2 0 10 0 0 169 - 1 0 119 0 122 3 0 0 0 12 10 46 2 0 19 - 0 14 42 2 0 10 0 12 41 1 0 51 0 58 1 - 0 34 0 39 2 0 67 0 10 69 1 0 0 0 195 - 0 0 0 118 2 0 80 80 80 181 1 0 84 80 - 87 1 0 84 80 85 1 0 88 0 105 3 0 0 0 - 12 0 25 3 0 0 0 14 22 23 3 0 0 0 14 - 27 28 3 0 0 0 12 7 31 2 0 0 0 37 38 1 - 0 10 0 187 2 0 142 0 142 168 2 0 7 - 142 7 186 2 0 142 142 142 146 2 0 67 - 0 0 190 3 0 0 0 132 0 133 2 0 0 0 132 - 136 1 0 0 0 137 2 0 0 0 12 139 2 0 10 - 0 12 16 2 0 19 0 14 20 2 0 0 0 12 124 - 2 0 119 0 0 160 2 0 155 142 0 156 1 0 - 0 12 50))))) + 36 1 6 10 0 41 2 10 0 0 0 44 2 6 0 45 + 0 46 0 6 0 48 0 7 0 49 2 6 0 7 10 50 + 0 52 0 53 1 6 7 0 54 2 52 0 7 10 55 1 + 6 0 0 56 1 6 52 0 57 2 52 0 0 0 58 1 + 52 8 0 60 0 6 0 61 1 52 7 0 62 1 52 + 10 0 63 1 52 0 0 64 1 6 0 52 65 2 6 0 + 0 0 66 2 6 68 0 0 69 2 6 0 0 0 72 2 + 77 76 75 74 78 2 0 81 80 79 82 1 77 + 83 74 84 1 0 85 79 86 1 77 83 74 87 1 + 0 85 79 88 1 7 89 0 90 1 91 7 0 92 1 + 91 96 0 97 2 100 0 6 99 101 1 7 85 79 + 102 2 105 100 103 104 106 1 0 89 0 + 107 0 7 0 108 2 109 0 10 7 110 1 109 + 94 0 111 2 6 7 0 10 112 3 109 7 0 94 + 7 113 0 7 0 118 0 0 0 119 1 7 120 0 + 121 0 74 0 122 1 0 120 0 123 1 6 7 0 + 124 2 0 0 0 12 125 2 6 0 0 0 126 2 6 + 120 0 0 127 2 6 8 0 0 128 2 0 129 0 0 + 130 0 74 0 131 2 7 0 10 0 132 3 0 0 0 + 133 0 134 2 6 0 7 0 135 3 6 0 0 133 0 + 136 1 6 0 0 139 1 141 6 0 142 2 6 143 + 0 143 144 1 141 6 0 145 2 141 0 0 0 + 146 2 0 143 143 143 147 2 7 0 0 10 + 148 2 6 0 0 0 149 2 6 0 0 0 150 2 0 0 + 0 0 151 2 0 152 0 0 153 2 6 120 0 0 + 154 2 141 0 6 6 155 2 0 156 143 0 157 + 1 6 8 0 158 2 6 152 0 0 159 2 6 120 0 + 7 160 2 0 120 0 0 161 0 141 0 162 1 + 141 0 6 163 1 8 0 0 164 2 141 0 0 94 + 165 2 141 0 0 0 166 2 141 0 0 0 167 2 + 141 0 0 10 168 2 0 143 0 143 169 2 0 + 10 0 0 170 1 171 100 6 172 1 0 89 0 + 173 1 171 6 6 174 1 0 0 0 175 1 74 8 + 0 176 1 74 0 0 177 1 74 6 0 178 1 74 + 0 0 179 2 74 0 0 0 180 2 74 0 6 0 181 + 2 0 79 79 79 182 1 183 83 74 184 1 0 + 85 79 185 2 7 0 0 0 186 2 0 7 143 7 + 187 1 0 10 0 188 1 7 0 0 189 2 7 0 0 + 0 190 2 0 68 0 0 191 2 6 8 0 0 192 1 + 193 0 94 194 1 193 0 0 195 2 6 0 193 + 0 196 1 0 0 0 197 2 0 109 0 10 114 1 + 0 14 0 15 1 0 0 52 67 2 0 10 0 14 18 + 1 0 85 79 185 1 0 0 0 175 1 0 89 0 + 173 2 0 81 80 79 82 2 0 0 0 10 71 2 0 + 0 0 10 73 2 0 129 0 0 130 1 0 116 0 + 117 1 0 7 0 115 2 0 0 0 0 151 2 0 152 + 0 0 153 2 0 10 0 0 170 1 0 120 0 123 + 3 0 0 0 12 10 47 2 0 19 0 14 43 2 0 + 10 0 12 42 1 0 52 0 59 1 0 34 0 40 2 + 0 68 0 10 70 1 0 0 0 197 0 0 0 119 2 + 0 79 79 79 182 1 0 85 79 88 1 0 85 79 + 86 1 0 89 0 107 3 0 0 0 12 0 25 3 0 0 + 0 14 22 23 3 0 0 0 14 27 28 3 0 0 0 + 12 7 31 2 0 0 0 38 39 1 0 10 0 188 2 + 0 143 0 143 169 2 0 7 143 7 187 2 0 + 143 143 143 147 2 0 68 0 0 191 3 0 0 + 0 133 0 134 2 0 0 0 133 137 1 0 0 0 + 138 2 0 0 0 12 140 2 0 10 0 12 16 2 0 + 19 0 14 20 2 0 0 0 12 125 2 0 120 0 0 + 161 2 0 156 143 0 157 1 0 0 12 51))))) '|lookupComplete|)) @ + \section{package UPOLYC2 UnivariatePolynomialCategoryFunctions2} + <<package UPOLYC2 UnivariatePolynomialCategoryFunctions2>>= )abbrev package UPOLYC2 UnivariatePolynomialCategoryFunctions2 ++ Author: diff --git a/src/algebra/sf.spad.pamphlet b/src/algebra/sf.spad.pamphlet index 70dc7023..b8ad8334 100644 --- a/src/algebra/sf.spad.pamphlet +++ b/src/algebra/sf.spad.pamphlet @@ -1029,7 +1029,8 @@ Note that this code is not included in the generated catdef.spad file. (DEFUN |DFLOAT;doubleFloatFormat;2S;1| (|s| $) (PROG (|ss|) (RETURN - (SEQ (LETT |ss| (QREFELT $ 6) |DFLOAT;doubleFloatFormat;2S;1|) + (SEQ (LETT |ss| (|getShellEntry| $ 6) + |DFLOAT;doubleFloatFormat;2S;1|) (SETELT $ 6 |s|) (EXIT |ss|))))) (DEFUN |DFLOAT;OMwrite;$S;2| (|x| $) @@ -1038,13 +1039,13 @@ Note that this code is not included in the generated catdef.spad file. (SEQ (LETT |s| "" |DFLOAT;OMwrite;$S;2|) (LETT |sp| (OM-STRINGTOSTRINGPTR |s|) |DFLOAT;OMwrite;$S;2|) (LETT |dev| - (SPADCALL |sp| (SPADCALL (QREFELT $ 10)) - (QREFELT $ 12)) + (SPADCALL |sp| (SPADCALL (|getShellEntry| $ 10)) + (|getShellEntry| $ 12)) |DFLOAT;OMwrite;$S;2|) - (SPADCALL |dev| (QREFELT $ 14)) - (SPADCALL |dev| |x| (QREFELT $ 16)) - (SPADCALL |dev| (QREFELT $ 17)) - (SPADCALL |dev| (QREFELT $ 18)) + (SPADCALL |dev| (|getShellEntry| $ 14)) + (SPADCALL |dev| |x| (|getShellEntry| $ 16)) + (SPADCALL |dev| (|getShellEntry| $ 17)) + (SPADCALL |dev| (|getShellEntry| $ 18)) (LETT |s| (OM-STRINGPTRTOSTRING |sp|) |DFLOAT;OMwrite;$S;2|) (EXIT |s|))))) @@ -1055,26 +1056,27 @@ Note that this code is not included in the generated catdef.spad file. (LETT |sp| (OM-STRINGTOSTRINGPTR |s|) |DFLOAT;OMwrite;$BS;3|) (LETT |dev| - (SPADCALL |sp| (SPADCALL (QREFELT $ 10)) - (QREFELT $ 12)) + (SPADCALL |sp| (SPADCALL (|getShellEntry| $ 10)) + (|getShellEntry| $ 12)) |DFLOAT;OMwrite;$BS;3|) - (COND (|wholeObj| (SPADCALL |dev| (QREFELT $ 14)))) - (SPADCALL |dev| |x| (QREFELT $ 16)) - (COND (|wholeObj| (SPADCALL |dev| (QREFELT $ 17)))) - (SPADCALL |dev| (QREFELT $ 18)) + (COND (|wholeObj| (SPADCALL |dev| (|getShellEntry| $ 14)))) + (SPADCALL |dev| |x| (|getShellEntry| $ 16)) + (COND (|wholeObj| (SPADCALL |dev| (|getShellEntry| $ 17)))) + (SPADCALL |dev| (|getShellEntry| $ 18)) (LETT |s| (OM-STRINGPTRTOSTRING |sp|) |DFLOAT;OMwrite;$BS;3|) (EXIT |s|))))) (DEFUN |DFLOAT;OMwrite;Omd$V;4| (|dev| |x| $) - (SEQ (SPADCALL |dev| (QREFELT $ 14)) - (SPADCALL |dev| |x| (QREFELT $ 16)) - (EXIT (SPADCALL |dev| (QREFELT $ 17))))) + (SEQ (SPADCALL |dev| (|getShellEntry| $ 14)) + (SPADCALL |dev| |x| (|getShellEntry| $ 16)) + (EXIT (SPADCALL |dev| (|getShellEntry| $ 17))))) (DEFUN |DFLOAT;OMwrite;Omd$BV;5| (|dev| |x| |wholeObj| $) - (SEQ (COND (|wholeObj| (SPADCALL |dev| (QREFELT $ 14)))) - (SPADCALL |dev| |x| (QREFELT $ 16)) - (EXIT (COND (|wholeObj| (SPADCALL |dev| (QREFELT $ 17))))))) + (SEQ (COND (|wholeObj| (SPADCALL |dev| (|getShellEntry| $ 14)))) + (SPADCALL |dev| |x| (|getShellEntry| $ 16)) + (EXIT (COND + (|wholeObj| (SPADCALL |dev| (|getShellEntry| $ 17))))))) (PUT '|DFLOAT;checkComplex| '|SPADreplace| 'C-TO-R) @@ -1094,7 +1096,7 @@ Note that this code is not included in the generated catdef.spad file. (DEFUN |DFLOAT;precision;Pi;10| ($) (FLOAT-DIGITS 0.0)) (DEFUN |DFLOAT;bits;Pi;11| ($) - (PROG (#0=#:G1412) + (PROG (#0=#:G1419) (RETURN (COND ((EQL (FLOAT-RADIX 0.0) 2) (FLOAT-DIGITS 0.0)) @@ -1105,8 +1107,8 @@ Note that this code is not included in the generated catdef.spad file. (SPADCALL (FLOAT (FLOAT-RADIX 0.0) MOST-POSITIVE-LONG-FLOAT) - (QREFELT $ 30)) - (QREFELT $ 31))) + (|getShellEntry| $ 30)) + (|getShellEntry| $ 31))) |DFLOAT;bits;Pi;11|) (|check-subtype| (> #0# 0) '(|PositiveInteger|) #0#))))))) @@ -1121,7 +1123,7 @@ Note that this code is not included in the generated catdef.spad file. (DEFUN |DFLOAT;min;$;13| ($) MOST-NEGATIVE-LONG-FLOAT) (DEFUN |DFLOAT;order;$I;14| (|a| $) - (- (+ (FLOAT-DIGITS 0.0) (SPADCALL |a| (QREFELT $ 28))) 1)) + (- (+ (FLOAT-DIGITS 0.0) (SPADCALL |a| (|getShellEntry| $ 28))) 1)) (PUT '|DFLOAT;Zero;$;15| '|SPADreplace| '(XLAM NIL (FLOAT 0 MOST-POSITIVE-LONG-FLOAT))) @@ -1142,9 +1144,11 @@ Note that this code is not included in the generated catdef.spad file. (DEFUN |DFLOAT;pi;$;18| ($) PI) (DEFUN |DFLOAT;coerce;$Of;19| (|x| $) - (SPADCALL (FORMAT NIL (QREFELT $ 6) |x|) (QREFELT $ 41))) + (SPADCALL (FORMAT NIL (|getShellEntry| $ 6) |x|) + (|getShellEntry| $ 41))) -(DEFUN |DFLOAT;convert;$If;20| (|x| $) (SPADCALL |x| (QREFELT $ 44))) +(DEFUN |DFLOAT;convert;$If;20| (|x| $) + (SPADCALL |x| (|getShellEntry| $ 44))) (PUT '|DFLOAT;<;2$B;21| '|SPADreplace| '<) @@ -1325,10 +1329,11 @@ Note that this code is not included in the generated catdef.spad file. (DEFUN |DFLOAT;differentiate;2$;68| (|x| $) 0.0) -(DEFUN |DFLOAT;Gamma;2$;69| (|x| $) (SPADCALL |x| (QREFELT $ 95))) +(DEFUN |DFLOAT;Gamma;2$;69| (|x| $) + (SPADCALL |x| (|getShellEntry| $ 95))) (DEFUN |DFLOAT;Beta;3$;70| (|x| |y| $) - (SPADCALL |x| |y| (QREFELT $ 97))) + (SPADCALL |x| |y| (|getShellEntry| $ 97))) (PUT '|DFLOAT;wholePart;$I;71| '|SPADreplace| 'FIX) @@ -1341,10 +1346,11 @@ Note that this code is not included in the generated catdef.spad file. (DEFUN |DFLOAT;convert;$Df;73| (|x| $) |x|) -(DEFUN |DFLOAT;convert;$F;74| (|x| $) (SPADCALL |x| (QREFELT $ 103))) +(DEFUN |DFLOAT;convert;$F;74| (|x| $) + (SPADCALL |x| (|getShellEntry| $ 103))) (DEFUN |DFLOAT;rationalApproximation;$NniF;75| (|x| |d| $) - (SPADCALL |x| |d| 10 (QREFELT $ 107))) + (SPADCALL |x| |d| 10 (|getShellEntry| $ 107))) (DEFUN |DFLOAT;atan;3$;76| (|x| |y| $) (PROG (|theta|) @@ -1367,16 +1373,16 @@ Note that this code is not included in the generated catdef.spad file. (EXIT |theta|)))))))) (DEFUN |DFLOAT;retract;$F;77| (|x| $) - (PROG (#0=#:G1487) + (PROG (#0=#:G1494) (RETURN (SPADCALL |x| (PROG1 (LETT #0# (- (FLOAT-DIGITS 0.0) 1) |DFLOAT;retract;$F;77|) (|check-subtype| (>= #0# 0) '(|NonNegativeInteger|) #0#)) - (FLOAT-RADIX 0.0) (QREFELT $ 107))))) + (FLOAT-RADIX 0.0) (|getShellEntry| $ 107))))) (DEFUN |DFLOAT;retractIfCan;$U;78| (|x| $) - (PROG (#0=#:G1492) + (PROG (#0=#:G1499) (RETURN (CONS 0 (SPADCALL |x| @@ -1384,7 +1390,7 @@ Note that this code is not included in the generated catdef.spad file. |DFLOAT;retractIfCan;$U;78|) (|check-subtype| (>= #0# 0) '(|NonNegativeInteger|) #0#)) - (FLOAT-RADIX 0.0) (QREFELT $ 107)))))) + (FLOAT-RADIX 0.0) (|getShellEntry| $ 107)))))) (DEFUN |DFLOAT;retract;$I;79| (|x| $) (PROG (|n|) @@ -1404,7 +1410,7 @@ Note that this code is not included in the generated catdef.spad file. ('T (CONS 1 "failed")))))))) (DEFUN |DFLOAT;sign;$I;81| (|x| $) - (SPADCALL (FLOAT-SIGN |x| 1.0) (QREFELT $ 113))) + (SPADCALL (FLOAT-SIGN |x| 1.0) (|getShellEntry| $ 113))) (PUT '|DFLOAT;abs;2$;82| '|SPADreplace| '(XLAM (|x|) (FLOAT-SIGN 1.0 |x|))) @@ -1412,12 +1418,13 @@ Note that this code is not included in the generated catdef.spad file. (DEFUN |DFLOAT;abs;2$;82| (|x| $) (FLOAT-SIGN 1.0 |x|)) (DEFUN |DFLOAT;manexp| (|x| $) - (PROG (|s| #0=#:G1513 |me| |two53|) + (PROG (|s| #0=#:G1520 |me| |two53|) (RETURN (SEQ (EXIT (COND ((ZEROP |x|) (CONS 0 0)) ('T - (SEQ (LETT |s| (SPADCALL |x| (QREFELT $ 116)) + (SEQ (LETT |s| + (SPADCALL |x| (|getShellEntry| $ 116)) |DFLOAT;manexp|) (LETT |x| (FLOAT-SIGN 1.0 |x|) |DFLOAT;manexp|) @@ -1430,10 +1437,10 @@ Note that this code is not included in the generated catdef.spad file. (* |s| (SPADCALL MOST-POSITIVE-LONG-FLOAT - (QREFELT $ 27))) + (|getShellEntry| $ 27))) 1) (SPADCALL MOST-POSITIVE-LONG-FLOAT - (QREFELT $ 28))) + (|getShellEntry| $ 28))) |DFLOAT;manexp|) (GO #0#)))) (LETT |me| (MANEXP |x|) |DFLOAT;manexp|) @@ -1447,9 +1454,9 @@ Note that this code is not included in the generated catdef.spad file. #0# (EXIT #0#))))) (DEFUN |DFLOAT;rationalApproximation;$2NniF;84| (|f| |d| |b| $) - (PROG (|#G103| |nu| |ex| BASE #0=#:G1516 |de| |tol| |#G104| |q| |r| - |p2| |q2| #1=#:G1534 |#G105| |#G106| |p0| |p1| |#G107| - |#G108| |q0| |q1| |#G109| |#G110| |s| |t| #2=#:G1532) + (PROG (|#G103| |nu| |ex| BASE #0=#:G1523 |de| |tol| |#G104| |q| |r| + |p2| |q2| #1=#:G1541 |#G105| |#G106| |p0| |p1| |#G107| + |#G108| |q0| |q1| |#G109| |#G110| |s| |t| #2=#:G1539) (RETURN (SEQ (EXIT (SEQ (PROGN (LETT |#G103| (|DFLOAT;manexp| |f| $) @@ -1516,13 +1523,15 @@ Note that this code is not included in the generated catdef.spad file. (ABS (- (* |nu| |q2|) (* |de| |p2|))) - (QREFELT $ 120)) + (|getShellEntry| $ + 120)) (* |de| (ABS |p2|)))) (EXIT (PROGN (LETT #1# (SPADCALL |p2| |q2| - (QREFELT $ 119)) + (|getShellEntry| $ + 119)) |DFLOAT;rationalApproximation;$2NniF;84|) (GO #1#))))) (PROGN @@ -1564,31 +1573,36 @@ Note that this code is not included in the generated catdef.spad file. |DFLOAT;rationalApproximation;$2NniF;84|) (|check-subtype| (>= #2# 0) '(|NonNegativeInteger|) #2#)))) - (QREFELT $ 121))))))) + (|getShellEntry| $ 121))))))) #1# (EXIT #1#))))) (DEFUN |DFLOAT;**;$F$;85| (|x| |r| $) - (PROG (|n| |d| #0=#:G1543) + (PROG (|n| |d| #0=#:G1550) (RETURN (SEQ (EXIT (COND ((ZEROP |x|) (COND - ((SPADCALL |r| (QREFELT $ 122)) + ((SPADCALL |r| (|getShellEntry| $ 122)) (|error| "0**0 is undefined")) - ((SPADCALL |r| (QREFELT $ 123)) + ((SPADCALL |r| (|getShellEntry| $ 123)) (|error| "division by 0")) ('T 0.0))) - ((OR (SPADCALL |r| (QREFELT $ 122)) (= |x| 1.0)) + ((OR (SPADCALL |r| (|getShellEntry| $ 122)) + (= |x| 1.0)) 1.0) ('T (COND ((SPADCALL |r| (|spadConstant| $ 124) - (QREFELT $ 125)) + (|getShellEntry| $ 125)) |x|) ('T - (SEQ (LETT |n| (SPADCALL |r| (QREFELT $ 126)) + (SEQ (LETT |n| + (SPADCALL |r| + (|getShellEntry| $ 126)) |DFLOAT;**;$F$;85|) - (LETT |d| (SPADCALL |r| (QREFELT $ 127)) + (LETT |d| + (SPADCALL |r| + (|getShellEntry| $ 127)) |DFLOAT;**;$F$;85|) (EXIT (COND ((MINUSP |x|) @@ -1600,20 +1614,21 @@ Note that this code is not included in the generated catdef.spad file. (LETT #0# (- (SPADCALL (- |x|) |r| - (QREFELT $ 128))) + (|getShellEntry| $ 128))) |DFLOAT;**;$F$;85|) (GO #0#))) ('T (PROGN (LETT #0# (SPADCALL (- |x|) |r| - (QREFELT $ 128)) + (|getShellEntry| $ 128)) |DFLOAT;**;$F$;85|) (GO #0#))))) ('T (|error| "negative root")))) ((EQL |d| 2) (EXPT - (SPADCALL |x| (QREFELT $ 56)) + (SPADCALL |x| + (|getShellEntry| $ 56)) |n|)) ('T (SPADCALL |x| @@ -1622,13 +1637,13 @@ Note that this code is not included in the generated catdef.spad file. MOST-POSITIVE-LONG-FLOAT) (FLOAT |d| MOST-POSITIVE-LONG-FLOAT)) - (QREFELT $ 59))))))))))) + (|getShellEntry| $ 59))))))))))) #0# (EXIT #0#))))) (DEFUN |DoubleFloat| () (PROG () (RETURN - (PROG (#0=#:G1556) + (PROG (#0=#:G1563) (RETURN (COND ((LETT #0# (HGET |$ConstructorCache| '|DoubleFloat|) @@ -1649,12 +1664,13 @@ Note that this code is not included in the generated catdef.spad file. (RETURN (PROGN (LETT |dv$| '(|DoubleFloat|) . #0=(|DoubleFloat|)) - (LETT $ (GETREFV 142) . #0#) - (QSETREFV $ 0 |dv$|) - (QSETREFV $ 3 (LETT |pv$| (|buildPredVector| 0 0 NIL) . #0#)) + (LETT $ (|newShell| 142) . #0#) + (|setShellEntry| $ 0 |dv$|) + (|setShellEntry| $ 3 + (LETT |pv$| (|buildPredVector| 0 0 NIL) . #0#)) (|haddProp| |$ConstructorCache| '|DoubleFloat| NIL (CONS 1 $)) (|stuffDomainSlots| $) - (QSETREFV $ 6 "~G") + (|setShellEntry| $ 6 "~G") $)))) (MAKEPROP '|DoubleFloat| '|infovec| @@ -1714,14 +1730,14 @@ Note that this code is not included in the generated catdef.spad file. (79 . |coerce|) (84 . |zero?|) (89 . |negative?|) (94 . |One|) (98 . =) (104 . |numer|) (109 . |denom|) |DFLOAT;**;$F$;85| (|PatternMatchResult| 102 $) - (|Pattern| 102) (|Factored| $) (|Union| 133 '"failed") - (|List| $) + (|Pattern| 102) (|Factored| $) (|List| $) + (|Union| 132 '"failed") (|Record| (|:| |coef1| $) (|:| |coef2| $) (|:| |generator| $)) (|Record| (|:| |coef1| $) (|:| |coef2| $)) (|Union| 135 '"failed") (|Record| (|:| |quotient| $) (|:| |remainder| $)) - (|Record| (|:| |coef| 133) (|:| |generator| $)) + (|Record| (|:| |coef| 132) (|:| |generator| $)) (|SparseUnivariatePolynomial| $) (|Record| (|:| |unit| $) (|:| |canonical| $) (|:| |associate| $)) @@ -1837,19 +1853,19 @@ Note that this code is not included in the generated catdef.spad file. 111 0 112 1 0 114 0 115 1 0 105 0 110 1 0 26 0 113 2 0 0 0 0 1 1 0 91 0 92 2 0 105 0 106 108 3 0 105 0 106 106 - 107 2 0 0 0 0 1 1 0 138 133 1 1 0 20 + 107 2 0 0 0 0 1 1 0 138 132 1 1 0 20 0 1 0 0 24 29 1 0 20 0 1 0 0 0 39 3 0 129 0 130 129 1 1 0 26 0 35 1 0 20 0 1 2 0 0 0 26 1 1 0 0 0 1 1 0 20 0 88 - 2 0 132 133 0 1 0 0 0 34 2 0 0 0 0 53 + 2 0 133 132 0 1 0 0 0 34 2 0 0 0 0 53 0 0 0 33 2 0 0 0 0 52 1 0 26 0 27 1 0 0 0 30 1 0 0 0 57 1 0 0 0 62 1 0 0 - 133 1 2 0 0 0 0 1 1 0 7 0 1 1 0 0 0 1 + 132 1 2 0 0 0 0 1 1 0 7 0 1 1 0 0 0 1 1 0 26 0 90 1 0 141 0 1 2 0 139 139 - 139 1 1 0 0 133 1 2 0 0 0 0 1 1 0 0 0 + 139 1 1 0 0 132 1 2 0 0 0 0 1 1 0 0 0 1 1 0 0 0 1 3 0 0 26 26 24 100 2 0 0 26 26 1 1 0 131 0 1 2 0 134 0 0 1 3 0 - 136 0 0 0 1 2 0 91 0 0 1 2 0 132 133 + 136 0 0 0 1 2 0 91 0 0 1 2 0 133 132 0 1 1 0 26 0 28 0 0 0 38 1 0 0 0 61 1 0 106 0 1 1 0 7 7 8 2 0 137 0 0 1 0 0 24 1 1 0 0 0 93 2 0 0 0 106 1 1 0 0 0 diff --git a/src/algebra/si.spad.pamphlet b/src/algebra/si.spad.pamphlet index 657586f6..e078bbb9 100644 --- a/src/algebra/si.spad.pamphlet +++ b/src/algebra/si.spad.pamphlet @@ -750,672 +750,477 @@ SingleInteger(): Join(IntegerNumberSystem,Logic,OpenMath) with )bo $noSubsets := false @ + \section{SINT.lsp BOOTSTRAP} + <<SINT.lsp BOOTSTRAP>>= (/VERSIONCHECK 2) -(DEFUN |SINT;writeOMSingleInt| (|dev| |x| $) - (SEQ - (COND - ((QSLESSP |x| 0) - (SEQ - (SPADCALL |dev| (QREFELT $ 9)) - (SPADCALL |dev| "arith1" "unaryminus" (QREFELT $ 11)) - (SPADCALL |dev| (QSMINUS |x|) (QREFELT $ 13)) - (EXIT (SPADCALL |dev| (QREFELT $ 14))))) - ((QUOTE T) (SPADCALL |dev| |x| (QREFELT $ 13)))))) - -(DEFUN |SINT;OMwrite;$S;2| (|x| $) - (PROG (|sp| |dev| |s|) - (RETURN - (SEQ - (LETT |s| "" |SINT;OMwrite;$S;2|) - (LETT |sp| (OM-STRINGTOSTRINGPTR |s|) |SINT;OMwrite;$S;2|) - (LETT |dev| - (SPADCALL |sp| (SPADCALL (QREFELT $ 16)) (QREFELT $ 17)) - |SINT;OMwrite;$S;2|) - (SPADCALL |dev| (QREFELT $ 18)) - (|SINT;writeOMSingleInt| |dev| |x| $) - (SPADCALL |dev| (QREFELT $ 19)) - (SPADCALL |dev| (QREFELT $ 20)) - (LETT |s| (OM-STRINGPTRTOSTRING |sp|) |SINT;OMwrite;$S;2|) - (EXIT |s|))))) - -(DEFUN |SINT;OMwrite;$BS;3| (|x| |wholeObj| $) - (PROG (|sp| |dev| |s|) - (RETURN - (SEQ - (LETT |s| "" |SINT;OMwrite;$BS;3|) - (LETT |sp| (OM-STRINGTOSTRINGPTR |s|) |SINT;OMwrite;$BS;3|) - (LETT |dev| - (SPADCALL |sp| (SPADCALL (QREFELT $ 16)) (QREFELT $ 17)) - |SINT;OMwrite;$BS;3|) - (COND (|wholeObj| (SPADCALL |dev| (QREFELT $ 18)))) - (|SINT;writeOMSingleInt| |dev| |x| $) - (COND (|wholeObj| (SPADCALL |dev| (QREFELT $ 19)))) - (SPADCALL |dev| (QREFELT $ 20)) - (LETT |s| (OM-STRINGPTRTOSTRING |sp|) |SINT;OMwrite;$BS;3|) - (EXIT |s|))))) - -(DEFUN |SINT;OMwrite;Omd$V;4| (|dev| |x| $) - (SEQ - (SPADCALL |dev| (QREFELT $ 18)) - (|SINT;writeOMSingleInt| |dev| |x| $) - (EXIT (SPADCALL |dev| (QREFELT $ 19))))) - -(DEFUN |SINT;OMwrite;Omd$BV;5| (|dev| |x| |wholeObj| $) - (SEQ - (COND (|wholeObj| (SPADCALL |dev| (QREFELT $ 18)))) - (|SINT;writeOMSingleInt| |dev| |x| $) - (EXIT (COND (|wholeObj| (SPADCALL |dev| (QREFELT $ 19))))))) - -(PUT - (QUOTE |SINT;reducedSystem;MM;6|) - (QUOTE |SPADreplace|) - (QUOTE (XLAM (|m|) |m|))) +(DEFUN |SINT;writeOMSingleInt| (|dev| |x| $) + (SEQ (COND + ((QSLESSP |x| 0) + (SEQ (SPADCALL |dev| (|getShellEntry| $ 9)) + (SPADCALL |dev| "arith1" "unaryminus" + (|getShellEntry| $ 11)) + (SPADCALL |dev| (QSMINUS |x|) (|getShellEntry| $ 13)) + (EXIT (SPADCALL |dev| (|getShellEntry| $ 14))))) + ('T (SPADCALL |dev| |x| (|getShellEntry| $ 13)))))) + +(DEFUN |SINT;OMwrite;$S;2| (|x| $) + (PROG (|sp| |dev| |s|) + (RETURN + (SEQ (LETT |s| "" |SINT;OMwrite;$S;2|) + (LETT |sp| (OM-STRINGTOSTRINGPTR |s|) |SINT;OMwrite;$S;2|) + (LETT |dev| + (SPADCALL |sp| (SPADCALL (|getShellEntry| $ 16)) + (|getShellEntry| $ 17)) + |SINT;OMwrite;$S;2|) + (SPADCALL |dev| (|getShellEntry| $ 18)) + (|SINT;writeOMSingleInt| |dev| |x| $) + (SPADCALL |dev| (|getShellEntry| $ 19)) + (SPADCALL |dev| (|getShellEntry| $ 20)) + (LETT |s| (OM-STRINGPTRTOSTRING |sp|) |SINT;OMwrite;$S;2|) + (EXIT |s|))))) + +(DEFUN |SINT;OMwrite;$BS;3| (|x| |wholeObj| $) + (PROG (|sp| |dev| |s|) + (RETURN + (SEQ (LETT |s| "" |SINT;OMwrite;$BS;3|) + (LETT |sp| (OM-STRINGTOSTRINGPTR |s|) |SINT;OMwrite;$BS;3|) + (LETT |dev| + (SPADCALL |sp| (SPADCALL (|getShellEntry| $ 16)) + (|getShellEntry| $ 17)) + |SINT;OMwrite;$BS;3|) + (COND (|wholeObj| (SPADCALL |dev| (|getShellEntry| $ 18)))) + (|SINT;writeOMSingleInt| |dev| |x| $) + (COND (|wholeObj| (SPADCALL |dev| (|getShellEntry| $ 19)))) + (SPADCALL |dev| (|getShellEntry| $ 20)) + (LETT |s| (OM-STRINGPTRTOSTRING |sp|) |SINT;OMwrite;$BS;3|) + (EXIT |s|))))) + +(DEFUN |SINT;OMwrite;Omd$V;4| (|dev| |x| $) + (SEQ (SPADCALL |dev| (|getShellEntry| $ 18)) + (|SINT;writeOMSingleInt| |dev| |x| $) + (EXIT (SPADCALL |dev| (|getShellEntry| $ 19))))) + +(DEFUN |SINT;OMwrite;Omd$BV;5| (|dev| |x| |wholeObj| $) + (SEQ (COND (|wholeObj| (SPADCALL |dev| (|getShellEntry| $ 18)))) + (|SINT;writeOMSingleInt| |dev| |x| $) + (EXIT (COND + (|wholeObj| (SPADCALL |dev| (|getShellEntry| $ 19))))))) + +(PUT '|SINT;reducedSystem;MM;6| '|SPADreplace| '(XLAM (|m|) |m|)) (DEFUN |SINT;reducedSystem;MM;6| (|m| $) |m|) -(DEFUN |SINT;coerce;$Of;7| (|x| $) - (SPADCALL |x| (QREFELT $ 30))) +(DEFUN |SINT;coerce;$Of;7| (|x| $) + (SPADCALL |x| (|getShellEntry| $ 30))) -(PUT - (QUOTE |SINT;convert;$I;8|) - (QUOTE |SPADreplace|) - (QUOTE (XLAM (|x|) |x|))) +(PUT '|SINT;convert;$I;8| '|SPADreplace| '(XLAM (|x|) |x|)) (DEFUN |SINT;convert;$I;8| (|x| $) |x|) -(DEFUN |SINT;*;I2$;9| (|i| |y| $) - (QSTIMES (SPADCALL |i| (QREFELT $ 33)) |y|)) +(DEFUN |SINT;*;I2$;9| (|i| |y| $) + (QSTIMES (SPADCALL |i| (|getShellEntry| $ 33)) |y|)) -(PUT - (QUOTE |SINT;Zero;$;10|) - (QUOTE |SPADreplace|) - (QUOTE (XLAM NIL 0))) +(PUT '|SINT;Zero;$;10| '|SPADreplace| '(XLAM NIL 0)) (DEFUN |SINT;Zero;$;10| ($) 0) -(PUT - (QUOTE |SINT;One;$;11|) - (QUOTE |SPADreplace|) - (QUOTE (XLAM NIL 1))) +(PUT '|SINT;One;$;11| '|SPADreplace| '(XLAM NIL 1)) (DEFUN |SINT;One;$;11| ($) 1) -(PUT - (QUOTE |SINT;base;$;12|) - (QUOTE |SPADreplace|) - (QUOTE (XLAM NIL 2))) +(PUT '|SINT;base;$;12| '|SPADreplace| '(XLAM NIL 2)) (DEFUN |SINT;base;$;12| ($) 2) -(PUT - (QUOTE |SINT;max;$;13|) - (QUOTE |SPADreplace|) - (QUOTE (XLAM NIL MOST-POSITIVE-FIXNUM))) +(PUT '|SINT;max;$;13| '|SPADreplace| '(XLAM NIL MOST-POSITIVE-FIXNUM)) (DEFUN |SINT;max;$;13| ($) MOST-POSITIVE-FIXNUM) -(PUT - (QUOTE |SINT;min;$;14|) - (QUOTE |SPADreplace|) - (QUOTE (XLAM NIL MOST-NEGATIVE-FIXNUM))) +(PUT '|SINT;min;$;14| '|SPADreplace| '(XLAM NIL MOST-NEGATIVE-FIXNUM)) (DEFUN |SINT;min;$;14| ($) MOST-NEGATIVE-FIXNUM) -(PUT - (QUOTE |SINT;=;2$B;15|) - (QUOTE |SPADreplace|) - (QUOTE EQL)) +(PUT '|SINT;=;2$B;15| '|SPADreplace| 'EQL) -(DEFUN |SINT;=;2$B;15| (|x| |y| $) - (EQL |x| |y|)) +(DEFUN |SINT;=;2$B;15| (|x| |y| $) (EQL |x| |y|)) -(PUT - (QUOTE |SINT;~;2$;16|) - (QUOTE |SPADreplace|) - (QUOTE LOGNOT)) +(PUT '|SINT;~;2$;16| '|SPADreplace| 'LOGNOT) -(DEFUN |SINT;~;2$;16| (|x| $) - (LOGNOT |x|)) +(DEFUN |SINT;~;2$;16| (|x| $) (LOGNOT |x|)) -(PUT - (QUOTE |SINT;not;2$;17|) - (QUOTE |SPADreplace|) - (QUOTE LOGNOT)) +(PUT '|SINT;not;2$;17| '|SPADreplace| 'LOGNOT) -(DEFUN |SINT;not;2$;17| (|x| $) - (LOGNOT |x|)) +(DEFUN |SINT;not;2$;17| (|x| $) (LOGNOT |x|)) -(PUT - (QUOTE |SINT;/\\;3$;18|) - (QUOTE |SPADreplace|) - (QUOTE LOGAND)) +(PUT '|SINT;/\\;3$;18| '|SPADreplace| 'LOGAND) -(DEFUN |SINT;/\\;3$;18| (|x| |y| $) - (LOGAND |x| |y|)) +(DEFUN |SINT;/\\;3$;18| (|x| |y| $) (LOGAND |x| |y|)) -(PUT - (QUOTE |SINT;\\/;3$;19|) - (QUOTE |SPADreplace|) - (QUOTE LOGIOR)) +(PUT '|SINT;\\/;3$;19| '|SPADreplace| 'LOGIOR) -(DEFUN |SINT;\\/;3$;19| (|x| |y| $) - (LOGIOR |x| |y|)) +(DEFUN |SINT;\\/;3$;19| (|x| |y| $) (LOGIOR |x| |y|)) -(PUT - (QUOTE |SINT;Not;2$;20|) - (QUOTE |SPADreplace|) - (QUOTE LOGNOT)) +(PUT '|SINT;Not;2$;20| '|SPADreplace| 'LOGNOT) -(DEFUN |SINT;Not;2$;20| (|x| $) - (LOGNOT |x|)) +(DEFUN |SINT;Not;2$;20| (|x| $) (LOGNOT |x|)) -(PUT - (QUOTE |SINT;And;3$;21|) - (QUOTE |SPADreplace|) - (QUOTE LOGAND)) +(PUT '|SINT;And;3$;21| '|SPADreplace| 'LOGAND) -(DEFUN |SINT;And;3$;21| (|x| |y| $) - (LOGAND |x| |y|)) +(DEFUN |SINT;And;3$;21| (|x| |y| $) (LOGAND |x| |y|)) -(PUT - (QUOTE |SINT;Or;3$;22|) - (QUOTE |SPADreplace|) - (QUOTE LOGIOR)) +(PUT '|SINT;Or;3$;22| '|SPADreplace| 'LOGIOR) -(DEFUN |SINT;Or;3$;22| (|x| |y| $) - (LOGIOR |x| |y|)) +(DEFUN |SINT;Or;3$;22| (|x| |y| $) (LOGIOR |x| |y|)) -(PUT - (QUOTE |SINT;xor;3$;23|) - (QUOTE |SPADreplace|) - (QUOTE LOGXOR)) +(PUT '|SINT;xor;3$;23| '|SPADreplace| 'LOGXOR) -(DEFUN |SINT;xor;3$;23| (|x| |y| $) - (LOGXOR |x| |y|)) +(DEFUN |SINT;xor;3$;23| (|x| |y| $) (LOGXOR |x| |y|)) -(PUT - (QUOTE |SINT;<;2$B;24|) - (QUOTE |SPADreplace|) - (QUOTE QSLESSP)) +(PUT '|SINT;<;2$B;24| '|SPADreplace| 'QSLESSP) -(DEFUN |SINT;<;2$B;24| (|x| |y| $) - (QSLESSP |x| |y|)) +(DEFUN |SINT;<;2$B;24| (|x| |y| $) (QSLESSP |x| |y|)) -(PUT - (QUOTE |SINT;inc;2$;25|) - (QUOTE |SPADreplace|) - (QUOTE QSADD1)) +(PUT '|SINT;inc;2$;25| '|SPADreplace| 'QSADD1) -(DEFUN |SINT;inc;2$;25| (|x| $) - (QSADD1 |x|)) +(DEFUN |SINT;inc;2$;25| (|x| $) (QSADD1 |x|)) -(PUT - (QUOTE |SINT;dec;2$;26|) - (QUOTE |SPADreplace|) - (QUOTE QSSUB1)) +(PUT '|SINT;dec;2$;26| '|SPADreplace| 'QSSUB1) -(DEFUN |SINT;dec;2$;26| (|x| $) - (QSSUB1 |x|)) +(DEFUN |SINT;dec;2$;26| (|x| $) (QSSUB1 |x|)) -(PUT - (QUOTE |SINT;-;2$;27|) - (QUOTE |SPADreplace|) - (QUOTE QSMINUS)) +(PUT '|SINT;-;2$;27| '|SPADreplace| 'QSMINUS) -(DEFUN |SINT;-;2$;27| (|x| $) - (QSMINUS |x|)) +(DEFUN |SINT;-;2$;27| (|x| $) (QSMINUS |x|)) -(PUT - (QUOTE |SINT;+;3$;28|) - (QUOTE |SPADreplace|) - (QUOTE QSPLUS)) +(PUT '|SINT;+;3$;28| '|SPADreplace| 'QSPLUS) -(DEFUN |SINT;+;3$;28| (|x| |y| $) - (QSPLUS |x| |y|)) +(DEFUN |SINT;+;3$;28| (|x| |y| $) (QSPLUS |x| |y|)) -(PUT - (QUOTE |SINT;-;3$;29|) - (QUOTE |SPADreplace|) - (QUOTE QSDIFFERENCE)) +(PUT '|SINT;-;3$;29| '|SPADreplace| 'QSDIFFERENCE) -(DEFUN |SINT;-;3$;29| (|x| |y| $) - (QSDIFFERENCE |x| |y|)) +(DEFUN |SINT;-;3$;29| (|x| |y| $) (QSDIFFERENCE |x| |y|)) -(PUT - (QUOTE |SINT;*;3$;30|) - (QUOTE |SPADreplace|) - (QUOTE QSTIMES)) +(PUT '|SINT;*;3$;30| '|SPADreplace| 'QSTIMES) -(DEFUN |SINT;*;3$;30| (|x| |y| $) - (QSTIMES |x| |y|)) +(DEFUN |SINT;*;3$;30| (|x| |y| $) (QSTIMES |x| |y|)) -(DEFUN |SINT;**;$Nni$;31| (|x| |n| $) - (SPADCALL (EXPT |x| |n|) (QREFELT $ 33))) +(DEFUN |SINT;**;$Nni$;31| (|x| |n| $) + (SPADCALL (EXPT |x| |n|) (|getShellEntry| $ 33))) -(PUT - (QUOTE |SINT;quo;3$;32|) - (QUOTE |SPADreplace|) - (QUOTE QSQUOTIENT)) +(PUT '|SINT;quo;3$;32| '|SPADreplace| 'QSQUOTIENT) -(DEFUN |SINT;quo;3$;32| (|x| |y| $) - (QSQUOTIENT |x| |y|)) +(DEFUN |SINT;quo;3$;32| (|x| |y| $) (QSQUOTIENT |x| |y|)) -(PUT - (QUOTE |SINT;rem;3$;33|) - (QUOTE |SPADreplace|) - (QUOTE QSREMAINDER)) +(PUT '|SINT;rem;3$;33| '|SPADreplace| 'QSREMAINDER) -(DEFUN |SINT;rem;3$;33| (|x| |y| $) - (QSREMAINDER |x| |y|)) +(DEFUN |SINT;rem;3$;33| (|x| |y| $) (QSREMAINDER |x| |y|)) -(DEFUN |SINT;divide;2$R;34| (|x| |y| $) +(DEFUN |SINT;divide;2$R;34| (|x| |y| $) (CONS (QSQUOTIENT |x| |y|) (QSREMAINDER |x| |y|))) -(PUT (QUOTE |SINT;gcd;3$;35|) - (QUOTE |SPADreplace|) (QUOTE GCD)) +(PUT '|SINT;gcd;3$;35| '|SPADreplace| 'GCD) + +(DEFUN |SINT;gcd;3$;35| (|x| |y| $) (GCD |x| |y|)) + +(PUT '|SINT;abs;2$;36| '|SPADreplace| 'QSABSVAL) + +(DEFUN |SINT;abs;2$;36| (|x| $) (QSABSVAL |x|)) + +(PUT '|SINT;odd?;$B;37| '|SPADreplace| 'QSODDP) + +(DEFUN |SINT;odd?;$B;37| (|x| $) (QSODDP |x|)) + +(PUT '|SINT;zero?;$B;38| '|SPADreplace| 'QSZEROP) + +(DEFUN |SINT;zero?;$B;38| (|x| $) (QSZEROP |x|)) + +(PUT '|SINT;one?;$B;39| '|SPADreplace| '(XLAM (|x|) (EQL |x| 1))) + +(DEFUN |SINT;one?;$B;39| (|x| $) (EQL |x| 1)) + +(PUT '|SINT;max;3$;40| '|SPADreplace| 'QSMAX) + +(DEFUN |SINT;max;3$;40| (|x| |y| $) (QSMAX |x| |y|)) + +(PUT '|SINT;min;3$;41| '|SPADreplace| 'QSMIN) + +(DEFUN |SINT;min;3$;41| (|x| |y| $) (QSMIN |x| |y|)) + +(PUT '|SINT;hash;2$;42| '|SPADreplace| 'HASHEQ) + +(DEFUN |SINT;hash;2$;42| (|x| $) (HASHEQ |x|)) + +(PUT '|SINT;length;2$;43| '|SPADreplace| 'INTEGER-LENGTH) + +(DEFUN |SINT;length;2$;43| (|x| $) (INTEGER-LENGTH |x|)) + +(PUT '|SINT;shift;3$;44| '|SPADreplace| 'QSLEFTSHIFT) + +(DEFUN |SINT;shift;3$;44| (|x| |n| $) (QSLEFTSHIFT |x| |n|)) + +(PUT '|SINT;mulmod;4$;45| '|SPADreplace| 'QSMULTMOD) + +(DEFUN |SINT;mulmod;4$;45| (|a| |b| |p| $) (QSMULTMOD |a| |b| |p|)) + +(PUT '|SINT;addmod;4$;46| '|SPADreplace| 'QSADDMOD) + +(DEFUN |SINT;addmod;4$;46| (|a| |b| |p| $) (QSADDMOD |a| |b| |p|)) -(DEFUN |SINT;gcd;3$;35| (|x| |y| $) - (GCD |x| |y|)) +(PUT '|SINT;submod;4$;47| '|SPADreplace| 'QSDIFMOD) -(PUT - (QUOTE |SINT;abs;2$;36|) - (QUOTE |SPADreplace|) - (QUOTE QSABSVAL)) +(DEFUN |SINT;submod;4$;47| (|a| |b| |p| $) (QSDIFMOD |a| |b| |p|)) -(DEFUN |SINT;abs;2$;36| (|x| $) - (QSABSVAL |x|)) +(PUT '|SINT;negative?;$B;48| '|SPADreplace| 'QSMINUSP) -(PUT - (QUOTE |SINT;odd?;$B;37|) - (QUOTE |SPADreplace|) - (QUOTE QSODDP)) - -(DEFUN |SINT;odd?;$B;37| (|x| $) - (QSODDP |x|)) - -(PUT - (QUOTE |SINT;zero?;$B;38|) - (QUOTE |SPADreplace|) - (QUOTE QSZEROP)) - -(DEFUN |SINT;zero?;$B;38| (|x| $) - (QSZEROP |x|)) - -(PUT - (QUOTE |SINT;max;3$;39|) - (QUOTE |SPADreplace|) - (QUOTE QSMAX)) - -(DEFUN |SINT;max;3$;39| (|x| |y| $) - (QSMAX |x| |y|)) - -(PUT - (QUOTE |SINT;min;3$;40|) - (QUOTE |SPADreplace|) - (QUOTE QSMIN)) - -(DEFUN |SINT;min;3$;40| (|x| |y| $) - (QSMIN |x| |y|)) - -(PUT - (QUOTE |SINT;hash;2$;41|) - (QUOTE |SPADreplace|) - (QUOTE HASHEQ)) - -(DEFUN |SINT;hash;2$;41| (|x| $) - (HASHEQ |x|)) - -(PUT - (QUOTE |SINT;length;2$;42|) - (QUOTE |SPADreplace|) - (QUOTE INTEGER-LENGTH)) - -(DEFUN |SINT;length;2$;42| (|x| $) - (INTEGER-LENGTH |x|)) - -(PUT - (QUOTE |SINT;shift;3$;43|) - (QUOTE |SPADreplace|) - (QUOTE QSLEFTSHIFT)) - -(DEFUN |SINT;shift;3$;43| (|x| |n| $) - (QSLEFTSHIFT |x| |n|)) - -(PUT - (QUOTE |SINT;mulmod;4$;44|) - (QUOTE |SPADreplace|) - (QUOTE QSMULTMOD)) - -(DEFUN |SINT;mulmod;4$;44| (|a| |b| |p| $) - (QSMULTMOD |a| |b| |p|)) - -(PUT - (QUOTE |SINT;addmod;4$;45|) - (QUOTE |SPADreplace|) - (QUOTE QSADDMOD)) - -(DEFUN |SINT;addmod;4$;45| (|a| |b| |p| $) - (QSADDMOD |a| |b| |p|)) - -(PUT - (QUOTE |SINT;submod;4$;46|) - (QUOTE |SPADreplace|) - (QUOTE QSDIFMOD)) - -(DEFUN |SINT;submod;4$;46| (|a| |b| |p| $) - (QSDIFMOD |a| |b| |p|)) - -(PUT - (QUOTE |SINT;negative?;$B;47|) - (QUOTE |SPADreplace|) - (QUOTE QSMINUSP)) - -(DEFUN |SINT;negative?;$B;47| (|x| $) - (QSMINUSP |x|)) - -(PUT - (QUOTE |SINT;reducedSystem;MVR;48|) - (QUOTE |SPADreplace|) - (QUOTE CONS)) - -(DEFUN |SINT;reducedSystem;MVR;48| (|m| |v| $) - (CONS |m| |v|)) - -(DEFUN |SINT;positiveRemainder;3$;49| (|x| |n| $) - (PROG (|r|) - (RETURN - (SEQ - (LETT |r| (QSREMAINDER |x| |n|) |SINT;positiveRemainder;3$;49|) - (EXIT - (COND - ((QSMINUSP |r|) - (COND - ((QSMINUSP |n|) (QSDIFFERENCE |x| |n|)) - ((QUOTE T) (QSPLUS |r| |n|)))) - ((QUOTE T) |r|))))))) - -(DEFUN |SINT;coerce;I$;50| (|x| $) - (SEQ - (COND - ((NULL (< MOST-POSITIVE-FIXNUM |x|)) - (COND ((NULL (< |x| MOST-NEGATIVE-FIXNUM)) (EXIT |x|))))) - (EXIT (|error| "integer too large to represent in a machine word")))) - -(DEFUN |SINT;random;$;51| ($) - (SEQ - (SETELT $ 6 (REMAINDER (TIMES 314159269 (QREFELT $ 6)) 2147483647)) - (EXIT (REMAINDER (QREFELT $ 6) 67108864)))) - -(PUT - (QUOTE |SINT;random;2$;52|) - (QUOTE |SPADreplace|) - (QUOTE RANDOM)) - -(DEFUN |SINT;random;2$;52| (|n| $) - (RANDOM |n|)) - -(DEFUN |SINT;unitNormal;$R;53| (|x| $) - (COND +(DEFUN |SINT;negative?;$B;48| (|x| $) (QSMINUSP |x|)) + +(PUT '|SINT;reducedSystem;MVR;49| '|SPADreplace| 'CONS) + +(DEFUN |SINT;reducedSystem;MVR;49| (|m| |v| $) (CONS |m| |v|)) + +(DEFUN |SINT;positiveRemainder;3$;50| (|x| |n| $) + (PROG (|r|) + (RETURN + (SEQ (LETT |r| (QSREMAINDER |x| |n|) + |SINT;positiveRemainder;3$;50|) + (EXIT (COND + ((QSMINUSP |r|) + (COND + ((QSMINUSP |n|) (QSDIFFERENCE |x| |n|)) + ('T (QSPLUS |r| |n|)))) + ('T |r|))))))) + +(DEFUN |SINT;coerce;I$;51| (|x| $) + (SEQ (COND + ((NULL (< MOST-POSITIVE-FIXNUM |x|)) + (COND ((NULL (< |x| MOST-NEGATIVE-FIXNUM)) (EXIT |x|))))) + (EXIT (|error| "integer too large to represent in a machine word")))) + +(DEFUN |SINT;random;$;52| ($) + (SEQ (SETELT $ 6 + (REMAINDER (TIMES 314159269 (|getShellEntry| $ 6)) + 2147483647)) + (EXIT (REMAINDER (|getShellEntry| $ 6) 67108864)))) + +(PUT '|SINT;random;2$;53| '|SPADreplace| 'RANDOM) + +(DEFUN |SINT;random;2$;53| (|n| $) (RANDOM |n|)) + +(DEFUN |SINT;unitNormal;$R;54| (|x| $) + (COND ((QSLESSP |x| 0) (VECTOR -1 (QSMINUS |x|) -1)) - ((QUOTE T) (VECTOR 1 |x| 1)))) - -(DEFUN |SingleInteger| NIL - (PROG NIL - (RETURN - (PROG (#0=#:G1358) - (RETURN - (COND - ((LETT #0# - (HGET |$ConstructorCache| (QUOTE |SingleInteger|)) - |SingleInteger|) - (|CDRwithIncrement| (CDAR #0#))) - ((QUOTE T) - (UNWIND-PROTECT - (PROG1 - (CDDAR - (HPUT - |$ConstructorCache| - (QUOTE |SingleInteger|) - (LIST (CONS NIL (CONS 1 (|SingleInteger;|)))))) - (LETT #0# T |SingleInteger|)) - (COND - ((NOT #0#) - (HREM |$ConstructorCache| - (QUOTE |SingleInteger|)))))))))))) - -(DEFUN |SingleInteger;| NIL - (PROG (|dv$| $ |pv$|) - (RETURN - (PROGN - (LETT |dv$| (QUOTE (|SingleInteger|)) . #0=(|SingleInteger|)) - (LETT $ (GETREFV 103) . #0#) - (QSETREFV $ 0 |dv$|) - (QSETREFV $ 3 (LETT |pv$| (|buildPredVector| 0 0 NIL) . #0#)) - (|haddProp| |$ConstructorCache| (QUOTE |SingleInteger|) NIL (CONS 1 $)) - (|stuffDomainSlots| $) (QSETREFV $ 6 1) $)))) - -(MAKEPROP - (QUOTE |SingleInteger|) - (QUOTE |infovec|) - (LIST - (QUOTE - #(NIL NIL NIL NIL NIL NIL - (QUOTE |seed|) - (|Void|) - (|OpenMathDevice|) - (0 . |OMputApp|) - (|String|) - (5 . |OMputSymbol|) - (|Integer|) - (12 . |OMputInteger|) - (18 . |OMputEndApp|) - (|OpenMathEncoding|) - (23 . |OMencodingXML|) - (27 . |OMopenString|) - (33 . |OMputObject|) - (38 . |OMputEndObject|) - (43 . |OMclose|) - |SINT;OMwrite;$S;2| - (|Boolean|) - |SINT;OMwrite;$BS;3| - |SINT;OMwrite;Omd$V;4| - |SINT;OMwrite;Omd$BV;5| - (|Matrix| 12) - (|Matrix| $) - |SINT;reducedSystem;MM;6| - (|OutputForm|) - (48 . |coerce|) - |SINT;coerce;$Of;7| - |SINT;convert;$I;8| - (53 . |coerce|) - |SINT;*;I2$;9| - (CONS IDENTITY (FUNCALL (|dispatchFunction| |SINT;Zero;$;10|) $)) - (CONS IDENTITY (FUNCALL (|dispatchFunction| |SINT;One;$;11|) $)) - |SINT;base;$;12| - |SINT;max;$;13| - |SINT;min;$;14| - |SINT;=;2$B;15| - |SINT;~;2$;16| - |SINT;not;2$;17| - |SINT;/\\;3$;18| - |SINT;\\/;3$;19| - |SINT;Not;2$;20| - |SINT;And;3$;21| - |SINT;Or;3$;22| - |SINT;xor;3$;23| - |SINT;<;2$B;24| - |SINT;inc;2$;25| - |SINT;dec;2$;26| - |SINT;-;2$;27| - |SINT;+;3$;28| - |SINT;-;3$;29| - |SINT;*;3$;30| - (|NonNegativeInteger|) - |SINT;**;$Nni$;31| - |SINT;quo;3$;32| - |SINT;rem;3$;33| - (|Record| (|:| |quotient| $) (|:| |remainder| $)) - |SINT;divide;2$R;34| - |SINT;gcd;3$;35| - |SINT;abs;2$;36| - |SINT;odd?;$B;37| - |SINT;zero?;$B;38| - |SINT;max;3$;39| - |SINT;min;3$;40| - |SINT;hash;2$;41| - |SINT;length;2$;42| - |SINT;shift;3$;43| - |SINT;mulmod;4$;44| - |SINT;addmod;4$;45| - |SINT;submod;4$;46| - |SINT;negative?;$B;47| - (|Record| (|:| |mat| 26) (|:| |vec| (|Vector| 12))) - (|Vector| $) - |SINT;reducedSystem;MVR;48| - |SINT;positiveRemainder;3$;49| - |SINT;coerce;I$;50| - |SINT;random;$;51| - |SINT;random;2$;52| - (|Record| (|:| |unit| $) (|:| |canonical| $) (|:| |associate| $)) - |SINT;unitNormal;$R;53| - (|Union| 85 (QUOTE "failed")) - (|Fraction| 12) - (|Union| $ (QUOTE "failed")) - (|Float|) - (|DoubleFloat|) - (|Pattern| 12) - (|PatternMatchResult| 12 $) - (|InputForm|) - (|Union| 12 (QUOTE "failed")) - (|Record| (|:| |coef| 94) (|:| |generator| $)) - (|List| $) - (|Union| 94 (QUOTE "failed")) - (|Record| (|:| |coef1| $) (|:| |coef2| $) (|:| |generator| $)) - (|Record| (|:| |coef1| $) (|:| |coef2| $)) - (|Union| 97 (QUOTE "failed")) - (|Factored| $) - (|SparseUnivariatePolynomial| $) - (|PositiveInteger|) - (|SingleInteger|))) - (QUOTE - #(~= 58 ~ 64 |zero?| 69 |xor| 74 |unitNormal| 80 |unitCanonical| 85 - |unit?| 90 |symmetricRemainder| 95 |subtractIfCan| 101 |submod| 107 - |squareFreePart| 114 |squareFree| 119 |sizeLess?| 124 |sign| 130 - |shift| 135 |sample| 141 |retractIfCan| 145 |retract| 150 |rem| 155 - |reducedSystem| 161 |recip| 172 |rationalIfCan| 177 |rational?| 182 - |rational| 187 |random| 192 |quo| 201 |principalIdeal| 207 - |prime?| 212 |powmod| 217 |positiveRemainder| 224 |positive?| 230 - |permutation| 235 |patternMatch| 241 |one?| 248 |odd?| 253 |not| 258 - |nextItem| 263 |negative?| 268 |multiEuclidean| 273 |mulmod| 279 - |min| 286 |max| 296 |mask| 306 |length| 311 |lcm| 316 |latex| 327 - |invmod| 332 |init| 338 |inc| 342 |hash| 347 |gcdPolynomial| 357 - |gcd| 363 |factorial| 374 |factor| 379 |extendedEuclidean| 384 - |exquo| 397 |expressIdealMember| 403 |even?| 409 |euclideanSize| 414 - |divide| 419 |differentiate| 425 |dec| 436 |copy| 441 |convert| 446 - |coerce| 471 |characteristic| 491 |bit?| 495 |binomial| 501 - |base| 507 |associates?| 511 |addmod| 517 |abs| 524 ^ 529 |\\/| 541 - |Zero| 547 |Or| 551 |One| 557 |OMwrite| 561 |Not| 585 D 590 - |And| 601 >= 607 > 613 = 619 <= 625 < 631 |/\\| 637 - 643 + 654 - ** 660 * 672)) - (QUOTE ( - (|noetherian| . 0) - (|canonicalsClosed| . 0) - (|canonical| . 0) - (|canonicalUnitNormal| . 0) - (|multiplicativeValuation| . 0) - (|noZeroDivisors| . 0) - ((|commutative| "*") . 0) - (|rightUnitary| . 0) - (|leftUnitary| . 0) - (|unitsKnown| . 0))) - (CONS - (|makeByteWordVec2| 1 - (QUOTE (0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 - 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 - 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0))) - (CONS - (QUOTE - #(|IntegerNumberSystem&| |EuclideanDomain&| - |UniqueFactorizationDomain&| NIL NIL |GcdDomain&| - |IntegralDomain&| |Algebra&| |Module&| NIL |Module&| NIL NIL - |Module&| NIL |DifferentialRing&| |OrderedRing&| NIL |Module&| - NIL |Module&| NIL NIL NIL NIL NIL NIL |Ring&| NIL NIL NIL NIL - NIL NIL NIL NIL NIL NIL NIL NIL NIL |AbelianGroup&| NIL NIL - |AbelianMonoid&| |Monoid&| NIL NIL NIL NIL |OrderedSet&| - |AbelianSemiGroup&| |SemiGroup&| |Logic&| NIL |SetCategory&| NIL - NIL NIL NIL |RetractableTo&| NIL NIL NIL |RetractableTo&| NIL NIL - NIL NIL NIL NIL |RetractableTo&| NIL |BasicType&| NIL)) - (CONS - (QUOTE - #((|IntegerNumberSystem|) (|EuclideanDomain|) - (|UniqueFactorizationDomain|) (|PrincipalIdealDomain|) - (|OrderedIntegralDomain|) (|GcdDomain|) (|IntegralDomain|) - (|Algebra| $$) (|Module| 12) (|LinearlyExplicitRingOver| 12) - (|Module| #0=#:G1062) (|LinearlyExplicitRingOver| #0#) - (|CharacteristicZero|) (|Module| #1=#:G106217) - (|LinearlyExplicitRingOver| #1#) (|DifferentialRing|) - (|OrderedRing|) (|CommutativeRing|) (|Module| |t#1|) - (|EntireRing|) (|Module| $$) (|BiModule| 12 12) - (|BiModule| #0# #0#) (|BiModule| #1# #1#) - (|OrderedAbelianGroup|) (|BiModule| |t#1| |t#1|) - (|BiModule| $$ $$) (|Ring|) (|RightModule| 12) - (|LeftModule| 12) (|RightModule| #0#) (|LeftModule| #0#) - (|RightModule| #1#) (|LeftModule| #1#) - (|OrderedCancellationAbelianMonoid|) (|RightModule| |t#1|) - (|LeftModule| |t#1|) (|LeftModule| $$) (|Rng|) - (|RightModule| $$) (|OrderedAbelianMonoid|) (|AbelianGroup|) - (|OrderedAbelianSemiGroup|) (|CancellationAbelianMonoid|) - (|AbelianMonoid|) (|Monoid|) (|PatternMatchable| 12) - (|PatternMatchable| #:G1065) (|StepThrough|) - (|PatternMatchable| #:G106220) (|OrderedSet|) - (|AbelianSemiGroup|) (|SemiGroup|) (|Logic|) (|RealConstant|) - (|SetCategory|) (|OpenMath|) (|CoercibleTo| #:G82356) - (|ConvertibleTo| 89) (|ConvertibleTo| 91) (|RetractableTo| 12) - (|ConvertibleTo| 12) (|ConvertibleTo| #:G1064) - (|ConvertibleTo| #:G1063) (|RetractableTo| #:G1061) - (|ConvertibleTo| #:G1060) (|ConvertibleTo| 87) - (|ConvertibleTo| 88) (|CombinatorialFunctionCategory|) - (|ConvertibleTo| #:G106219) (|ConvertibleTo| #:G106218) - (|RetractableTo| #:G106216) (|ConvertibleTo| #:G106215) - (|BasicType|) (|CoercibleTo| 29))) - (|makeByteWordVec2| 102 - (QUOTE - (1 8 7 0 9 3 8 7 0 10 10 11 2 8 7 0 12 13 1 8 7 0 14 0 15 0 - 16 2 8 0 10 15 17 1 8 7 0 18 1 8 7 0 19 1 8 7 0 20 1 12 29 - 0 30 1 0 0 12 33 2 0 22 0 0 1 1 0 0 0 41 1 0 22 0 65 2 0 0 - 0 0 48 1 0 82 0 83 1 0 0 0 1 1 0 22 0 1 2 0 0 0 0 1 2 0 86 - 0 0 1 3 0 0 0 0 0 73 1 0 0 0 1 1 0 99 0 1 2 0 22 0 0 1 1 0 - 12 0 1 2 0 0 0 0 70 0 0 0 1 1 0 92 0 1 1 0 12 0 1 2 0 0 0 0 - 59 1 0 26 27 28 2 0 75 27 76 77 1 0 86 0 1 1 0 84 0 1 1 0 - 22 0 1 1 0 85 0 1 1 0 0 0 81 0 0 0 80 2 0 0 0 0 58 1 0 93 - 94 1 1 0 22 0 1 3 0 0 0 0 0 1 2 0 0 0 0 78 1 0 22 0 1 2 0 0 - 0 0 1 3 0 90 0 89 90 1 1 0 22 0 1 1 0 22 0 64 1 0 0 0 42 1 - 0 86 0 1 1 0 22 0 74 2 0 95 94 0 1 3 0 0 0 0 0 71 0 0 0 39 - 2 0 0 0 0 67 0 0 0 38 2 0 0 0 0 66 1 0 0 0 1 1 0 0 0 69 1 0 - 0 94 1 2 0 0 0 0 1 1 0 10 0 1 2 0 0 0 0 1 0 0 0 1 1 0 0 0 50 - 1 0 0 0 68 1 0 102 0 1 2 0 100 100 100 1 1 0 0 94 1 2 0 0 0 - 0 62 1 0 0 0 1 1 0 99 0 1 2 0 96 0 0 1 3 0 98 0 0 0 1 2 0 86 - 0 0 1 2 0 95 94 0 1 1 0 22 0 1 1 0 56 0 1 2 0 60 0 0 61 1 0 - 0 0 1 2 0 0 0 56 1 1 0 0 0 51 1 0 0 0 1 1 0 87 0 1 1 0 88 0 - 1 1 0 89 0 1 1 0 91 0 1 1 0 12 0 32 1 0 0 12 79 1 0 0 0 1 1 - 0 0 12 79 1 0 29 0 31 0 0 56 1 2 0 22 0 0 1 2 0 0 0 0 1 0 0 - 0 37 2 0 22 0 0 1 3 0 0 0 0 0 72 1 0 0 0 63 2 0 0 0 56 1 2 0 - 0 0 101 1 2 0 0 0 0 44 0 0 0 35 2 0 0 0 0 47 0 0 0 36 3 0 7 - 8 0 22 25 2 0 10 0 22 23 2 0 7 8 0 24 1 0 10 0 21 1 0 0 0 45 - 1 0 0 0 1 2 0 0 0 56 1 2 0 0 0 0 46 2 0 22 0 0 1 2 0 22 0 0 - 1 2 0 22 0 0 40 2 0 22 0 0 1 2 0 22 0 0 49 2 0 0 0 0 43 1 0 - 0 0 52 2 0 0 0 0 54 2 0 0 0 0 53 2 0 0 0 56 57 2 0 0 0 101 1 - 2 0 0 0 0 55 2 0 0 12 0 34 2 0 0 56 0 1 2 0 0 101 0 1)))))) - (QUOTE |lookupComplete|))) - -(MAKEPROP (QUOTE |SingleInteger|) (QUOTE NILADIC) T) + ('T (VECTOR 1 |x| 1)))) + +(DEFUN |SingleInteger| () + (PROG () + (RETURN + (PROG (#0=#:G1486) + (RETURN + (COND + ((LETT #0# (HGET |$ConstructorCache| '|SingleInteger|) + |SingleInteger|) + (|CDRwithIncrement| (CDAR #0#))) + ('T + (UNWIND-PROTECT + (PROG1 (CDDAR (HPUT |$ConstructorCache| '|SingleInteger| + (LIST + (CONS NIL + (CONS 1 (|SingleInteger;|)))))) + (LETT #0# T |SingleInteger|)) + (COND + ((NOT #0#) + (HREM |$ConstructorCache| '|SingleInteger|))))))))))) + +(DEFUN |SingleInteger;| () + (PROG (|dv$| $ |pv$|) + (RETURN + (PROGN + (LETT |dv$| '(|SingleInteger|) . #0=(|SingleInteger|)) + (LETT $ (|newShell| 105) . #0#) + (|setShellEntry| $ 0 |dv$|) + (|setShellEntry| $ 3 + (LETT |pv$| (|buildPredVector| 0 0 NIL) . #0#)) + (|haddProp| |$ConstructorCache| '|SingleInteger| NIL + (CONS 1 $)) + (|stuffDomainSlots| $) + (|setShellEntry| $ 6 1) + $)))) +(MAKEPROP '|SingleInteger| '|infovec| + (LIST '#(NIL NIL NIL NIL NIL NIL '|seed| (|Void|) + (|OpenMathDevice|) (0 . |OMputApp|) (|String|) + (5 . |OMputSymbol|) (|Integer|) (12 . |OMputInteger|) + (18 . |OMputEndApp|) (|OpenMathEncoding|) + (23 . |OMencodingXML|) (27 . |OMopenString|) + (33 . |OMputObject|) (38 . |OMputEndObject|) + (43 . |OMclose|) |SINT;OMwrite;$S;2| (|Boolean|) + |SINT;OMwrite;$BS;3| |SINT;OMwrite;Omd$V;4| + |SINT;OMwrite;Omd$BV;5| (|Matrix| 12) (|Matrix| $) + |SINT;reducedSystem;MM;6| (|OutputForm|) (48 . |coerce|) + |SINT;coerce;$Of;7| |SINT;convert;$I;8| (53 . |coerce|) + |SINT;*;I2$;9| + (CONS IDENTITY + (FUNCALL (|dispatchFunction| |SINT;Zero;$;10|) $)) + (CONS IDENTITY + (FUNCALL (|dispatchFunction| |SINT;One;$;11|) $)) + |SINT;base;$;12| |SINT;max;$;13| |SINT;min;$;14| + |SINT;=;2$B;15| |SINT;~;2$;16| |SINT;not;2$;17| + |SINT;/\\;3$;18| |SINT;\\/;3$;19| |SINT;Not;2$;20| + |SINT;And;3$;21| |SINT;Or;3$;22| |SINT;xor;3$;23| + |SINT;<;2$B;24| |SINT;inc;2$;25| |SINT;dec;2$;26| + |SINT;-;2$;27| |SINT;+;3$;28| |SINT;-;3$;29| + |SINT;*;3$;30| (|NonNegativeInteger|) |SINT;**;$Nni$;31| + |SINT;quo;3$;32| |SINT;rem;3$;33| + (|Record| (|:| |quotient| $) (|:| |remainder| $)) + |SINT;divide;2$R;34| |SINT;gcd;3$;35| |SINT;abs;2$;36| + |SINT;odd?;$B;37| |SINT;zero?;$B;38| |SINT;one?;$B;39| + |SINT;max;3$;40| |SINT;min;3$;41| |SINT;hash;2$;42| + |SINT;length;2$;43| |SINT;shift;3$;44| |SINT;mulmod;4$;45| + |SINT;addmod;4$;46| |SINT;submod;4$;47| + |SINT;negative?;$B;48| (|Vector| 12) + (|Record| (|:| |mat| 26) (|:| |vec| 76)) (|Vector| $) + |SINT;reducedSystem;MVR;49| |SINT;positiveRemainder;3$;50| + |SINT;coerce;I$;51| |SINT;random;$;52| |SINT;random;2$;53| + (|Record| (|:| |unit| $) (|:| |canonical| $) + (|:| |associate| $)) + |SINT;unitNormal;$R;54| (|Fraction| 12) + (|Union| 86 '"failed") (|Union| $ '"failed") (|Float|) + (|DoubleFloat|) (|Pattern| 12) (|PatternMatchResult| 12 $) + (|InputForm|) (|Union| 12 '"failed") (|List| $) + (|Record| (|:| |coef| 95) (|:| |generator| $)) + (|Union| 95 '"failed") + (|Record| (|:| |coef1| $) (|:| |coef2| $) + (|:| |generator| $)) + (|Record| (|:| |coef1| $) (|:| |coef2| $)) + (|Union| 99 '"failed") (|Factored| $) + (|SparseUnivariatePolynomial| $) (|PositiveInteger|) + (|SingleInteger|)) + '#(~= 58 ~ 64 |zero?| 69 |xor| 74 |unitNormal| 80 + |unitCanonical| 85 |unit?| 90 |symmetricRemainder| 95 + |subtractIfCan| 101 |submod| 107 |squareFreePart| 114 + |squareFree| 119 |sizeLess?| 124 |sign| 130 |shift| 135 + |sample| 141 |retractIfCan| 145 |retract| 150 |rem| 155 + |reducedSystem| 161 |recip| 172 |rationalIfCan| 177 + |rational?| 182 |rational| 187 |random| 192 |quo| 201 + |principalIdeal| 207 |prime?| 212 |powmod| 217 + |positiveRemainder| 224 |positive?| 230 |permutation| 235 + |patternMatch| 241 |one?| 248 |odd?| 253 |not| 258 + |nextItem| 263 |negative?| 268 |multiEuclidean| 273 + |mulmod| 279 |min| 286 |max| 296 |mask| 306 |length| 311 + |lcm| 316 |latex| 327 |invmod| 332 |init| 338 |inc| 342 + |hash| 347 |gcdPolynomial| 357 |gcd| 363 |factorial| 374 + |factor| 379 |extendedEuclidean| 384 |exquo| 397 + |expressIdealMember| 403 |even?| 409 |euclideanSize| 414 + |divide| 419 |differentiate| 425 |dec| 436 |copy| 441 + |convert| 446 |coerce| 471 |characteristic| 491 |bit?| 495 + |binomial| 501 |base| 507 |associates?| 511 |addmod| 517 + |abs| 524 ^ 529 |\\/| 541 |Zero| 547 |Or| 551 |One| 557 + |OMwrite| 561 |Not| 585 D 590 |And| 601 >= 607 > 613 = 619 + <= 625 < 631 |/\\| 637 - 643 + 654 ** 660 * 672) + '((|noetherian| . 0) (|canonicalsClosed| . 0) + (|canonical| . 0) (|canonicalUnitNormal| . 0) + (|multiplicativeValuation| . 0) (|noZeroDivisors| . 0) + ((|commutative| "*") . 0) (|rightUnitary| . 0) + (|leftUnitary| . 0) (|unitsKnown| . 0)) + (CONS (|makeByteWordVec2| 1 + '(0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 + 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0)) + (CONS '#(|IntegerNumberSystem&| |EuclideanDomain&| + |UniqueFactorizationDomain&| NIL NIL + |GcdDomain&| |IntegralDomain&| |Algebra&| NIL + NIL |DifferentialRing&| |OrderedRing&| NIL NIL + |Module&| NIL NIL |Ring&| NIL NIL NIL NIL NIL + |AbelianGroup&| NIL NIL |AbelianMonoid&| + |Monoid&| NIL NIL |OrderedSet&| + |AbelianSemiGroup&| |SemiGroup&| |Logic&| NIL + |SetCategory&| NIL NIL NIL NIL NIL NIL + |RetractableTo&| NIL |BasicType&| NIL) + (CONS '#((|IntegerNumberSystem|) + (|EuclideanDomain|) + (|UniqueFactorizationDomain|) + (|PrincipalIdealDomain|) + (|OrderedIntegralDomain|) (|GcdDomain|) + (|IntegralDomain|) (|Algebra| $$) + (|CharacteristicZero|) + (|LinearlyExplicitRingOver| 12) + (|DifferentialRing|) (|OrderedRing|) + (|CommutativeRing|) (|EntireRing|) + (|Module| $$) (|OrderedAbelianGroup|) + (|BiModule| $$ $$) (|Ring|) + (|OrderedCancellationAbelianMonoid|) + (|LeftModule| $$) (|Rng|) + (|RightModule| $$) + (|OrderedAbelianMonoid|) + (|AbelianGroup|) + (|OrderedAbelianSemiGroup|) + (|CancellationAbelianMonoid|) + (|AbelianMonoid|) (|Monoid|) + (|StepThrough|) (|PatternMatchable| 12) + (|OrderedSet|) (|AbelianSemiGroup|) + (|SemiGroup|) (|Logic|) (|RealConstant|) + (|SetCategory|) (|OpenMath|) + (|ConvertibleTo| 89) + (|ConvertibleTo| 90) + (|CombinatorialFunctionCategory|) + (|ConvertibleTo| 91) + (|ConvertibleTo| 93) + (|RetractableTo| 12) + (|ConvertibleTo| 12) (|BasicType|) + (|CoercibleTo| 29)) + (|makeByteWordVec2| 104 + '(1 8 7 0 9 3 8 7 0 10 10 11 2 8 7 0 12 + 13 1 8 7 0 14 0 15 0 16 2 8 0 10 15 + 17 1 8 7 0 18 1 8 7 0 19 1 8 7 0 20 1 + 12 29 0 30 1 0 0 12 33 2 0 22 0 0 1 1 + 0 0 0 41 1 0 22 0 65 2 0 0 0 0 48 1 0 + 84 0 85 1 0 0 0 1 1 0 22 0 1 2 0 0 0 + 0 1 2 0 88 0 0 1 3 0 0 0 0 0 74 1 0 0 + 0 1 1 0 101 0 1 2 0 22 0 0 1 1 0 12 0 + 1 2 0 0 0 0 71 0 0 0 1 1 0 94 0 1 1 0 + 12 0 1 2 0 0 0 0 59 1 0 26 27 28 2 0 + 77 27 78 79 1 0 88 0 1 1 0 87 0 1 1 0 + 22 0 1 1 0 86 0 1 1 0 0 0 83 0 0 0 82 + 2 0 0 0 0 58 1 0 96 95 1 1 0 22 0 1 3 + 0 0 0 0 0 1 2 0 0 0 0 80 1 0 22 0 1 2 + 0 0 0 0 1 3 0 92 0 91 92 1 1 0 22 0 + 66 1 0 22 0 64 1 0 0 0 42 1 0 88 0 1 + 1 0 22 0 75 2 0 97 95 0 1 3 0 0 0 0 0 + 72 0 0 0 39 2 0 0 0 0 68 0 0 0 38 2 0 + 0 0 0 67 1 0 0 0 1 1 0 0 0 70 1 0 0 + 95 1 2 0 0 0 0 1 1 0 10 0 1 2 0 0 0 0 + 1 0 0 0 1 1 0 0 0 50 1 0 0 0 69 1 0 + 104 0 1 2 0 102 102 102 1 1 0 0 95 1 + 2 0 0 0 0 62 1 0 0 0 1 1 0 101 0 1 2 + 0 98 0 0 1 3 0 100 0 0 0 1 2 0 88 0 0 + 1 2 0 97 95 0 1 1 0 22 0 1 1 0 56 0 1 + 2 0 60 0 0 61 1 0 0 0 1 2 0 0 0 56 1 + 1 0 0 0 51 1 0 0 0 1 1 0 89 0 1 1 0 + 90 0 1 1 0 91 0 1 1 0 93 0 1 1 0 12 0 + 32 1 0 0 12 81 1 0 0 0 1 1 0 0 12 81 + 1 0 29 0 31 0 0 56 1 2 0 22 0 0 1 2 0 + 0 0 0 1 0 0 0 37 2 0 22 0 0 1 3 0 0 0 + 0 0 73 1 0 0 0 63 2 0 0 0 56 1 2 0 0 + 0 103 1 2 0 0 0 0 44 0 0 0 35 2 0 0 0 + 0 47 0 0 0 36 3 0 7 8 0 22 25 2 0 10 + 0 22 23 2 0 7 8 0 24 1 0 10 0 21 1 0 + 0 0 45 1 0 0 0 1 2 0 0 0 56 1 2 0 0 0 + 0 46 2 0 22 0 0 1 2 0 22 0 0 1 2 0 22 + 0 0 40 2 0 22 0 0 1 2 0 22 0 0 49 2 0 + 0 0 0 43 1 0 0 0 52 2 0 0 0 0 54 2 0 + 0 0 0 53 2 0 0 0 56 57 2 0 0 0 103 1 + 2 0 0 0 0 55 2 0 0 12 0 34 2 0 0 56 0 + 1 2 0 0 103 0 1))))) + '|lookupComplete|)) + +(MAKEPROP '|SingleInteger| 'NILADIC T) @ + \section{License} + <<license>>= --Copyright (c) 1991-2002, The Numerical ALgorithms Group Ltd. --All rights reserved. diff --git a/src/algebra/symbol.spad.pamphlet b/src/algebra/symbol.spad.pamphlet index cb29a702..5966fc76 100644 --- a/src/algebra/symbol.spad.pamphlet +++ b/src/algebra/symbol.spad.pamphlet @@ -335,9 +335,9 @@ Note that this code is not included in the generated catdef.spad file. (DEFUN |SYMBOL;writeOMSym| (|dev| |x| $) (COND - ((SPADCALL |x| (QREFELT $ 21)) + ((SPADCALL |x| (|getShellEntry| $ 22)) (|error| "Cannot convert a scripted symbol to OpenMath")) - ('T (SPADCALL |dev| |x| (QREFELT $ 25))))) + ('T (SPADCALL |dev| |x| (|getShellEntry| $ 26))))) (DEFUN |SYMBOL;OMwrite;$S;2| (|x| $) (PROG (|sp| |dev| |s|) @@ -345,13 +345,13 @@ Note that this code is not included in the generated catdef.spad file. (SEQ (LETT |s| "" |SYMBOL;OMwrite;$S;2|) (LETT |sp| (OM-STRINGTOSTRINGPTR |s|) |SYMBOL;OMwrite;$S;2|) (LETT |dev| - (SPADCALL |sp| (SPADCALL (QREFELT $ 27)) - (QREFELT $ 29)) + (SPADCALL |sp| (SPADCALL (|getShellEntry| $ 28)) + (|getShellEntry| $ 29)) |SYMBOL;OMwrite;$S;2|) - (SPADCALL |dev| (QREFELT $ 30)) + (SPADCALL |dev| (|getShellEntry| $ 30)) (|SYMBOL;writeOMSym| |dev| |x| $) - (SPADCALL |dev| (QREFELT $ 31)) - (SPADCALL |dev| (QREFELT $ 32)) + (SPADCALL |dev| (|getShellEntry| $ 31)) + (SPADCALL |dev| (|getShellEntry| $ 32)) (LETT |s| (OM-STRINGPTRTOSTRING |sp|) |SYMBOL;OMwrite;$S;2|) (EXIT |s|))))) @@ -362,28 +362,30 @@ Note that this code is not included in the generated catdef.spad file. (LETT |sp| (OM-STRINGTOSTRINGPTR |s|) |SYMBOL;OMwrite;$BS;3|) (LETT |dev| - (SPADCALL |sp| (SPADCALL (QREFELT $ 27)) - (QREFELT $ 29)) + (SPADCALL |sp| (SPADCALL (|getShellEntry| $ 28)) + (|getShellEntry| $ 29)) |SYMBOL;OMwrite;$BS;3|) - (COND (|wholeObj| (SPADCALL |dev| (QREFELT $ 30)))) + (COND (|wholeObj| (SPADCALL |dev| (|getShellEntry| $ 30)))) (|SYMBOL;writeOMSym| |dev| |x| $) - (COND (|wholeObj| (SPADCALL |dev| (QREFELT $ 31)))) - (SPADCALL |dev| (QREFELT $ 32)) + (COND (|wholeObj| (SPADCALL |dev| (|getShellEntry| $ 31)))) + (SPADCALL |dev| (|getShellEntry| $ 32)) (LETT |s| (OM-STRINGPTRTOSTRING |sp|) |SYMBOL;OMwrite;$BS;3|) (EXIT |s|))))) (DEFUN |SYMBOL;OMwrite;Omd$V;4| (|dev| |x| $) - (SEQ (SPADCALL |dev| (QREFELT $ 30)) + (SEQ (SPADCALL |dev| (|getShellEntry| $ 30)) (|SYMBOL;writeOMSym| |dev| |x| $) - (EXIT (SPADCALL |dev| (QREFELT $ 31))))) + (EXIT (SPADCALL |dev| (|getShellEntry| $ 31))))) (DEFUN |SYMBOL;OMwrite;Omd$BV;5| (|dev| |x| |wholeObj| $) - (SEQ (COND (|wholeObj| (SPADCALL |dev| (QREFELT $ 30)))) + (SEQ (COND (|wholeObj| (SPADCALL |dev| (|getShellEntry| $ 30)))) (|SYMBOL;writeOMSym| |dev| |x| $) - (EXIT (COND (|wholeObj| (SPADCALL |dev| (QREFELT $ 31))))))) + (EXIT (COND + (|wholeObj| (SPADCALL |dev| (|getShellEntry| $ 31))))))) -(DEFUN |SYMBOL;convert;$If;6| (|s| $) (SPADCALL |s| (QREFELT $ 45))) +(DEFUN |SYMBOL;convert;$If;6| (|s| $) + (SPADCALL |s| (|getShellEntry| $ 45))) (PUT '|SYMBOL;convert;$S;7| '|SPADreplace| '(XLAM (|s|) |s|)) @@ -400,32 +402,35 @@ Note that this code is not included in the generated catdef.spad file. (DEFUN |SYMBOL;<;2$B;10| (|x| |y| $) (GGREATERP |y| |x|)) -(DEFUN |SYMBOL;coerce;$Of;11| (|x| $) (SPADCALL |x| (QREFELT $ 52))) +(DEFUN |SYMBOL;coerce;$Of;11| (|x| $) + (SPADCALL |x| (|getShellEntry| $ 52))) (DEFUN |SYMBOL;subscript;$L$;12| (|sy| |lx| $) - (SPADCALL |sy| (LIST |lx| NIL NIL NIL NIL) (QREFELT $ 55))) + (SPADCALL |sy| (LIST |lx| NIL NIL NIL NIL) (|getShellEntry| $ 56))) (DEFUN |SYMBOL;elt;$L$;13| (|sy| |lx| $) - (SPADCALL |sy| |lx| (QREFELT $ 57))) + (SPADCALL |sy| |lx| (|getShellEntry| $ 57))) (DEFUN |SYMBOL;superscript;$L$;14| (|sy| |lx| $) - (SPADCALL |sy| (LIST NIL |lx| NIL NIL NIL) (QREFELT $ 55))) + (SPADCALL |sy| (LIST NIL |lx| NIL NIL NIL) (|getShellEntry| $ 56))) (DEFUN |SYMBOL;argscript;$L$;15| (|sy| |lx| $) - (SPADCALL |sy| (LIST NIL NIL NIL NIL |lx|) (QREFELT $ 55))) + (SPADCALL |sy| (LIST NIL NIL NIL NIL |lx|) (|getShellEntry| $ 56))) (DEFUN |SYMBOL;patternMatch;$P2Pmr;16| (|x| |p| |l| $) - (SPADCALL |x| |p| |l| (QREFELT $ 64))) + (SPADCALL |x| |p| |l| (|getShellEntry| $ 64))) (DEFUN |SYMBOL;patternMatch;$P2Pmr;17| (|x| |p| |l| $) - (SPADCALL |x| |p| |l| (QREFELT $ 70))) + (SPADCALL |x| |p| |l| (|getShellEntry| $ 71))) -(DEFUN |SYMBOL;convert;$P;18| (|x| $) (SPADCALL |x| (QREFELT $ 73))) +(DEFUN |SYMBOL;convert;$P;18| (|x| $) + (SPADCALL |x| (|getShellEntry| $ 74))) -(DEFUN |SYMBOL;convert;$P;19| (|x| $) (SPADCALL |x| (QREFELT $ 75))) +(DEFUN |SYMBOL;convert;$P;19| (|x| $) + (SPADCALL |x| (|getShellEntry| $ 76))) (DEFUN |SYMBOL;syprefix| (|sc| $) - (PROG (|ns| #0=#:G3018 |n| #1=#:G3019) + (PROG (|ns| #0=#:G1449 |n| #1=#:G1450) (RETURN (SEQ (LETT |ns| (LIST (LENGTH (QVELT |sc| 3)) (LENGTH (QVELT |sc| 2)) @@ -440,7 +445,7 @@ Note that this code is not included in the generated catdef.spad file. (SEQ (EXIT (LETT |ns| (CDR |ns|) |SYMBOL;syprefix|))) NIL (GO G190) G191 (EXIT NIL)) (EXIT (SPADCALL - (CONS (STRCONC (QREFELT $ 37) + (CONS (STRCONC (|getShellEntry| $ 37) (|SYMBOL;istring| (LENGTH (QVELT |sc| 4)) $)) (PROGN @@ -465,19 +470,22 @@ Note that this code is not included in the generated catdef.spad file. |SYMBOL;syprefix|) (GO G190) G191 (EXIT (NREVERSE0 #0#))))) - (QREFELT $ 78))))))) + (|getShellEntry| $ 79))))))) (DEFUN |SYMBOL;syscripts| (|sc| $) (PROG (|all|) (RETURN (SEQ (LETT |all| (QVELT |sc| 3) |SYMBOL;syscripts|) - (LETT |all| (SPADCALL (QVELT |sc| 2) |all| (QREFELT $ 79)) + (LETT |all| + (SPADCALL (QVELT |sc| 2) |all| (|getShellEntry| $ 80)) |SYMBOL;syscripts|) - (LETT |all| (SPADCALL (QVELT |sc| 1) |all| (QREFELT $ 79)) + (LETT |all| + (SPADCALL (QVELT |sc| 1) |all| (|getShellEntry| $ 80)) |SYMBOL;syscripts|) - (LETT |all| (SPADCALL (QVELT |sc| 0) |all| (QREFELT $ 79)) + (LETT |all| + (SPADCALL (QVELT |sc| 0) |all| (|getShellEntry| $ 80)) |SYMBOL;syscripts|) - (EXIT (SPADCALL |all| (QVELT |sc| 4) (QREFELT $ 79))))))) + (EXIT (SPADCALL |all| (QVELT |sc| 4) (|getShellEntry| $ 80))))))) (DEFUN |SYMBOL;script;$L$;22| (|sy| |ls| $) (PROG (|sc|) @@ -504,42 +512,44 @@ Note that this code is not included in the generated catdef.spad file. ((NULL (NULL |ls|)) (SEQ (QSETVELT |sc| 4 (|SPADfirst| |ls|)) (EXIT (LETT |ls| (CDR |ls|) |SYMBOL;script;$L$;22|))))) - (EXIT (SPADCALL |sy| |sc| (QREFELT $ 81))))))) + (EXIT (SPADCALL |sy| |sc| (|getShellEntry| $ 82))))))) (DEFUN |SYMBOL;script;$R$;23| (|sy| |sc| $) (COND - ((SPADCALL |sy| (QREFELT $ 21)) + ((SPADCALL |sy| (|getShellEntry| $ 22)) (|error| "Cannot add scripts to a scripted symbol")) ('T (CONS (SPADCALL (SPADCALL (STRCONC (|SYMBOL;syprefix| |sc| $) - (SPADCALL (SPADCALL |sy| (QREFELT $ 82)) - (QREFELT $ 83))) - (QREFELT $ 48)) - (QREFELT $ 53)) + (SPADCALL + (SPADCALL |sy| (|getShellEntry| $ 83)) + (|getShellEntry| $ 84))) + (|getShellEntry| $ 48)) + (|getShellEntry| $ 53)) (|SYMBOL;syscripts| |sc| $))))) (DEFUN |SYMBOL;string;$S;24| (|e| $) (COND - ((NULL (SPADCALL |e| (QREFELT $ 21))) (PNAME |e|)) + ((NULL (SPADCALL |e| (|getShellEntry| $ 22))) (PNAME |e|)) ('T (|error| "Cannot form string from non-atomic symbols.")))) (DEFUN |SYMBOL;latex;$S;25| (|e| $) (PROG (|ss| |lo| |sc| |s|) (RETURN - (SEQ (LETT |s| (PNAME (SPADCALL |e| (QREFELT $ 82))) + (SEQ (LETT |s| (PNAME (SPADCALL |e| (|getShellEntry| $ 83))) |SYMBOL;latex;$S;25|) (COND ((< 1 (QCSIZE |s|)) (COND - ((NULL (SPADCALL (SPADCALL |s| 1 (QREFELT $ 84)) - (SPADCALL "\\" (QREFELT $ 40)) - (QREFELT $ 85))) + ((SPADCALL (SPADCALL |s| 1 (|getShellEntry| $ 85)) + (SPADCALL "\\" (|getShellEntry| $ 40)) + (|getShellEntry| $ 86)) (LETT |s| (STRCONC "\\mbox{\\it " (STRCONC |s| "}")) |SYMBOL;latex;$S;25|))))) - (COND ((NULL (SPADCALL |e| (QREFELT $ 21))) (EXIT |s|))) - (LETT |ss| (SPADCALL |e| (QREFELT $ 86)) + (COND + ((NULL (SPADCALL |e| (|getShellEntry| $ 22))) (EXIT |s|))) + (LETT |ss| (SPADCALL |e| (|getShellEntry| $ 87)) |SYMBOL;latex;$S;25|) (LETT |lo| (QVELT |ss| 0) |SYMBOL;latex;$S;25|) (COND @@ -547,12 +557,13 @@ Note that this code is not included in the generated catdef.spad file. (SEQ (LETT |sc| "_{" |SYMBOL;latex;$S;25|) (SEQ G190 (COND - ((NULL (SPADCALL (NULL |lo|) (QREFELT $ 87))) + ((NULL (SPADCALL (NULL |lo|) + (|getShellEntry| $ 88))) (GO G191))) (SEQ (LETT |sc| (STRCONC |sc| (SPADCALL (|SPADfirst| |lo|) - (QREFELT $ 88))) + (|getShellEntry| $ 89))) |SYMBOL;latex;$S;25|) (LETT |lo| (CDR |lo|) |SYMBOL;latex;$S;25|) @@ -570,12 +581,13 @@ Note that this code is not included in the generated catdef.spad file. (SEQ (LETT |sc| "^{" |SYMBOL;latex;$S;25|) (SEQ G190 (COND - ((NULL (SPADCALL (NULL |lo|) (QREFELT $ 87))) + ((NULL (SPADCALL (NULL |lo|) + (|getShellEntry| $ 88))) (GO G191))) (SEQ (LETT |sc| (STRCONC |sc| (SPADCALL (|SPADfirst| |lo|) - (QREFELT $ 88))) + (|getShellEntry| $ 89))) |SYMBOL;latex;$S;25|) (LETT |lo| (CDR |lo|) |SYMBOL;latex;$S;25|) @@ -593,12 +605,13 @@ Note that this code is not included in the generated catdef.spad file. (SEQ (LETT |sc| "{}^{" |SYMBOL;latex;$S;25|) (SEQ G190 (COND - ((NULL (SPADCALL (NULL |lo|) (QREFELT $ 87))) + ((NULL (SPADCALL (NULL |lo|) + (|getShellEntry| $ 88))) (GO G191))) (SEQ (LETT |sc| (STRCONC |sc| (SPADCALL (|SPADfirst| |lo|) - (QREFELT $ 88))) + (|getShellEntry| $ 89))) |SYMBOL;latex;$S;25|) (LETT |lo| (CDR |lo|) |SYMBOL;latex;$S;25|) @@ -616,12 +629,13 @@ Note that this code is not included in the generated catdef.spad file. (SEQ (LETT |sc| "{}_{" |SYMBOL;latex;$S;25|) (SEQ G190 (COND - ((NULL (SPADCALL (NULL |lo|) (QREFELT $ 87))) + ((NULL (SPADCALL (NULL |lo|) + (|getShellEntry| $ 88))) (GO G191))) (SEQ (LETT |sc| (STRCONC |sc| (SPADCALL (|SPADfirst| |lo|) - (QREFELT $ 88))) + (|getShellEntry| $ 89))) |SYMBOL;latex;$S;25|) (LETT |lo| (CDR |lo|) |SYMBOL;latex;$S;25|) @@ -639,12 +653,13 @@ Note that this code is not included in the generated catdef.spad file. (SEQ (LETT |sc| "\\left( {" |SYMBOL;latex;$S;25|) (SEQ G190 (COND - ((NULL (SPADCALL (NULL |lo|) (QREFELT $ 87))) + ((NULL (SPADCALL (NULL |lo|) + (|getShellEntry| $ 88))) (GO G191))) (SEQ (LETT |sc| (STRCONC |sc| (SPADCALL (|SPADfirst| |lo|) - (QREFELT $ 88))) + (|getShellEntry| $ 89))) |SYMBOL;latex;$S;25|) (LETT |lo| (CDR |lo|) |SYMBOL;latex;$S;25|) @@ -660,7 +675,7 @@ Note that this code is not included in the generated catdef.spad file. (EXIT |s|))))) (DEFUN |SYMBOL;anyRadix| (|n| |s| $) - (PROG (|qr| |ns| #0=#:G3069) + (PROG (|qr| |ns| #0=#:G1500) (RETURN (SEQ (EXIT (SEQ (LETT |ns| "" |SYMBOL;anyRadix|) (EXIT (SEQ G190 NIL @@ -673,9 +688,10 @@ Note that this code is not included in the generated catdef.spad file. (SPADCALL (SPADCALL |s| (+ (QCDR |qr|) - (SPADCALL |s| (QREFELT $ 90))) - (QREFELT $ 84)) - |ns| (QREFELT $ 91)) + (SPADCALL |s| + (|getShellEntry| $ 91))) + (|getShellEntry| $ 85)) + |ns| (|getShellEntry| $ 92)) |SYMBOL;anyRadix|) (EXIT (COND @@ -692,62 +708,74 @@ Note that this code is not included in the generated catdef.spad file. (RETURN (SEQ (LETT |sym| (|SYMBOL;anyRadix| - (SPADCALL (QREFELT $ 9) (QREFELT $ 92)) - (QREFELT $ 18) $) + (SPADCALL (|getShellEntry| $ 9) + (|getShellEntry| $ 93)) + (|getShellEntry| $ 19) $) |SYMBOL;new;$;27|) - (SPADCALL (QREFELT $ 9) - (+ (SPADCALL (QREFELT $ 9) (QREFELT $ 92)) 1) - (QREFELT $ 93)) - (EXIT (SPADCALL (STRCONC "%" |sym|) (QREFELT $ 48))))))) + (SPADCALL (|getShellEntry| $ 9) + (+ (SPADCALL (|getShellEntry| $ 9) + (|getShellEntry| $ 93)) + 1) + (|getShellEntry| $ 94)) + (EXIT (SPADCALL (STRCONC "%" |sym|) (|getShellEntry| $ 48))))))) (DEFUN |SYMBOL;new;2$;28| (|x| $) (PROG (|u| |n| |xx|) (RETURN (SEQ (LETT |n| (SEQ (LETT |u| - (SPADCALL |x| (QREFELT $ 12) - (QREFELT $ 96)) + (SPADCALL |x| (|getShellEntry| $ 12) + (|getShellEntry| $ 97)) |SYMBOL;new;2$;28|) (EXIT (COND ((QEQCAR |u| 1) 0) ('T (+ (QCDR |u|) 1))))) |SYMBOL;new;2$;28|) - (SPADCALL (QREFELT $ 12) |x| |n| (QREFELT $ 97)) + (SPADCALL (|getShellEntry| $ 12) |x| |n| + (|getShellEntry| $ 98)) (LETT |xx| (COND - ((NULL (SPADCALL |x| (QREFELT $ 21))) - (SPADCALL |x| (QREFELT $ 83))) + ((NULL (SPADCALL |x| (|getShellEntry| $ 22))) + (SPADCALL |x| (|getShellEntry| $ 84))) ('T - (SPADCALL (SPADCALL |x| (QREFELT $ 82)) - (QREFELT $ 83)))) + (SPADCALL (SPADCALL |x| (|getShellEntry| $ 83)) + (|getShellEntry| $ 84)))) |SYMBOL;new;2$;28|) (LETT |xx| (STRCONC "%" |xx|) |SYMBOL;new;2$;28|) (LETT |xx| (COND ((NULL (< (SPADCALL (SPADCALL |xx| - (SPADCALL |xx| (QREFELT $ 98)) - (QREFELT $ 84)) - (QREFELT $ 17) (QREFELT $ 99)) - (SPADCALL (QREFELT $ 17) (QREFELT $ 90)))) + (SPADCALL |xx| + (|getShellEntry| $ 99)) + (|getShellEntry| $ 85)) + (|getShellEntry| $ 18) + (|getShellEntry| $ 100)) + (SPADCALL (|getShellEntry| $ 18) + (|getShellEntry| $ 91)))) (STRCONC |xx| - (|SYMBOL;anyRadix| |n| (QREFELT $ 19) $))) + (|SYMBOL;anyRadix| |n| + (|getShellEntry| $ 20) $))) ('T (STRCONC |xx| - (|SYMBOL;anyRadix| |n| (QREFELT $ 17) $)))) + (|SYMBOL;anyRadix| |n| + (|getShellEntry| $ 18) $)))) |SYMBOL;new;2$;28|) (COND - ((NULL (SPADCALL |x| (QREFELT $ 21))) - (EXIT (SPADCALL |xx| (QREFELT $ 48))))) - (EXIT (SPADCALL (SPADCALL |xx| (QREFELT $ 48)) - (SPADCALL |x| (QREFELT $ 86)) (QREFELT $ 81))))))) + ((NULL (SPADCALL |x| (|getShellEntry| $ 22))) + (EXIT (SPADCALL |xx| (|getShellEntry| $ 48))))) + (EXIT (SPADCALL (SPADCALL |xx| (|getShellEntry| $ 48)) + (SPADCALL |x| (|getShellEntry| $ 87)) + (|getShellEntry| $ 82))))))) (DEFUN |SYMBOL;resetNew;V;29| ($) - (PROG (|k| #0=#:G3092) + (PROG (|k| #0=#:G1523) (RETURN - (SEQ (SPADCALL (QREFELT $ 9) 0 (QREFELT $ 93)) + (SEQ (SPADCALL (|getShellEntry| $ 9) 0 (|getShellEntry| $ 94)) (SEQ (LETT |k| NIL |SYMBOL;resetNew;V;29|) - (LETT #0# (SPADCALL (QREFELT $ 12) (QREFELT $ 102)) + (LETT #0# + (SPADCALL (|getShellEntry| $ 12) + (|getShellEntry| $ 103)) |SYMBOL;resetNew;V;29|) G190 (COND @@ -756,30 +784,32 @@ Note that this code is not included in the generated catdef.spad file. (LETT |k| (CAR #0#) |SYMBOL;resetNew;V;29|) NIL)) (GO G191))) - (SEQ (EXIT (SPADCALL |k| (QREFELT $ 12) - (QREFELT $ 103)))) + (SEQ (EXIT (SPADCALL |k| (|getShellEntry| $ 12) + (|getShellEntry| $ 104)))) (LETT #0# (CDR #0#) |SYMBOL;resetNew;V;29|) (GO G190) G191 (EXIT NIL)) - (EXIT (SPADCALL (QREFELT $ 104))))))) + (EXIT (SPADCALL (|getShellEntry| $ 105))))))) (DEFUN |SYMBOL;scripted?;$B;30| (|sy| $) - (SPADCALL (ATOM |sy|) (QREFELT $ 87))) + (SPADCALL (ATOM |sy|) (|getShellEntry| $ 88))) (DEFUN |SYMBOL;name;2$;31| (|sy| $) - (PROG (|str| |i| #0=#:G3099 #1=#:G3098 #2=#:G3096) + (PROG (|str| |i| #0=#:G1530 #1=#:G1529 #2=#:G1527) (RETURN (SEQ (EXIT (COND - ((NULL (SPADCALL |sy| (QREFELT $ 21))) |sy|) + ((NULL (SPADCALL |sy| (|getShellEntry| $ 22))) |sy|) ('T (SEQ (LETT |str| (SPADCALL (SPADCALL - (SPADCALL |sy| (QREFELT $ 106)) - (QREFELT $ 107)) - (QREFELT $ 83)) + (SPADCALL |sy| + (|getShellEntry| $ 107)) + (|getShellEntry| $ 108)) + (|getShellEntry| $ 84)) |SYMBOL;name;2$;31|) (SEQ (EXIT (SEQ - (LETT |i| (+ (QREFELT $ 38) 1) + (LETT |i| + (+ (|getShellEntry| $ 38) 1) |SYMBOL;name;2$;31|) (LETT #0# (QCSIZE |str|) |SYMBOL;name;2$;31|) @@ -791,8 +821,8 @@ Note that this code is not included in the generated catdef.spad file. ((NULL (SPADCALL (SPADCALL |str| |i| - (QREFELT $ 84)) - (QREFELT $ 108))) + (|getShellEntry| $ 85)) + (|getShellEntry| $ 109))) (PROGN (LETT #2# (PROGN @@ -801,9 +831,11 @@ Note that this code is not included in the generated catdef.spad file. (SPADCALL |str| (SPADCALL |i| (QCSIZE |str|) - (QREFELT $ 110)) - (QREFELT $ 111)) - (QREFELT $ 48)) + (|getShellEntry| $ + 111)) + (|getShellEntry| $ + 112)) + (|getShellEntry| $ 48)) |SYMBOL;name;2$;31|) (GO #1#)) |SYMBOL;name;2$;31|) @@ -816,11 +848,11 @@ Note that this code is not included in the generated catdef.spad file. #1# (EXIT #1#))))) (DEFUN |SYMBOL;scripts;$R;32| (|sy| $) - (PROG (|lscripts| |str| |nstr| |j| #0=#:G3102 |nscripts| |m| |n| - #1=#:G3111 |i| #2=#:G3112 |a| #3=#:G3113 |allscripts|) + (PROG (|lscripts| |str| |nstr| |j| #0=#:G1533 |nscripts| |m| |n| + #1=#:G1542 |i| #2=#:G1543 |a| #3=#:G1544 |allscripts|) (RETURN (SEQ (COND - ((NULL (SPADCALL |sy| (QREFELT $ 21))) + ((NULL (SPADCALL |sy| (|getShellEntry| $ 22))) (VECTOR NIL NIL NIL NIL NIL)) ('T (SEQ (LETT |nscripts| (LIST 0 0 0 0 0) @@ -829,22 +861,25 @@ Note that this code is not included in the generated catdef.spad file. |SYMBOL;scripts;$R;32|) (LETT |str| (SPADCALL - (SPADCALL (SPADCALL |sy| (QREFELT $ 106)) - (QREFELT $ 107)) - (QREFELT $ 83)) + (SPADCALL + (SPADCALL |sy| + (|getShellEntry| $ 107)) + (|getShellEntry| $ 108)) + (|getShellEntry| $ 84)) |SYMBOL;scripts;$R;32|) (LETT |nstr| (QCSIZE |str|) |SYMBOL;scripts;$R;32|) - (LETT |m| (SPADCALL |nscripts| (QREFELT $ 113)) + (LETT |m| + (SPADCALL |nscripts| (|getShellEntry| $ 114)) |SYMBOL;scripts;$R;32|) - (SEQ (LETT |j| (+ (QREFELT $ 38) 1) + (SEQ (LETT |j| (+ (|getShellEntry| $ 38) 1) |SYMBOL;scripts;$R;32|) (LETT |i| |m| |SYMBOL;scripts;$R;32|) G190 (COND ((OR (> |j| |nstr|) (NULL (SPADCALL (SPADCALL |str| |j| - (QREFELT $ 84)) - (QREFELT $ 108)))) + (|getShellEntry| $ 85)) + (|getShellEntry| $ 109)))) (GO G191))) (SEQ (EXIT (SPADCALL |nscripts| |i| (PROG1 @@ -852,13 +887,13 @@ Note that this code is not included in the generated catdef.spad file. (- (SPADCALL (SPADCALL |str| |j| - (QREFELT $ 84)) - (QREFELT $ 42)) - (QREFELT $ 43)) + (|getShellEntry| $ 85)) + (|getShellEntry| $ 42)) + (|getShellEntry| $ 43)) |SYMBOL;scripts;$R;32|) (|check-subtype| (>= #0# 0) '(|NonNegativeInteger|) #0#)) - (QREFELT $ 114)))) + (|getShellEntry| $ 115)))) (LETT |i| (PROG1 (+ |i| 1) (LETT |j| (+ |j| 1) @@ -867,13 +902,16 @@ Note that this code is not included in the generated catdef.spad file. (GO G190) G191 (EXIT NIL)) (LETT |nscripts| (SPADCALL (CDR |nscripts|) - (|SPADfirst| |nscripts|) (QREFELT $ 115)) + (|SPADfirst| |nscripts|) + (|getShellEntry| $ 116)) |SYMBOL;scripts;$R;32|) (LETT |allscripts| - (SPADCALL (SPADCALL |sy| (QREFELT $ 106)) - (QREFELT $ 116)) + (SPADCALL + (SPADCALL |sy| (|getShellEntry| $ 107)) + (|getShellEntry| $ 117)) |SYMBOL;scripts;$R;32|) - (LETT |m| (SPADCALL |lscripts| (QREFELT $ 117)) + (LETT |m| + (SPADCALL |lscripts| (|getShellEntry| $ 118)) |SYMBOL;scripts;$R;32|) (SEQ (LETT |n| NIL |SYMBOL;scripts;$R;32|) (LETT #1# |nscripts| |SYMBOL;scripts;$R;32|) @@ -888,7 +926,7 @@ Note that this code is not included in the generated catdef.spad file. (SEQ (EXIT (COND ((< (SPADCALL |allscripts| - (QREFELT $ 118)) + (|getShellEntry| $ 119)) |n|) (|error| "Improper script count in symbol")) @@ -903,7 +941,7 @@ Note that this code is not included in the generated catdef.spad file. |SYMBOL;scripts;$R;32|) (LETT #3# (SPADCALL |allscripts| |n| - (QREFELT $ 119)) + (|getShellEntry| $ 120)) |SYMBOL;scripts;$R;32|) G190 (COND @@ -918,18 +956,18 @@ Note that this code is not included in the generated catdef.spad file. (LETT #2# (CONS (SPADCALL |a| - (QREFELT $ 53)) + (|getShellEntry| $ 53)) #2#) |SYMBOL;scripts;$R;32|))) (LETT #3# (CDR #3#) |SYMBOL;scripts;$R;32|) (GO G190) G191 (EXIT (NREVERSE0 #2#)))) - (QREFELT $ 120)) + (|getShellEntry| $ 121)) (EXIT (LETT |allscripts| (SPADCALL |allscripts| |n| - (QREFELT $ 121)) + (|getShellEntry| $ 122)) |SYMBOL;scripts;$R;32|))))))) (LETT |i| (PROG1 (+ |i| 1) @@ -938,33 +976,34 @@ Note that this code is not included in the generated catdef.spad file. |SYMBOL;scripts;$R;32|) (GO G190) G191 (EXIT NIL)) (EXIT (VECTOR (SPADCALL |lscripts| |m| - (QREFELT $ 122)) + (|getShellEntry| $ 123)) (SPADCALL |lscripts| (+ |m| 1) - (QREFELT $ 122)) + (|getShellEntry| $ 123)) (SPADCALL |lscripts| (+ |m| 2) - (QREFELT $ 122)) + (|getShellEntry| $ 123)) (SPADCALL |lscripts| (+ |m| 3) - (QREFELT $ 122)) + (|getShellEntry| $ 123)) (SPADCALL |lscripts| (+ |m| 4) - (QREFELT $ 122))))))))))) + (|getShellEntry| $ 123))))))))))) (DEFUN |SYMBOL;istring| (|n| $) (COND ((< 9 |n|) (|error| "Can have at most 9 scripts of each kind")) - ('T (ELT (QREFELT $ 16) (+ |n| 0))))) + ('T (ELT (|getShellEntry| $ 17) (+ |n| 0))))) (DEFUN |SYMBOL;list;$L;34| (|sy| $) (COND - ((NULL (SPADCALL |sy| (QREFELT $ 21))) + ((NULL (SPADCALL |sy| (|getShellEntry| $ 22))) (|error| "Cannot convert a symbol to a list if it is not subscripted")) ('T |sy|))) -(DEFUN |SYMBOL;sample;$;35| ($) (SPADCALL "aSymbol" (QREFELT $ 48))) +(DEFUN |SYMBOL;sample;$;35| ($) + (SPADCALL "aSymbol" (|getShellEntry| $ 48))) (DEFUN |Symbol| () (PROG () (RETURN - (PROG (#0=#:G3120) + (PROG (#0=#:G1551) (RETURN (COND ((LETT #0# (HGET |$ConstructorCache| '|Symbol|) |Symbol|) @@ -982,33 +1021,36 @@ Note that this code is not included in the generated catdef.spad file. (RETURN (PROGN (LETT |dv$| '(|Symbol|) . #0=(|Symbol|)) - (LETT $ (|newShell| 125) . #0#) - (QSETREFV $ 0 |dv$|) - (QSETREFV $ 3 (LETT |pv$| (|buildPredVector| 0 0 NIL) . #0#)) + (LETT $ (|newShell| 126) . #0#) + (|setShellEntry| $ 0 |dv$|) + (|setShellEntry| $ 3 + (LETT |pv$| (|buildPredVector| 0 0 NIL) . #0#)) (|haddProp| |$ConstructorCache| '|Symbol| NIL (CONS 1 $)) (|stuffDomainSlots| $) - (QSETREFV $ 9 (SPADCALL 0 (QREFELT $ 8))) - (QSETREFV $ 12 (SPADCALL (QREFELT $ 11))) - (QSETREFV $ 16 + (|setShellEntry| $ 9 (SPADCALL 0 (|getShellEntry| $ 8))) + (|setShellEntry| $ 12 (SPADCALL (|getShellEntry| $ 11))) + (|setShellEntry| $ 17 (SPADCALL (LIST "0" "1" "2" "3" "4" "5" "6" "7" "8" "9") - (QREFELT $ 15))) - (QSETREFV $ 17 "0123456789") - (QSETREFV $ 18 "ABCDEFGHIJKLMNOPQRSTUVWXYZ") - (QSETREFV $ 19 "abcdefghijklmnopqrstuvwxyz") - (QSETREFV $ 37 "*") - (QSETREFV $ 38 (QCSIZE (QREFELT $ 37))) - (QSETREFV $ 43 - (SPADCALL (SPADCALL "0" (QREFELT $ 40)) (QREFELT $ 42))) + (|getShellEntry| $ 16))) + (|setShellEntry| $ 18 "0123456789") + (|setShellEntry| $ 19 "ABCDEFGHIJKLMNOPQRSTUVWXYZ") + (|setShellEntry| $ 20 "abcdefghijklmnopqrstuvwxyz") + (|setShellEntry| $ 37 "*") + (|setShellEntry| $ 38 (QCSIZE (|getShellEntry| $ 37))) + (|setShellEntry| $ 43 + (SPADCALL (SPADCALL "0" (|getShellEntry| $ 40)) + (|getShellEntry| $ 42))) $)))) (MAKEPROP '|Symbol| '|infovec| (LIST '#(NIL NIL NIL NIL NIL NIL (|Integer|) (|Reference| 6) (0 . |ref|) '|count| (|AssociationList| $$ 6) - (5 . |empty|) '|xcount| (|List| 28) (|PrimitiveArray| 28) - (9 . |construct|) '|istrings| '|nums| 'ALPHAS '|alphas| - (|Boolean|) |SYMBOL;scripted?;$B;30| (|Void|) (|Symbol|) + (5 . |empty|) '|xcount| (|String|) (|List| 13) + (|PrimitiveArray| 13) (9 . |construct|) '|istrings| + '|nums| 'ALPHAS '|alphas| (|Boolean|) + |SYMBOL;scripted?;$B;30| (|Void|) (|Symbol|) (|OpenMathDevice|) (14 . |OMputVariable|) - (|OpenMathEncoding|) (20 . |OMencodingXML|) (|String|) + (|OpenMathEncoding|) (20 . |OMencodingXML|) (24 . |OMopenString|) (30 . |OMputObject|) (35 . |OMputEndObject|) (40 . |OMclose|) |SYMBOL;OMwrite;$S;2| |SYMBOL;OMwrite;$BS;3| @@ -1018,23 +1060,23 @@ Note that this code is not included in the generated catdef.spad file. |SYMBOL;convert;$If;6| |SYMBOL;convert;$S;7| |SYMBOL;coerce;S$;8| |SYMBOL;=;2$B;9| |SYMBOL;<;2$B;10| (|OutputForm|) (60 . |outputForm|) |SYMBOL;coerce;$Of;11| - (|List| 56) |SYMBOL;script;$L$;22| (|List| 51) + (|List| 51) (|List| 54) |SYMBOL;script;$L$;22| |SYMBOL;subscript;$L$;12| |SYMBOL;elt;$L$;13| |SYMBOL;superscript;$L$;14| |SYMBOL;argscript;$L$;15| - (|PatternMatchResult| 6 23) (|Pattern| 6) + (|PatternMatchResult| 6 24) (|Pattern| 6) (|PatternMatchSymbol| 6) (65 . |patternMatch|) (|PatternMatchResult| 6 $) |SYMBOL;patternMatch;$P2Pmr;16| - (|PatternMatchResult| (|Float|) 23) (|Pattern| (|Float|)) - (|PatternMatchSymbol| (|Float|)) (72 . |patternMatch|) - (|PatternMatchResult| (|Float|) $) + (|Float|) (|PatternMatchResult| 67 24) (|Pattern| 67) + (|PatternMatchSymbol| 67) (72 . |patternMatch|) + (|PatternMatchResult| 67 $) |SYMBOL;patternMatch;$P2Pmr;17| (79 . |coerce|) |SYMBOL;convert;$P;18| (84 . |coerce|) |SYMBOL;convert;$P;19| (|List| $) (89 . |concat|) (94 . |concat|) - (|Record| (|:| |sub| 56) (|:| |sup| 56) (|:| |presup| 56) - (|:| |presub| 56) (|:| |args| 56)) + (|Record| (|:| |sub| 54) (|:| |sup| 54) (|:| |presup| 54) + (|:| |presub| 54) (|:| |args| 54)) |SYMBOL;script;$R$;23| |SYMBOL;name;2$;31| - |SYMBOL;string;$S;24| (100 . |elt|) (106 . =) + |SYMBOL;string;$S;24| (100 . |elt|) (106 . ~=) |SYMBOL;scripts;$R;32| (112 . |not|) (117 . |latex|) |SYMBOL;latex;$S;25| (122 . |minIndex|) (127 . |concat|) (133 . |elt|) (138 . |setelt|) |SYMBOL;new;$;27| @@ -1062,51 +1104,52 @@ Note that this code is not included in the generated catdef.spad file. (CONS (|makeByteWordVec2| 1 '(0 0 0 0 0 0 0 0 0 0 0)) (CONS '#(|OrderedSet&| NIL NIL |SetCategory&| |BasicType&| NIL NIL NIL NIL NIL NIL) - (CONS '#((|OrderedSet|) - (|PatternMatchable| (|Float|)) + (CONS '#((|OrderedSet|) (|PatternMatchable| 67) (|PatternMatchable| 6) (|SetCategory|) - (|BasicType|) (|ConvertibleTo| 68) + (|BasicType|) (|ConvertibleTo| 69) (|ConvertibleTo| 62) - (|ConvertibleTo| 23) (|OpenMath|) + (|ConvertibleTo| 24) (|OpenMath|) (|ConvertibleTo| 44) (|CoercibleTo| 51)) - (|makeByteWordVec2| 124 - '(1 7 0 6 8 0 10 0 11 1 14 0 13 15 2 24 - 22 0 23 25 0 26 0 27 2 24 0 28 26 29 - 1 24 22 0 30 1 24 22 0 31 1 24 22 0 - 32 1 39 0 28 40 1 39 41 0 42 1 44 0 - 23 45 1 51 0 23 52 3 63 61 23 62 61 - 64 3 69 67 23 68 67 70 1 68 0 23 73 1 - 62 0 23 75 1 28 0 77 78 2 56 0 0 0 79 - 2 28 39 0 6 84 2 39 20 0 0 85 1 20 0 - 0 87 1 51 28 0 88 1 28 6 0 90 2 28 0 - 39 0 91 1 7 6 0 92 2 7 6 0 6 93 2 10 - 95 2 0 96 3 10 6 0 2 6 97 1 28 6 0 98 - 2 28 6 39 0 99 1 10 101 0 102 2 10 95 - 2 0 103 0 22 0 104 1 101 2 0 107 1 39 - 20 0 108 2 109 0 6 6 110 2 28 0 0 109 - 111 1 112 6 0 113 3 112 41 0 6 41 114 - 2 112 0 0 41 115 1 101 0 0 116 1 54 6 - 0 117 1 101 41 0 118 2 101 0 0 41 119 - 3 54 56 0 6 56 120 2 101 0 0 41 121 2 - 54 56 0 6 122 2 0 20 0 0 1 2 0 0 0 56 - 59 2 0 0 0 56 57 1 0 28 0 83 1 0 80 0 - 86 1 0 20 0 21 2 0 0 0 54 55 2 0 0 0 - 80 81 0 0 0 123 0 0 22 105 3 0 65 0 - 62 65 66 3 0 71 0 68 71 72 1 0 0 0 - 100 0 0 0 94 1 0 0 0 82 2 0 0 0 0 1 2 - 0 0 0 0 1 1 0 77 0 106 1 0 28 0 89 1 - 0 124 0 1 2 0 0 0 56 58 1 0 62 0 76 1 - 0 68 0 74 1 0 23 0 47 1 0 44 0 46 1 0 - 0 28 48 1 0 51 0 53 2 0 0 0 56 60 3 0 - 22 24 0 20 36 2 0 28 0 20 34 2 0 22 - 24 0 35 1 0 28 0 33 2 0 20 0 0 1 2 0 - 20 0 0 1 2 0 20 0 0 49 2 0 20 0 0 1 2 - 0 20 0 0 50))))) + (|makeByteWordVec2| 125 + '(1 7 0 6 8 0 10 0 11 1 15 0 14 16 2 25 + 23 0 24 26 0 27 0 28 2 25 0 13 27 29 + 1 25 23 0 30 1 25 23 0 31 1 25 23 0 + 32 1 39 0 13 40 1 39 41 0 42 1 44 0 + 24 45 1 51 0 24 52 3 63 61 24 62 61 + 64 3 70 68 24 69 68 71 1 69 0 24 74 1 + 62 0 24 76 1 13 0 78 79 2 54 0 0 0 80 + 2 13 39 0 6 85 2 39 21 0 0 86 1 21 0 + 0 88 1 51 13 0 89 1 13 6 0 91 2 13 0 + 39 0 92 1 7 6 0 93 2 7 6 0 6 94 2 10 + 96 2 0 97 3 10 6 0 2 6 98 1 13 6 0 99 + 2 13 6 39 0 100 1 10 102 0 103 2 10 + 96 2 0 104 0 23 0 105 1 102 2 0 108 1 + 39 21 0 109 2 110 0 6 6 111 2 13 0 0 + 110 112 1 113 6 0 114 3 113 41 0 6 41 + 115 2 113 0 0 41 116 1 102 0 0 117 1 + 55 6 0 118 1 102 41 0 119 2 102 0 0 + 41 120 3 55 54 0 6 54 121 2 102 0 0 + 41 122 2 55 54 0 6 123 2 0 21 0 0 1 2 + 0 0 0 54 59 2 0 0 0 54 57 1 0 13 0 84 + 1 0 81 0 87 1 0 21 0 22 2 0 0 0 55 56 + 2 0 0 0 81 82 0 0 0 124 0 0 23 106 3 + 0 65 0 62 65 66 3 0 72 0 69 72 73 1 0 + 0 0 101 0 0 0 95 1 0 0 0 83 2 0 0 0 0 + 1 2 0 0 0 0 1 1 0 78 0 107 1 0 13 0 + 90 1 0 125 0 1 2 0 0 0 54 58 1 0 62 0 + 77 1 0 69 0 75 1 0 24 0 47 1 0 44 0 + 46 1 0 0 13 48 1 0 51 0 53 2 0 0 0 54 + 60 3 0 23 25 0 21 36 2 0 13 0 21 34 2 + 0 23 25 0 35 1 0 13 0 33 2 0 21 0 0 1 + 2 0 21 0 0 1 2 0 21 0 0 49 2 0 21 0 0 + 1 2 0 21 0 0 50))))) '|lookupComplete|)) (MAKEPROP '|Symbol| 'NILADIC T) @ + \section{License} + <<license>>= --Copyright (c) 1991-2002, The Numerical ALgorithms Group Ltd. --All rights reserved. diff --git a/src/algebra/triset.spad.pamphlet b/src/algebra/triset.spad.pamphlet index 224452fc..e86987ca 100644 --- a/src/algebra/triset.spad.pamphlet +++ b/src/algebra/triset.spad.pamphlet @@ -710,78 +710,89 @@ Note that this code is not included in the generated catdef.spad file. (/VERSIONCHECK 2) (DEFUN |TSETCAT-;=;2SB;1| (|ts| |us| $) - (PROG (#0=#:G1444 #1=#:G1450) + (PROG (#0=#:G1451 #1=#:G1457) (RETURN (COND - ((SPADCALL |ts| (QREFELT $ 12)) (SPADCALL |us| (QREFELT $ 12))) - ((OR (SPADCALL |us| (QREFELT $ 12)) + ((SPADCALL |ts| (|getShellEntry| $ 12)) + (SPADCALL |us| (|getShellEntry| $ 12))) + ((OR (SPADCALL |us| (|getShellEntry| $ 12)) (NULL (SPADCALL - (PROG2 (LETT #0# (SPADCALL |ts| (QREFELT $ 14)) + (PROG2 (LETT #0# + (SPADCALL |ts| + (|getShellEntry| $ 14)) |TSETCAT-;=;2SB;1|) (QCDR #0#) - (|check-union| (QEQCAR #0# 0) (QREFELT $ 10) - #0#)) - (PROG2 (LETT #0# (SPADCALL |us| (QREFELT $ 14)) + (|check-union| (QEQCAR #0# 0) + (|getShellEntry| $ 10) #0#)) + (PROG2 (LETT #0# + (SPADCALL |us| + (|getShellEntry| $ 14)) |TSETCAT-;=;2SB;1|) (QCDR #0#) - (|check-union| (QEQCAR #0# 0) (QREFELT $ 10) - #0#)) - (QREFELT $ 15)))) + (|check-union| (QEQCAR #0# 0) + (|getShellEntry| $ 10) #0#)) + (|getShellEntry| $ 15)))) 'NIL) ('T (SPADCALL - (PROG2 (LETT #1# (SPADCALL |ts| (QREFELT $ 17)) + (PROG2 (LETT #1# (SPADCALL |ts| (|getShellEntry| $ 17)) |TSETCAT-;=;2SB;1|) (QCDR #1#) - (|check-union| (QEQCAR #1# 0) (QREFELT $ 6) #1#)) - (PROG2 (LETT #1# (SPADCALL |us| (QREFELT $ 17)) + (|check-union| (QEQCAR #1# 0) (|getShellEntry| $ 6) #1#)) + (PROG2 (LETT #1# (SPADCALL |us| (|getShellEntry| $ 17)) |TSETCAT-;=;2SB;1|) (QCDR #1#) - (|check-union| (QEQCAR #1# 0) (QREFELT $ 6) #1#)) - (QREFELT $ 18))))))) + (|check-union| (QEQCAR #1# 0) (|getShellEntry| $ 6) #1#)) + (|getShellEntry| $ 18))))))) (DEFUN |TSETCAT-;infRittWu?;2SB;2| (|ts| |us| $) - (PROG (|p| #0=#:G1457 |q| |v|) + (PROG (|p| #0=#:G1464 |q| |v|) (RETURN (SEQ (COND - ((SPADCALL |us| (QREFELT $ 12)) - (SPADCALL (SPADCALL |ts| (QREFELT $ 12)) (QREFELT $ 20))) - ((SPADCALL |ts| (QREFELT $ 12)) 'NIL) + ((SPADCALL |us| (|getShellEntry| $ 12)) + (SPADCALL (SPADCALL |ts| (|getShellEntry| $ 12)) + (|getShellEntry| $ 20))) + ((SPADCALL |ts| (|getShellEntry| $ 12)) 'NIL) ('T (SEQ (LETT |p| (PROG2 (LETT #0# - (SPADCALL |ts| (QREFELT $ 21)) + (SPADCALL |ts| + (|getShellEntry| $ 21)) |TSETCAT-;infRittWu?;2SB;2|) (QCDR #0#) - (|check-union| (QEQCAR #0# 0) (QREFELT $ 10) - #0#)) + (|check-union| (QEQCAR #0# 0) + (|getShellEntry| $ 10) #0#)) |TSETCAT-;infRittWu?;2SB;2|) (LETT |q| (PROG2 (LETT #0# - (SPADCALL |us| (QREFELT $ 21)) + (SPADCALL |us| + (|getShellEntry| $ 21)) |TSETCAT-;infRittWu?;2SB;2|) (QCDR #0#) - (|check-union| (QEQCAR #0# 0) (QREFELT $ 10) - #0#)) + (|check-union| (QEQCAR #0# 0) + (|getShellEntry| $ 10) #0#)) |TSETCAT-;infRittWu?;2SB;2|) (EXIT (COND - ((SPADCALL |p| |q| (QREFELT $ 22)) 'T) - ((SPADCALL |p| |q| (QREFELT $ 23)) 'NIL) + ((SPADCALL |p| |q| (|getShellEntry| $ 22)) + 'T) + ((SPADCALL |p| |q| (|getShellEntry| $ 23)) + 'NIL) ('T (SEQ (LETT |v| - (SPADCALL |p| (QREFELT $ 24)) + (SPADCALL |p| + (|getShellEntry| $ 24)) |TSETCAT-;infRittWu?;2SB;2|) (EXIT (SPADCALL (SPADCALL |ts| |v| - (QREFELT $ 25)) + (|getShellEntry| $ 25)) (SPADCALL |us| |v| - (QREFELT $ 25)) - (QREFELT $ 26)))))))))))))) + (|getShellEntry| $ 25)) + (|getShellEntry| $ 26)))))))))))))) (DEFUN |TSETCAT-;reduced?;PSMB;3| (|p| |ts| |redOp?| $) (PROG (|lp|) (RETURN - (SEQ (LETT |lp| (SPADCALL |ts| (QREFELT $ 29)) + (SEQ (LETT |lp| (SPADCALL |ts| (|getShellEntry| $ 29)) |TSETCAT-;reduced?;PSMB;3|) (SEQ G190 (COND @@ -798,28 +809,29 @@ Note that this code is not included in the generated catdef.spad file. (DEFUN |TSETCAT-;basicSet;LMU;4| (|ps| |redOp?| $) (PROG (|b| |bs| |p| |ts|) (RETURN - (SEQ (LETT |ps| (SPADCALL (ELT $ 32) |ps| (QREFELT $ 34)) + (SEQ (LETT |ps| (SPADCALL (ELT $ 32) |ps| (|getShellEntry| $ 34)) |TSETCAT-;basicSet;LMU;4|) (EXIT (COND - ((SPADCALL (ELT $ 35) |ps| (QREFELT $ 36)) + ((SPADCALL (ELT $ 35) |ps| (|getShellEntry| $ 36)) (CONS 1 "failed")) ('T (SEQ (LETT |ps| (SPADCALL (ELT $ 22) |ps| - (QREFELT $ 37)) + (|getShellEntry| $ 37)) |TSETCAT-;basicSet;LMU;4|) - (LETT |bs| (SPADCALL (QREFELT $ 38)) + (LETT |bs| (SPADCALL (|getShellEntry| $ 38)) |TSETCAT-;basicSet;LMU;4|) (LETT |ts| NIL |TSETCAT-;basicSet;LMU;4|) (SEQ G190 (COND ((NULL (SPADCALL (NULL |ps|) - (QREFELT $ 20))) + (|getShellEntry| $ 20))) (GO G191))) (SEQ (LETT |b| (|SPADfirst| |ps|) |TSETCAT-;basicSet;LMU;4|) (LETT |bs| - (SPADCALL |bs| |b| (QREFELT $ 39)) + (SPADCALL |bs| |b| + (|getShellEntry| $ 39)) |TSETCAT-;basicSet;LMU;4|) (LETT |ps| (CDR |ps|) |TSETCAT-;basicSet;LMU;4|) @@ -836,8 +848,8 @@ Note that this code is not included in the generated catdef.spad file. (|SPADfirst| |ps|) |TSETCAT-;basicSet;LMU;4|) |bs| |redOp?| - (QREFELT $ 40)) - (QREFELT $ 20))))) + (|getShellEntry| $ 40)) + (|getShellEntry| $ 20))))) (GO G191))) (SEQ (LETT |ts| (CONS |p| |ts|) @@ -852,10 +864,10 @@ Note that this code is not included in the generated catdef.spad file. (DEFUN |TSETCAT-;basicSet;LMMU;5| (|ps| |pred?| |redOp?| $) (PROG (|bps| |b| |bs| |p| |gps| |ts|) (RETURN - (SEQ (LETT |ps| (SPADCALL (ELT $ 32) |ps| (QREFELT $ 34)) + (SEQ (LETT |ps| (SPADCALL (ELT $ 32) |ps| (|getShellEntry| $ 34)) |TSETCAT-;basicSet;LMMU;5|) (EXIT (COND - ((SPADCALL (ELT $ 35) |ps| (QREFELT $ 36)) + ((SPADCALL (ELT $ 35) |ps| (|getShellEntry| $ 36)) (CONS 1 "failed")) ('T (SEQ (LETT |gps| NIL |TSETCAT-;basicSet;LMMU;5|) @@ -863,7 +875,7 @@ Note that this code is not included in the generated catdef.spad file. (SEQ G190 (COND ((NULL (SPADCALL (NULL |ps|) - (QREFELT $ 20))) + (|getShellEntry| $ 20))) (GO G191))) (SEQ (LETT |p| (|SPADfirst| |ps|) |TSETCAT-;basicSet;LMMU;5|) @@ -880,20 +892,21 @@ Note that this code is not included in the generated catdef.spad file. NIL (GO G190) G191 (EXIT NIL)) (LETT |gps| (SPADCALL (ELT $ 22) |gps| - (QREFELT $ 37)) + (|getShellEntry| $ 37)) |TSETCAT-;basicSet;LMMU;5|) - (LETT |bs| (SPADCALL (QREFELT $ 38)) + (LETT |bs| (SPADCALL (|getShellEntry| $ 38)) |TSETCAT-;basicSet;LMMU;5|) (LETT |ts| NIL |TSETCAT-;basicSet;LMMU;5|) (SEQ G190 (COND ((NULL (SPADCALL (NULL |gps|) - (QREFELT $ 20))) + (|getShellEntry| $ 20))) (GO G191))) (SEQ (LETT |b| (|SPADfirst| |gps|) |TSETCAT-;basicSet;LMMU;5|) (LETT |bs| - (SPADCALL |bs| |b| (QREFELT $ 39)) + (SPADCALL |bs| |b| + (|getShellEntry| $ 39)) |TSETCAT-;basicSet;LMMU;5|) (LETT |gps| (CDR |gps|) |TSETCAT-;basicSet;LMMU;5|) @@ -910,8 +923,8 @@ Note that this code is not included in the generated catdef.spad file. (|SPADfirst| |gps|) |TSETCAT-;basicSet;LMMU;5|) |bs| |redOp?| - (QREFELT $ 40)) - (QREFELT $ 20))))) + (|getShellEntry| $ 40)) + (|getShellEntry| $ 20))))) (GO G191))) (SEQ (LETT |ts| (CONS |p| |ts|) @@ -923,8 +936,9 @@ Note that this code is not included in the generated catdef.spad file. NIL (GO G190) G191 (EXIT NIL)) (LETT |ts| (SPADCALL (ELT $ 22) - (SPADCALL |ts| |bps| (QREFELT $ 44)) - (QREFELT $ 37)) + (SPADCALL |ts| |bps| + (|getShellEntry| $ 44)) + (|getShellEntry| $ 37)) |TSETCAT-;basicSet;LMMU;5|) (EXIT (CONS 0 (CONS |bs| |ts|))))))))))) @@ -933,14 +947,15 @@ Note that this code is not included in the generated catdef.spad file. (RETURN (SEQ (LETT |lip| NIL |TSETCAT-;initials;SL;6|) (EXIT (COND - ((SPADCALL |ts| (QREFELT $ 12)) |lip|) + ((SPADCALL |ts| (|getShellEntry| $ 12)) |lip|) ('T - (SEQ (LETT |lp| (SPADCALL |ts| (QREFELT $ 29)) + (SEQ (LETT |lp| + (SPADCALL |ts| (|getShellEntry| $ 29)) |TSETCAT-;initials;SL;6|) (SEQ G190 (COND ((NULL (SPADCALL (NULL |lp|) - (QREFELT $ 20))) + (|getShellEntry| $ 20))) (GO G191))) (SEQ (LETT |p| (|SPADfirst| |lp|) |TSETCAT-;initials;SL;6|) @@ -948,30 +963,33 @@ Note that this code is not included in the generated catdef.spad file. ((NULL (SPADCALL (LETT |ip| - (SPADCALL |p| (QREFELT $ 46)) + (SPADCALL |p| + (|getShellEntry| $ 46)) |TSETCAT-;initials;SL;6|) - (QREFELT $ 35))) + (|getShellEntry| $ 35))) (LETT |lip| (CONS - (SPADCALL |ip| (QREFELT $ 47)) + (SPADCALL |ip| + (|getShellEntry| $ 47)) |lip|) |TSETCAT-;initials;SL;6|))) (EXIT (LETT |lp| (CDR |lp|) |TSETCAT-;initials;SL;6|))) NIL (GO G190) G191 (EXIT NIL)) - (EXIT (SPADCALL |lip| (QREFELT $ 48))))))))))) + (EXIT (SPADCALL |lip| (|getShellEntry| $ 48))))))))))) (DEFUN |TSETCAT-;degree;SNni;7| (|ts| $) (PROG (|lp| |d|) (RETURN (SEQ (COND - ((SPADCALL |ts| (QREFELT $ 12)) 0) + ((SPADCALL |ts| (|getShellEntry| $ 12)) 0) ('T - (SEQ (LETT |lp| (SPADCALL |ts| (QREFELT $ 29)) + (SEQ (LETT |lp| (SPADCALL |ts| (|getShellEntry| $ 29)) |TSETCAT-;degree;SNni;7|) (LETT |d| - (SPADCALL (|SPADfirst| |lp|) (QREFELT $ 51)) + (SPADCALL (|SPADfirst| |lp|) + (|getShellEntry| $ 51)) |TSETCAT-;degree;SNni;7|) (SEQ G190 (COND @@ -979,39 +997,43 @@ Note that this code is not included in the generated catdef.spad file. (NULL (LETT |lp| (CDR |lp|) |TSETCAT-;degree;SNni;7|)) - (QREFELT $ 20))) + (|getShellEntry| $ 20))) (GO G191))) (SEQ (EXIT (LETT |d| (* |d| (SPADCALL (|SPADfirst| |lp|) - (QREFELT $ 51))) + (|getShellEntry| $ 51))) |TSETCAT-;degree;SNni;7|))) NIL (GO G190) G191 (EXIT NIL)) (EXIT |d|)))))))) (DEFUN |TSETCAT-;quasiComponent;SR;8| (|ts| $) - (CONS (SPADCALL |ts| (QREFELT $ 29)) (SPADCALL |ts| (QREFELT $ 53)))) + (CONS (SPADCALL |ts| (|getShellEntry| $ 29)) + (SPADCALL |ts| (|getShellEntry| $ 53)))) (DEFUN |TSETCAT-;normalized?;PSB;9| (|p| |ts| $) - (SPADCALL |p| (SPADCALL |ts| (QREFELT $ 29)) (QREFELT $ 57))) + (SPADCALL |p| (SPADCALL |ts| (|getShellEntry| $ 29)) + (|getShellEntry| $ 57))) (DEFUN |TSETCAT-;stronglyReduced?;PSB;10| (|p| |ts| $) - (SPADCALL |p| (SPADCALL |ts| (QREFELT $ 29)) (QREFELT $ 59))) + (SPADCALL |p| (SPADCALL |ts| (|getShellEntry| $ 29)) + (|getShellEntry| $ 59))) (DEFUN |TSETCAT-;headReduced?;PSB;11| (|p| |ts| $) - (SPADCALL (SPADCALL |p| (QREFELT $ 61)) |ts| (QREFELT $ 62))) + (SPADCALL (SPADCALL |p| (|getShellEntry| $ 61)) |ts| + (|getShellEntry| $ 62))) (DEFUN |TSETCAT-;initiallyReduced?;PSB;12| (|p| |ts| $) (PROG (|lp| |red|) (RETURN - (SEQ (LETT |lp| (SPADCALL |ts| (QREFELT $ 29)) + (SEQ (LETT |lp| (SPADCALL |ts| (|getShellEntry| $ 29)) |TSETCAT-;initiallyReduced?;PSB;12|) (LETT |red| 'T |TSETCAT-;initiallyReduced?;PSB;12|) (SEQ G190 (COND ((NULL (COND ((OR (NULL |lp|) - (SPADCALL |p| (QREFELT $ 35))) + (SPADCALL |p| (|getShellEntry| $ 35))) 'NIL) ('T |red|))) (GO G191))) @@ -1021,10 +1043,11 @@ Note that this code is not included in the generated catdef.spad file. ((NULL |lp|) 'NIL) ('T (SPADCALL - (SPADCALL |p| (QREFELT $ 24)) + (SPADCALL |p| + (|getShellEntry| $ 24)) (SPADCALL (|SPADfirst| |lp|) - (QREFELT $ 24)) - (QREFELT $ 64))))) + (|getShellEntry| $ 24)) + (|getShellEntry| $ 64))))) (GO G191))) (SEQ (EXIT (LETT |lp| (CDR |lp|) |TSETCAT-;initiallyReduced?;PSB;12|))) @@ -1034,65 +1057,72 @@ Note that this code is not included in the generated catdef.spad file. (COND ((SPADCALL (SPADCALL (|SPADfirst| |lp|) - (QREFELT $ 24)) - (SPADCALL |p| (QREFELT $ 24)) - (QREFELT $ 65)) + (|getShellEntry| $ 24)) + (SPADCALL |p| + (|getShellEntry| $ 24)) + (|getShellEntry| $ 65)) (COND ((SPADCALL |p| (|SPADfirst| |lp|) - (QREFELT $ 66)) + (|getShellEntry| $ 66)) (SEQ (LETT |lp| (CDR |lp|) |TSETCAT-;initiallyReduced?;PSB;12|) (EXIT (LETT |p| - (SPADCALL |p| (QREFELT $ 46)) + (SPADCALL |p| + (|getShellEntry| $ 46)) |TSETCAT-;initiallyReduced?;PSB;12|)))) ('T (LETT |red| 'NIL |TSETCAT-;initiallyReduced?;PSB;12|)))) ('T (LETT |p| - (SPADCALL |p| (QREFELT $ 46)) + (SPADCALL |p| + (|getShellEntry| $ 46)) |TSETCAT-;initiallyReduced?;PSB;12|))))))) NIL (GO G190) G191 (EXIT NIL)) (EXIT |red|))))) (DEFUN |TSETCAT-;reduce;PSMMP;13| (|p| |ts| |redOp| |redOp?| $) - (PROG (|ts0| #0=#:G1532 |reductor| #1=#:G1535) + (PROG (|ts0| #0=#:G1539 |reductor| #1=#:G1542) (RETURN (SEQ (COND - ((OR (SPADCALL |ts| (QREFELT $ 12)) - (SPADCALL |p| (QREFELT $ 35))) + ((OR (SPADCALL |ts| (|getShellEntry| $ 12)) + (SPADCALL |p| (|getShellEntry| $ 35))) |p|) ('T (SEQ (LETT |ts0| |ts| |TSETCAT-;reduce;PSMMP;13|) (SEQ G190 (COND ((NULL (COND - ((SPADCALL |ts| (QREFELT $ 12)) + ((SPADCALL |ts| + (|getShellEntry| $ 12)) 'NIL) ('T (SPADCALL - (SPADCALL |p| (QREFELT $ 35)) - (QREFELT $ 20))))) + (SPADCALL |p| + (|getShellEntry| $ 35)) + (|getShellEntry| $ 20))))) (GO G191))) (SEQ (LETT |reductor| (PROG2 (LETT #0# - (SPADCALL |ts| (QREFELT $ 14)) + (SPADCALL |ts| + (|getShellEntry| $ 14)) |TSETCAT-;reduce;PSMMP;13|) (QCDR #0#) (|check-union| (QEQCAR #0# 0) - (QREFELT $ 10) #0#)) + (|getShellEntry| $ 10) #0#)) |TSETCAT-;reduce;PSMMP;13|) (LETT |ts| (PROG2 (LETT #1# - (SPADCALL |ts| (QREFELT $ 17)) + (SPADCALL |ts| + (|getShellEntry| $ 17)) |TSETCAT-;reduce;PSMMP;13|) (QCDR #1#) (|check-union| (QEQCAR #1# 0) - (QREFELT $ 6) #1#)) + (|getShellEntry| $ 6) #1#)) |TSETCAT-;reduce;PSMMP;13|) (EXIT (COND ((NULL @@ -1114,13 +1144,16 @@ Note that this code is not included in the generated catdef.spad file. (PROG (|p| |rs|) (RETURN (SEQ (COND - ((SPADCALL |ts| (QREFELT $ 70)) |lp|) + ((SPADCALL |ts| (|getShellEntry| $ 70)) |lp|) ('T - (SEQ (LETT |lp| (SPADCALL (ELT $ 32) |lp| (QREFELT $ 34)) + (SEQ (LETT |lp| + (SPADCALL (ELT $ 32) |lp| + (|getShellEntry| $ 34)) |TSETCAT-;rewriteSetWithReduction;LSMML;14|) (EXIT (COND ((NULL |lp|) |lp|) - ((SPADCALL (ELT $ 35) |lp| (QREFELT $ 36)) + ((SPADCALL (ELT $ 35) |lp| + (|getShellEntry| $ 36)) (LIST (|spadConstant| $ 71))) ('T (SEQ (LETT |rs| NIL @@ -1129,7 +1162,7 @@ Note that this code is not included in the generated catdef.spad file. (COND ((NULL (SPADCALL (NULL |lp|) - (QREFELT $ 20))) + (|getShellEntry| $ 20))) (GO G191))) (SEQ (LETT |p| (|SPADfirst| |lp|) @@ -1139,17 +1172,18 @@ Note that this code is not included in the generated catdef.spad file. (LETT |p| (SPADCALL (SPADCALL |p| |ts| |redOp| - |redOp?| (QREFELT $ 72)) - (QREFELT $ 47)) + |redOp?| + (|getShellEntry| $ 72)) + (|getShellEntry| $ 47)) |TSETCAT-;rewriteSetWithReduction;LSMML;14|) (EXIT (COND ((NULL (SPADCALL |p| - (QREFELT $ 32))) + (|getShellEntry| $ 32))) (COND ((SPADCALL |p| - (QREFELT $ 35)) + (|getShellEntry| $ 35)) (SEQ (LETT |lp| NIL |TSETCAT-;rewriteSetWithReduction;LSMML;14|) @@ -1163,61 +1197,67 @@ Note that this code is not included in the generated catdef.spad file. (CONS |p| |rs|) |TSETCAT-;rewriteSetWithReduction;LSMML;14|))))))) NIL (GO G190) G191 (EXIT NIL)) - (EXIT (SPADCALL |rs| (QREFELT $ 48)))))))))))))) + (EXIT (SPADCALL |rs| + (|getShellEntry| $ 48)))))))))))))) (DEFUN |TSETCAT-;stronglyReduce;PSP;15| (|p| |ts| $) - (SPADCALL |p| |ts| (ELT $ 74) (ELT $ 66) (QREFELT $ 72))) + (SPADCALL |p| |ts| (ELT $ 74) (ELT $ 66) (|getShellEntry| $ 72))) (DEFUN |TSETCAT-;headReduce;PSP;16| (|p| |ts| $) - (SPADCALL |p| |ts| (ELT $ 76) (ELT $ 77) (QREFELT $ 72))) + (SPADCALL |p| |ts| (ELT $ 76) (ELT $ 77) (|getShellEntry| $ 72))) (DEFUN |TSETCAT-;initiallyReduce;PSP;17| (|p| |ts| $) - (SPADCALL |p| |ts| (ELT $ 79) (ELT $ 80) (QREFELT $ 72))) + (SPADCALL |p| |ts| (ELT $ 79) (ELT $ 80) (|getShellEntry| $ 72))) (DEFUN |TSETCAT-;removeZero;PSP;18| (|p| |ts| $) - (PROG (|v| |tsv-| #0=#:G1558 #1=#:G1567 |q|) + (PROG (|v| |tsv-| #0=#:G1565 #1=#:G1574 |q|) (RETURN (SEQ (EXIT (COND - ((OR (SPADCALL |p| (QREFELT $ 35)) - (SPADCALL |ts| (QREFELT $ 12))) + ((OR (SPADCALL |p| (|getShellEntry| $ 35)) + (SPADCALL |ts| (|getShellEntry| $ 12))) |p|) ('T - (SEQ (LETT |v| (SPADCALL |p| (QREFELT $ 24)) + (SEQ (LETT |v| + (SPADCALL |p| (|getShellEntry| $ 24)) |TSETCAT-;removeZero;PSP;18|) (LETT |tsv-| - (SPADCALL |ts| |v| (QREFELT $ 82)) + (SPADCALL |ts| |v| + (|getShellEntry| $ 82)) |TSETCAT-;removeZero;PSP;18|) (COND - ((SPADCALL |v| |ts| (QREFELT $ 83)) + ((SPADCALL |v| |ts| (|getShellEntry| $ 83)) (SEQ (LETT |q| (SPADCALL |p| (PROG2 (LETT #0# (SPADCALL |ts| |v| - (QREFELT $ 84)) + (|getShellEntry| $ 84)) |TSETCAT-;removeZero;PSP;18|) (QCDR #0#) (|check-union| (QEQCAR #0# 0) - (QREFELT $ 10) #0#)) - (QREFELT $ 74)) + (|getShellEntry| $ 10) #0#)) + (|getShellEntry| $ 74)) |TSETCAT-;removeZero;PSP;18|) (EXIT (COND - ((SPADCALL |q| (QREFELT $ 32)) + ((SPADCALL |q| + (|getShellEntry| $ 32)) (PROGN (LETT #1# |q| |TSETCAT-;removeZero;PSP;18|) (GO #1#))) ((SPADCALL (SPADCALL |q| |tsv-| - (QREFELT $ 85)) - (QREFELT $ 32)) + (|getShellEntry| $ 85)) + (|getShellEntry| $ 32)) (PROGN (LETT #1# (|spadConstant| $ 86) |TSETCAT-;removeZero;PSP;18|) (GO #1#)))))))) (EXIT (COND - ((SPADCALL |tsv-| (QREFELT $ 12)) |p|) + ((SPADCALL |tsv-| + (|getShellEntry| $ 12)) + |p|) ('T (SEQ (LETT |q| (|spadConstant| $ 86) |TSETCAT-;removeZero;PSP;18|) @@ -1226,8 +1266,8 @@ Note that this code is not included in the generated catdef.spad file. ((NULL (SPADCALL (SPADCALL |p| |v| - (QREFELT $ 87)) - (QREFELT $ 89))) + (|getShellEntry| $ 87)) + (|getShellEntry| $ 89))) (GO G191))) (SEQ (LETT |q| @@ -1235,42 +1275,44 @@ Note that this code is not included in the generated catdef.spad file. (SPADCALL (SPADCALL (SPADCALL |p| - (QREFELT $ 46)) - |tsv-| (QREFELT $ 85)) + (|getShellEntry| $ 46)) + |tsv-| + (|getShellEntry| $ 85)) (SPADCALL |p| - (QREFELT $ 90)) - (QREFELT $ 91)) - |q| (QREFELT $ 92)) + (|getShellEntry| $ 90)) + (|getShellEntry| $ 91)) + |q| (|getShellEntry| $ 92)) |TSETCAT-;removeZero;PSP;18|) (EXIT (LETT |p| (SPADCALL |p| - (QREFELT $ 93)) + (|getShellEntry| $ 93)) |TSETCAT-;removeZero;PSP;18|))) NIL (GO G190) G191 (EXIT NIL)) (EXIT (SPADCALL |q| (SPADCALL |p| |tsv-| - (QREFELT $ 85)) - (QREFELT $ 92))))))))))) + (|getShellEntry| $ 85)) + (|getShellEntry| $ 92))))))))))) #1# (EXIT #1#))))) (DEFUN |TSETCAT-;reduceByQuasiMonic;PSP;19| (|p| |ts| $) (COND - ((OR (SPADCALL |p| (QREFELT $ 35)) (SPADCALL |ts| (QREFELT $ 12))) + ((OR (SPADCALL |p| (|getShellEntry| $ 35)) + (SPADCALL |ts| (|getShellEntry| $ 12))) |p|) ('T - (QVELT (SPADCALL |p| (SPADCALL |ts| (QREFELT $ 95)) - (QREFELT $ 97)) + (QVELT (SPADCALL |p| (SPADCALL |ts| (|getShellEntry| $ 95)) + (|getShellEntry| $ 97)) 1)))) (DEFUN |TSETCAT-;autoReduced?;SMB;20| (|ts| |redOp?| $) (PROG (|p| |lp|) (RETURN (SEQ (COND - ((SPADCALL |ts| (QREFELT $ 12)) 'T) + ((SPADCALL |ts| (|getShellEntry| $ 12)) 'T) ('T - (SEQ (LETT |lp| (SPADCALL |ts| (QREFELT $ 29)) + (SEQ (LETT |lp| (SPADCALL |ts| (|getShellEntry| $ 29)) |TSETCAT-;autoReduced?;SMB;20|) (LETT |p| (|SPADfirst| |lp|) |TSETCAT-;autoReduced?;SMB;20|) @@ -1290,41 +1332,42 @@ Note that this code is not included in the generated catdef.spad file. (EXIT (NULL |lp|))))))))) (DEFUN |TSETCAT-;stronglyReduced?;SB;21| (|ts| $) - (SPADCALL |ts| (ELT $ 59) (QREFELT $ 101))) + (SPADCALL |ts| (ELT $ 59) (|getShellEntry| $ 101))) (DEFUN |TSETCAT-;normalized?;SB;22| (|ts| $) - (SPADCALL |ts| (ELT $ 57) (QREFELT $ 101))) + (SPADCALL |ts| (ELT $ 57) (|getShellEntry| $ 101))) (DEFUN |TSETCAT-;headReduced?;SB;23| (|ts| $) - (SPADCALL |ts| (ELT $ 104) (QREFELT $ 101))) + (SPADCALL |ts| (ELT $ 104) (|getShellEntry| $ 101))) (DEFUN |TSETCAT-;initiallyReduced?;SB;24| (|ts| $) - (SPADCALL |ts| (ELT $ 106) (QREFELT $ 101))) + (SPADCALL |ts| (ELT $ 106) (|getShellEntry| $ 101))) (DEFUN |TSETCAT-;mvar;SV;25| (|ts| $) - (PROG (#0=#:G1586) + (PROG (#0=#:G1593) (RETURN (COND - ((SPADCALL |ts| (QREFELT $ 12)) + ((SPADCALL |ts| (|getShellEntry| $ 12)) (|error| "Error from TSETCAT in mvar : #1 is empty")) ('T (SPADCALL - (PROG2 (LETT #0# (SPADCALL |ts| (QREFELT $ 14)) + (PROG2 (LETT #0# (SPADCALL |ts| (|getShellEntry| $ 14)) |TSETCAT-;mvar;SV;25|) (QCDR #0#) - (|check-union| (QEQCAR #0# 0) (QREFELT $ 10) #0#)) - (QREFELT $ 24))))))) + (|check-union| (QEQCAR #0# 0) (|getShellEntry| $ 10) + #0#)) + (|getShellEntry| $ 24))))))) (DEFUN |TSETCAT-;first;SU;26| (|ts| $) (PROG (|lp|) (RETURN (SEQ (COND - ((SPADCALL |ts| (QREFELT $ 12)) (CONS 1 "failed")) + ((SPADCALL |ts| (|getShellEntry| $ 12)) (CONS 1 "failed")) ('T (SEQ (LETT |lp| (SPADCALL (ELT $ 23) - (SPADCALL |ts| (QREFELT $ 29)) - (QREFELT $ 37)) + (SPADCALL |ts| (|getShellEntry| $ 29)) + (|getShellEntry| $ 37)) |TSETCAT-;first;SU;26|) (EXIT (CONS 0 (|SPADfirst| |lp|)))))))))) @@ -1332,12 +1375,12 @@ Note that this code is not included in the generated catdef.spad file. (PROG (|lp|) (RETURN (SEQ (COND - ((SPADCALL |ts| (QREFELT $ 12)) (CONS 1 "failed")) + ((SPADCALL |ts| (|getShellEntry| $ 12)) (CONS 1 "failed")) ('T (SEQ (LETT |lp| (SPADCALL (ELT $ 22) - (SPADCALL |ts| (QREFELT $ 29)) - (QREFELT $ 37)) + (SPADCALL |ts| (|getShellEntry| $ 29)) + (|getShellEntry| $ 37)) |TSETCAT-;last;SU;27|) (EXIT (CONS 0 (|SPADfirst| |lp|)))))))))) @@ -1345,25 +1388,28 @@ Note that this code is not included in the generated catdef.spad file. (PROG (|lp|) (RETURN (SEQ (COND - ((SPADCALL |ts| (QREFELT $ 12)) (CONS 1 "failed")) + ((SPADCALL |ts| (|getShellEntry| $ 12)) (CONS 1 "failed")) ('T (SEQ (LETT |lp| (SPADCALL (ELT $ 23) - (SPADCALL |ts| (QREFELT $ 29)) - (QREFELT $ 37)) + (SPADCALL |ts| (|getShellEntry| $ 29)) + (|getShellEntry| $ 37)) |TSETCAT-;rest;SU;28|) - (EXIT (CONS 0 (SPADCALL (CDR |lp|) (QREFELT $ 111))))))))))) + (EXIT (CONS 0 + (SPADCALL (CDR |lp|) + (|getShellEntry| $ 111))))))))))) (DEFUN |TSETCAT-;coerce;SL;29| (|ts| $) - (SPADCALL (ELT $ 23) (SPADCALL |ts| (QREFELT $ 29)) (QREFELT $ 37))) + (SPADCALL (ELT $ 23) (SPADCALL |ts| (|getShellEntry| $ 29)) + (|getShellEntry| $ 37))) (DEFUN |TSETCAT-;algebraicVariables;SL;30| (|ts| $) - (PROG (#0=#:G1611 |p| #1=#:G1612) + (PROG (#0=#:G1618 |p| #1=#:G1619) (RETURN (SEQ (PROGN (LETT #0# NIL |TSETCAT-;algebraicVariables;SL;30|) (SEQ (LETT |p| NIL |TSETCAT-;algebraicVariables;SL;30|) - (LETT #1# (SPADCALL |ts| (QREFELT $ 29)) + (LETT #1# (SPADCALL |ts| (|getShellEntry| $ 29)) |TSETCAT-;algebraicVariables;SL;30|) G190 (COND @@ -1374,7 +1420,9 @@ Note that this code is not included in the generated catdef.spad file. NIL)) (GO G191))) (SEQ (EXIT (LETT #0# - (CONS (SPADCALL |p| (QREFELT $ 24)) + (CONS + (SPADCALL |p| + (|getShellEntry| $ 24)) #0#) |TSETCAT-;algebraicVariables;SL;30|))) (LETT #1# (CDR #1#) @@ -1382,14 +1430,16 @@ Note that this code is not included in the generated catdef.spad file. (GO G190) G191 (EXIT (NREVERSE0 #0#)))))))) (DEFUN |TSETCAT-;algebraic?;VSB;31| (|v| |ts| $) - (SPADCALL |v| (SPADCALL |ts| (QREFELT $ 116)) (QREFELT $ 117))) + (SPADCALL |v| (SPADCALL |ts| (|getShellEntry| $ 116)) + (|getShellEntry| $ 117))) (DEFUN |TSETCAT-;select;SVU;32| (|ts| |v| $) (PROG (|lp|) (RETURN (SEQ (LETT |lp| - (SPADCALL (ELT $ 23) (SPADCALL |ts| (QREFELT $ 29)) - (QREFELT $ 37)) + (SPADCALL (ELT $ 23) + (SPADCALL |ts| (|getShellEntry| $ 29)) + (|getShellEntry| $ 37)) |TSETCAT-;select;SVU;32|) (SEQ G190 (COND @@ -1399,9 +1449,9 @@ Note that this code is not included in the generated catdef.spad file. (SPADCALL (SPADCALL |v| (SPADCALL (|SPADfirst| |lp|) - (QREFELT $ 24)) - (QREFELT $ 65)) - (QREFELT $ 20))))) + (|getShellEntry| $ 24)) + (|getShellEntry| $ 65)) + (|getShellEntry| $ 20))))) (GO G191))) (SEQ (EXIT (LETT |lp| (CDR |lp|) |TSETCAT-;select;SVU;32|))) @@ -1413,31 +1463,32 @@ Note that this code is not included in the generated catdef.spad file. (DEFUN |TSETCAT-;collectQuasiMonic;2S;33| (|ts| $) (PROG (|newlp| |lp|) (RETURN - (SEQ (LETT |lp| (SPADCALL |ts| (QREFELT $ 29)) + (SEQ (LETT |lp| (SPADCALL |ts| (|getShellEntry| $ 29)) |TSETCAT-;collectQuasiMonic;2S;33|) (LETT |newlp| NIL |TSETCAT-;collectQuasiMonic;2S;33|) (SEQ G190 (COND - ((NULL (SPADCALL (NULL |lp|) (QREFELT $ 20))) + ((NULL (SPADCALL (NULL |lp|) (|getShellEntry| $ 20))) (GO G191))) (SEQ (COND ((SPADCALL (SPADCALL (|SPADfirst| |lp|) - (QREFELT $ 46)) - (QREFELT $ 35)) + (|getShellEntry| $ 46)) + (|getShellEntry| $ 35)) (LETT |newlp| (CONS (|SPADfirst| |lp|) |newlp|) |TSETCAT-;collectQuasiMonic;2S;33|))) (EXIT (LETT |lp| (CDR |lp|) |TSETCAT-;collectQuasiMonic;2S;33|))) NIL (GO G190) G191 (EXIT NIL)) - (EXIT (SPADCALL |newlp| (QREFELT $ 111))))))) + (EXIT (SPADCALL |newlp| (|getShellEntry| $ 111))))))) (DEFUN |TSETCAT-;collectUnder;SVS;34| (|ts| |v| $) (PROG (|lp|) (RETURN (SEQ (LETT |lp| - (SPADCALL (ELT $ 23) (SPADCALL |ts| (QREFELT $ 29)) - (QREFELT $ 37)) + (SPADCALL (ELT $ 23) + (SPADCALL |ts| (|getShellEntry| $ 29)) + (|getShellEntry| $ 37)) |TSETCAT-;collectUnder;SVS;34|) (SEQ G190 (COND @@ -1447,21 +1498,22 @@ Note that this code is not included in the generated catdef.spad file. (SPADCALL (SPADCALL (SPADCALL (|SPADfirst| |lp|) - (QREFELT $ 24)) - |v| (QREFELT $ 64)) - (QREFELT $ 20))))) + (|getShellEntry| $ 24)) + |v| (|getShellEntry| $ 64)) + (|getShellEntry| $ 20))))) (GO G191))) (SEQ (EXIT (LETT |lp| (CDR |lp|) |TSETCAT-;collectUnder;SVS;34|))) NIL (GO G190) G191 (EXIT NIL)) - (EXIT (SPADCALL |lp| (QREFELT $ 111))))))) + (EXIT (SPADCALL |lp| (|getShellEntry| $ 111))))))) (DEFUN |TSETCAT-;collectUpper;SVS;35| (|ts| |v| $) (PROG (|lp2| |lp1|) (RETURN (SEQ (LETT |lp1| - (SPADCALL (ELT $ 23) (SPADCALL |ts| (QREFELT $ 29)) - (QREFELT $ 37)) + (SPADCALL (ELT $ 23) + (SPADCALL |ts| (|getShellEntry| $ 29)) + (|getShellEntry| $ 37)) |TSETCAT-;collectUpper;SVS;35|) (LETT |lp2| NIL |TSETCAT-;collectUpper;SVS;35|) (SEQ G190 @@ -1471,20 +1523,20 @@ Note that this code is not included in the generated catdef.spad file. ('T (SPADCALL |v| (SPADCALL (|SPADfirst| |lp1|) - (QREFELT $ 24)) - (QREFELT $ 64))))) + (|getShellEntry| $ 24)) + (|getShellEntry| $ 64))))) (GO G191))) (SEQ (LETT |lp2| (CONS (|SPADfirst| |lp1|) |lp2|) |TSETCAT-;collectUpper;SVS;35|) (EXIT (LETT |lp1| (CDR |lp1|) |TSETCAT-;collectUpper;SVS;35|))) NIL (GO G190) G191 (EXIT NIL)) - (EXIT (SPADCALL (REVERSE |lp2|) (QREFELT $ 111))))))) + (EXIT (SPADCALL (REVERSE |lp2|) (|getShellEntry| $ 111))))))) (DEFUN |TSETCAT-;construct;LS;36| (|lp| $) (PROG (|rif|) (RETURN - (SEQ (LETT |rif| (SPADCALL |lp| (QREFELT $ 123)) + (SEQ (LETT |rif| (SPADCALL |lp| (|getShellEntry| $ 123)) |TSETCAT-;construct;LS;36|) (EXIT (COND ((QEQCAR |rif| 0) (QCDR |rif|)) @@ -1495,23 +1547,26 @@ Note that this code is not included in the generated catdef.spad file. (PROG (|rif|) (RETURN (SEQ (COND - ((NULL |lp|) (CONS 0 (SPADCALL (QREFELT $ 38)))) + ((NULL |lp|) (CONS 0 (SPADCALL (|getShellEntry| $ 38)))) ('T - (SEQ (LETT |lp| (SPADCALL (ELT $ 23) |lp| (QREFELT $ 37)) + (SEQ (LETT |lp| + (SPADCALL (ELT $ 23) |lp| + (|getShellEntry| $ 37)) |TSETCAT-;retractIfCan;LU;37|) - (LETT |rif| (SPADCALL (CDR |lp|) (QREFELT $ 123)) + (LETT |rif| + (SPADCALL (CDR |lp|) (|getShellEntry| $ 123)) |TSETCAT-;retractIfCan;LU;37|) (EXIT (COND ((QEQCAR |rif| 0) (SPADCALL (QCDR |rif|) (|SPADfirst| |lp|) - (QREFELT $ 125))) + (|getShellEntry| $ 125))) ('T (|error| "in retractIfCan : LP -> ... from TSETCAT : bad arg"))))))))))) (DEFUN |TSETCAT-;extend;SPS;38| (|ts| |p| $) (PROG (|eif|) (RETURN - (SEQ (LETT |eif| (SPADCALL |ts| |p| (QREFELT $ 125)) + (SEQ (LETT |eif| (SPADCALL |ts| |p| (|getShellEntry| $ 125)) |TSETCAT-;extend;SPS;38|) (EXIT (COND ((QEQCAR |eif| 0) (QCDR |eif|)) @@ -1519,13 +1574,15 @@ Note that this code is not included in the generated catdef.spad file. (|error| "in extend : ($,P) -> $ from TSETCAT : bad ars")))))))) (DEFUN |TSETCAT-;coHeight;SNni;39| (|ts| $) - (PROG (|n| |m| #0=#:G1652) + (PROG (|n| |m| #0=#:G1659) (RETURN - (SEQ (LETT |n| (SPADCALL (QREFELT $ 128)) + (SEQ (LETT |n| (SPADCALL (|getShellEntry| $ 128)) |TSETCAT-;coHeight;SNni;39|) - (LETT |m| (LENGTH (SPADCALL |ts| (QREFELT $ 29))) + (LETT |m| (LENGTH (SPADCALL |ts| (|getShellEntry| $ 29))) |TSETCAT-;coHeight;SNni;39|) - (EXIT (PROG2 (LETT #0# (SPADCALL |n| |m| (QREFELT $ 129)) + (EXIT (PROG2 (LETT #0# + (SPADCALL |n| |m| + (|getShellEntry| $ 129)) |TSETCAT-;coHeight;SNni;39|) (QCDR #0#) (|check-union| (QEQCAR #0# 0) (|NonNegativeInteger|) @@ -1544,21 +1601,21 @@ Note that this code is not included in the generated catdef.spad file. (LETT |dv$| (LIST '|TriangularSetCategory&| |dv$1| |dv$2| |dv$3| |dv$4| |dv$5|) . #0#) - (LETT $ (GETREFV 132) . #0#) - (QSETREFV $ 0 |dv$|) - (QSETREFV $ 3 + (LETT $ (|newShell| 132) . #0#) + (|setShellEntry| $ 0 |dv$|) + (|setShellEntry| $ 3 (LETT |pv$| (|buildPredVector| 0 0 (LIST (|HasCategory| |#4| '(|Finite|)))) . #0#)) (|stuffDomainSlots| $) - (QSETREFV $ 6 |#1|) - (QSETREFV $ 7 |#2|) - (QSETREFV $ 8 |#3|) - (QSETREFV $ 9 |#4|) - (QSETREFV $ 10 |#5|) + (|setShellEntry| $ 6 |#1|) + (|setShellEntry| $ 7 |#2|) + (|setShellEntry| $ 8 |#3|) + (|setShellEntry| $ 9 |#4|) + (|setShellEntry| $ 10 |#5|) (COND ((|testBitVector| |pv$| 1) - (QSETREFV $ 130 + (|setShellEntry| $ 130 (CONS (|dispatchFunction| |TSETCAT-;coHeight;SNni;39|) $)))) $)))) @@ -1681,7 +1738,9 @@ Note that this code is not included in the generated catdef.spad file. 11 9 0 118 2 0 11 0 0 19))))) '|lookupComplete|)) @ + \section{domain GTSET GeneralTriangularSet} + <<domain GTSET GeneralTriangularSet>>= )abbrev domain GTSET GeneralTriangularSet ++ Author: Marc Moreno Maza (marc@nag.co.uk) |