aboutsummaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
Diffstat (limited to 'src')
-rw-r--r--src/algebra/aggcat.spad.pamphlet8
-rw-r--r--src/algebra/boolean.spad.pamphlet94
-rw-r--r--src/algebra/catdef.spad.pamphlet1175
-rw-r--r--src/algebra/ffcat.spad.pamphlet258
-rw-r--r--src/algebra/fraction.spad.pamphlet287
-rw-r--r--src/algebra/integer.spad.pamphlet540
-rw-r--r--src/algebra/polset.spad.pamphlet337
-rw-r--r--src/algebra/polycat.spad.pamphlet1756
-rw-r--r--src/algebra/sf.spad.pamphlet152
-rw-r--r--src/algebra/si.spad.pamphlet987
-rw-r--r--src/algebra/symbol.spad.pamphlet435
-rw-r--r--src/algebra/triset.spad.pamphlet443
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)
generated by cgit v1.2.3 (git 2.39.1) at 2024-12-29 14:47:23 +0000