aboutsummaryrefslogtreecommitdiff
path: root/src/algebra/strap/FFIELDC-.lsp
diff options
context:
space:
mode:
Diffstat (limited to 'src/algebra/strap/FFIELDC-.lsp')
-rw-r--r--src/algebra/strap/FFIELDC-.lsp667
1 files changed, 317 insertions, 350 deletions
diff --git a/src/algebra/strap/FFIELDC-.lsp b/src/algebra/strap/FFIELDC-.lsp
index ff4359c7..c4fb644f 100644
--- a/src/algebra/strap/FFIELDC-.lsp
+++ b/src/algebra/strap/FFIELDC-.lsp
@@ -120,363 +120,334 @@
(DEFUN |FFIELDC-;primitive?;SB;9| (|a| $)
(PROG (|explist| |q| |equalone|)
(RETURN
- (SEQ (COND
- ((SPADCALL |a| (|getShellEntry| $ 16)) NIL)
- (T (SEQ (LETT |explist| (SPADCALL (|getShellEntry| $ 56))
- |FFIELDC-;primitive?;SB;9|)
- (LETT |q| (- (SPADCALL (|getShellEntry| $ 40)) 1)
- |FFIELDC-;primitive?;SB;9|)
- (LETT |equalone| NIL |FFIELDC-;primitive?;SB;9|)
- (LET ((#0=#:G1488 |explist|) (|exp| NIL))
- (LOOP
- (COND
- ((OR (ATOM #0#)
- (PROGN (SETQ |exp| (CAR #0#)) NIL)
- (NOT (NOT |equalone|)))
- (RETURN NIL))
- (T (SETQ |equalone|
- (SPADCALL
- (SPADCALL |a|
- (TRUNCATE |q| (CAR |exp|))
- (|getShellEntry| $ 58))
- (|getShellEntry| $ 59)))))
- (SETQ #0# (CDR #0#))))
- (EXIT (NOT |equalone|)))))))))
+ (COND
+ ((SPADCALL |a| (|getShellEntry| $ 16)) NIL)
+ (T (SEQ (LETT |explist| (SPADCALL (|getShellEntry| $ 56))
+ |FFIELDC-;primitive?;SB;9|)
+ (LETT |q| (- (SPADCALL (|getShellEntry| $ 40)) 1)
+ |FFIELDC-;primitive?;SB;9|)
+ (LETT |equalone| NIL |FFIELDC-;primitive?;SB;9|)
+ (LET ((#0=#:G1488 |explist|) (|exp| NIL))
+ (LOOP
+ (COND
+ ((OR (ATOM #0#)
+ (PROGN (SETQ |exp| (CAR #0#)) NIL)
+ (NOT (NOT |equalone|)))
+ (RETURN NIL))
+ (T (SETQ |equalone|
+ (SPADCALL
+ (SPADCALL |a|
+ (TRUNCATE |q| (CAR |exp|))
+ (|getShellEntry| $ 58))
+ (|getShellEntry| $ 59)))))
+ (SETQ #0# (CDR #0#))))
+ (EXIT (NOT |equalone|))))))))
(DEFUN |FFIELDC-;order;SPi;10| (|e| $)
(PROG (|primeDivisor| |a| |goon| |ord| |lof|)
(RETURN
- (SEQ (COND
- ((SPADCALL |e| (|spadConstant| $ 7)
- (|getShellEntry| $ 63))
- (|error| "order(0) is not defined "))
- (T (SEQ (LETT |ord|
- (- (SPADCALL (|getShellEntry| $ 40)) 1)
- |FFIELDC-;order;SPi;10|)
- (LETT |lof| (SPADCALL (|getShellEntry| $ 56))
- |FFIELDC-;order;SPi;10|)
- (LET ((#0=#:G1489 |lof|))
- (LOOP
- (COND
- ((ATOM #0#) (RETURN NIL))
- (T (LET ((|rec| (CAR #0#)))
- (SEQ (LETT |a|
+ (COND
+ ((SPADCALL |e| (|spadConstant| $ 7) (|getShellEntry| $ 63))
+ (|error| "order(0) is not defined "))
+ (T (SEQ (LETT |ord| (- (SPADCALL (|getShellEntry| $ 40)) 1)
+ |FFIELDC-;order;SPi;10|)
+ (LETT |lof| (SPADCALL (|getShellEntry| $ 56))
+ |FFIELDC-;order;SPi;10|)
+ (LET ((#0=#:G1489 |lof|))
+ (LOOP
+ (COND
+ ((ATOM #0#) (RETURN NIL))
+ (T (LET ((|rec| (CAR #0#)))
+ (SEQ (LETT |a|
(TRUNCATE |ord|
(LETT |primeDivisor| (CAR |rec|)
|FFIELDC-;order;SPi;10|))
|FFIELDC-;order;SPi;10|)
- (LETT |goon|
+ (LETT |goon|
(SPADCALL
(SPADCALL |e| |a|
(|getShellEntry| $ 58))
(|getShellEntry| $ 59))
|FFIELDC-;order;SPi;10|)
- (LET
- ((|j| 0)
- (#1=#:G1490 (- (CDR |rec|) 2)))
- (LOOP
- (COND
- ((OR (> |j| #1#)
- (NOT |goon|))
- (RETURN NIL))
- (T
- (SEQ (SETQ |ord| |a|)
- (SETQ |a|
- (TRUNCATE |ord|
- |primeDivisor|))
- (EXIT
- (SETQ |goon|
- (SPADCALL
- (SPADCALL |e| |a|
- (|getShellEntry| $ 58))
- (|getShellEntry| $ 59)))))))
- (SETQ |j| (+ |j| 1))))
- (EXIT
- (COND (|goon| (SETQ |ord| |a|))))))))
- (SETQ #0# (CDR #0#))))
- (EXIT |ord|))))))))
+ (LET ((|j| 0)
+ (#1=#:G1490 (- (CDR |rec|) 2)))
+ (LOOP
+ (COND
+ ((OR (> |j| #1#) (NOT |goon|))
+ (RETURN NIL))
+ (T
+ (SEQ (SETQ |ord| |a|)
+ (SETQ |a|
+ (TRUNCATE |ord|
+ |primeDivisor|))
+ (EXIT
+ (SETQ |goon|
+ (SPADCALL
+ (SPADCALL |e| |a|
+ (|getShellEntry| $ 58))
+ (|getShellEntry| $ 59)))))))
+ (SETQ |j| (+ |j| 1))))
+ (EXIT (COND (|goon| (SETQ |ord| |a|))))))))
+ (SETQ #0# (CDR #0#))))
+ (EXIT |ord|)))))))
(DEFUN |FFIELDC-;discreteLog;SNni;11| (|b| $)
(PROG (|rho| |exptable| |n| |c| |end| |found| |disc1| |fac| |faclist|
|a| |gen| |disclog| |mult| |groupord| |exp|)
(RETURN
- (SEQ (COND
- ((SPADCALL |b| (|getShellEntry| $ 16))
- (|error| "discreteLog: logarithm of zero"))
- (T (SEQ (LETT |faclist| (SPADCALL (|getShellEntry| $ 56))
- |FFIELDC-;discreteLog;SNni;11|)
- (LETT |a| |b| |FFIELDC-;discreteLog;SNni;11|)
- (LETT |gen| (SPADCALL (|getShellEntry| $ 65))
- |FFIELDC-;discreteLog;SNni;11|)
- (EXIT (COND
- ((SPADCALL |b| |gen|
- (|getShellEntry| $ 63))
- 1)
- (T (SEQ (LETT |disclog| 0
+ (COND
+ ((SPADCALL |b| (|getShellEntry| $ 16))
+ (|error| "discreteLog: logarithm of zero"))
+ (T (SEQ (LETT |faclist| (SPADCALL (|getShellEntry| $ 56))
+ |FFIELDC-;discreteLog;SNni;11|)
+ (LETT |a| |b| |FFIELDC-;discreteLog;SNni;11|)
+ (LETT |gen| (SPADCALL (|getShellEntry| $ 65))
+ |FFIELDC-;discreteLog;SNni;11|)
+ (EXIT (COND
+ ((SPADCALL |b| |gen| (|getShellEntry| $ 63)) 1)
+ (T (SEQ (LETT |disclog| 0
|FFIELDC-;discreteLog;SNni;11|)
- (LETT |mult| 1
+ (LETT |mult| 1
|FFIELDC-;discreteLog;SNni;11|)
- (LETT |groupord|
+ (LETT |groupord|
(-
(SPADCALL
(|getShellEntry| $ 40))
1)
|FFIELDC-;discreteLog;SNni;11|)
- (LETT |exp| |groupord|
+ (LETT |exp| |groupord|
|FFIELDC-;discreteLog;SNni;11|)
- (LET ((#0=#:G1491 |faclist|))
- (LOOP
- (COND
- ((ATOM #0#) (RETURN NIL))
- (T
- (LET ((|f| (CAR #0#)))
- (SEQ
- (LETT |fac| (CAR |f|)
- |FFIELDC-;discreteLog;SNni;11|)
- (EXIT
- (LET
- ((|t| 0)
- (#1=#:G1492
- (- (CDR |f|) 1)))
- (LOOP
- (COND
- ((> |t| #1#)
- (RETURN NIL))
- (T
- (SEQ
- (SETQ |exp|
- (TRUNCATE
- |exp| |fac|))
- (LETT
- |exptable|
- (SPADCALL
- |fac|
- (|getShellEntry|
- $ 67))
- |FFIELDC-;discreteLog;SNni;11|)
- (LETT |n|
- (SPADCALL
- |exptable|
- (|getShellEntry|
- $ 68))
- |FFIELDC-;discreteLog;SNni;11|)
- (LETT |c|
- (SPADCALL |a|
- |exp|
- (|getShellEntry|
- $ 58))
- |FFIELDC-;discreteLog;SNni;11|)
- (LETT |end|
- (TRUNCATE
- (- |fac| 1)
- |n|)
- |FFIELDC-;discreteLog;SNni;11|)
- (LETT |found|
- NIL
- |FFIELDC-;discreteLog;SNni;11|)
- (LETT |disc1| 0
- |FFIELDC-;discreteLog;SNni;11|)
- (LET ((|i| 0))
- (LOOP
+ (LET ((#0=#:G1491 |faclist|))
+ (LOOP
+ (COND
+ ((ATOM #0#) (RETURN NIL))
+ (T
+ (LET ((|f| (CAR #0#)))
+ (SEQ
+ (LETT |fac| (CAR |f|)
+ |FFIELDC-;discreteLog;SNni;11|)
+ (EXIT
+ (LET
+ ((|t| 0)
+ (#1=#:G1492
+ (- (CDR |f|) 1)))
+ (LOOP
+ (COND
+ ((> |t| #1#)
+ (RETURN NIL))
+ (T
+ (SEQ
+ (SETQ |exp|
+ (TRUNCATE |exp|
+ |fac|))
+ (LETT |exptable|
+ (SPADCALL |fac|
+ (|getShellEntry| $
+ 67))
+ |FFIELDC-;discreteLog;SNni;11|)
+ (LETT |n|
+ (SPADCALL
+ |exptable|
+ (|getShellEntry| $
+ 68))
+ |FFIELDC-;discreteLog;SNni;11|)
+ (LETT |c|
+ (SPADCALL |a| |exp|
+ (|getShellEntry| $
+ 58))
+ |FFIELDC-;discreteLog;SNni;11|)
+ (LETT |end|
+ (TRUNCATE
+ (- |fac| 1) |n|)
+ |FFIELDC-;discreteLog;SNni;11|)
+ (LETT |found| NIL
+ |FFIELDC-;discreteLog;SNni;11|)
+ (LETT |disc1| 0
+ |FFIELDC-;discreteLog;SNni;11|)
+ (LET ((|i| 0))
+ (LOOP
+ (COND
+ ((OR
+ (> |i|
+ |end|)
+ (NOT
+ (NOT
+ |found|)))
+ (RETURN NIL))
+ (T
+ (SEQ
+ (LETT |rho|
+ (SPADCALL
+ (SPADCALL
+ |c|
+ (|getShellEntry|
+ $ 11))
+ |exptable|
+ (|getShellEntry|
+ $ 71))
+ |FFIELDC-;discreteLog;SNni;11|)
+ (EXIT
(COND
- ((OR
- (> |i|
- |end|)
- (NOT
- (NOT
- |found|)))
- (RETURN
- NIL))
- (T
+ ((ZEROP
+ (CAR
+ |rho|))
(SEQ
- (LETT
- |rho|
+ (SETQ
+ |found|
+ T)
+ (EXIT
+ (SETQ
+ |disc1|
+ (*
+ (+
+ (*
+ |n|
+ |i|)
+ (CDR
+ |rho|))
+ |mult|)))))
+ (T
+ (SETQ
+ |c|
+ (SPADCALL
+ |c|
(SPADCALL
- (SPADCALL
- |c|
- (|getShellEntry|
- $
- 11))
- |exptable|
+ |gen|
+ (*
+ (TRUNCATE
+ |groupord|
+ |fac|)
+ (-
+ |n|))
(|getShellEntry|
$
- 71))
- |FFIELDC-;discreteLog;SNni;11|)
- (EXIT
- (COND
- ((ZEROP
- (CAR
- |rho|))
- (SEQ
- (SETQ
- |found|
- T)
- (EXIT
- (SETQ
- |disc1|
- (*
- (+
- (*
- |n|
- |i|)
- (CDR
- |rho|))
- |mult|)))))
- (T
- (SETQ
- |c|
- (SPADCALL
- |c|
- (SPADCALL
- |gen|
- (*
- (TRUNCATE
- |groupord|
- |fac|)
- (-
- |n|))
- (|getShellEntry|
- $
- 58))
- (|getShellEntry|
- $
- 77)))))))))
- (SETQ |i|
- (+ |i| 1))))
- (EXIT
- (COND
- (|found|
- (SEQ
- (SETQ
- |mult|
- (* |mult|
- |fac|))
- (SETQ
- |disclog|
- (+
- |disclog|
- |disc1|))
- (EXIT
- (SETQ |a|
- (SPADCALL
- |a|
- (SPADCALL
- |gen|
- (-
- |disc1|)
+ 58))
(|getShellEntry|
- $ 58))
- (|getShellEntry|
- $ 77))))))
- (T
- (|error|
- "discreteLog: ?? discrete logarithm")))))))
- (SETQ |t|
- (+ |t| 1)))))))))
- (SETQ #0# (CDR #0#))))
- (EXIT |disclog|))))))))))))
+ $ 77)))))))))
+ (SETQ |i|
+ (+ |i| 1))))
+ (EXIT
+ (COND
+ (|found|
+ (SEQ
+ (SETQ |mult|
+ (* |mult|
+ |fac|))
+ (SETQ |disclog|
+ (+ |disclog|
+ |disc1|))
+ (EXIT
+ (SETQ |a|
+ (SPADCALL |a|
+ (SPADCALL
+ |gen|
+ (- |disc1|)
+ (|getShellEntry|
+ $ 58))
+ (|getShellEntry|
+ $ 77))))))
+ (T
+ (|error|
+ "discreteLog: ?? discrete logarithm")))))))
+ (SETQ |t| (+ |t| 1)))))))))
+ (SETQ #0# (CDR #0#))))
+ (EXIT |disclog|)))))))))))
(DEFUN |FFIELDC-;discreteLog;2SU;12| (|logbase| |b| $)
(PROG (|rhoHelp| |rho| |fac| |primroot| |groupord| |faclist| |a|
|disclog| |mult| |exp|)
(RETURN
- (SEQ (COND
- ((SPADCALL |b| (|getShellEntry| $ 16))
- (SEQ (SPADCALL "discreteLog: logarithm of zero"
- (|getShellEntry| $ 83))
- (EXIT (CONS 1 "failed"))))
- ((SPADCALL |logbase| (|getShellEntry| $ 16))
- (SEQ (SPADCALL "discreteLog: logarithm to base zero"
- (|getShellEntry| $ 83))
- (EXIT (CONS 1 "failed"))))
- ((SPADCALL |b| |logbase| (|getShellEntry| $ 63))
- (CONS 0 1))
- (T (COND
- ((NOT (ZEROP (REM (LETT |groupord|
+ (COND
+ ((SPADCALL |b| (|getShellEntry| $ 16))
+ (SEQ (SPADCALL "discreteLog: logarithm of zero"
+ (|getShellEntry| $ 83))
+ (EXIT (CONS 1 "failed"))))
+ ((SPADCALL |logbase| (|getShellEntry| $ 16))
+ (SEQ (SPADCALL "discreteLog: logarithm to base zero"
+ (|getShellEntry| $ 83))
+ (EXIT (CONS 1 "failed"))))
+ ((SPADCALL |b| |logbase| (|getShellEntry| $ 63)) (CONS 0 1))
+ (T (COND
+ ((NOT (ZEROP (REM (LETT |groupord|
(SPADCALL |logbase|
(|getShellEntry| $ 19))
|FFIELDC-;discreteLog;2SU;12|)
- (SPADCALL |b|
- (|getShellEntry| $ 19)))))
- (SEQ (SPADCALL
- "discreteLog: second argument not in cyclic group generated by first argument"
- (|getShellEntry| $ 83))
- (EXIT (CONS 1 "failed"))))
- (T (SEQ (LETT |faclist|
- (SPADCALL
- (SPADCALL |groupord|
- (|getShellEntry| $ 87))
- (|getShellEntry| $ 89))
- |FFIELDC-;discreteLog;2SU;12|)
- (LETT |a| |b| |FFIELDC-;discreteLog;2SU;12|)
- (LETT |disclog| 0
- |FFIELDC-;discreteLog;2SU;12|)
- (LETT |mult| 1 |FFIELDC-;discreteLog;2SU;12|)
- (LETT |exp| |groupord|
- |FFIELDC-;discreteLog;2SU;12|)
- (LET ((#0=#:G1493 |faclist|))
- (LOOP
- (COND
- ((ATOM #0#) (RETURN NIL))
- (T (LET ((|f| (CAR #0#)))
- (SEQ
- (LETT |fac| (CAR |f|)
- |FFIELDC-;discreteLog;2SU;12|)
- (LETT |primroot|
- (SPADCALL |logbase|
- (TRUNCATE |groupord| |fac|)
- (|getShellEntry| $ 58))
- |FFIELDC-;discreteLog;2SU;12|)
- (EXIT
- (LET
- ((|t| 0)
- (#1=#:G1494 (- (CDR |f|) 1)))
- (LOOP
- (COND
- ((> |t| #1#) (RETURN NIL))
- (T
- (SEQ
- (SETQ |exp|
- (TRUNCATE |exp| |fac|))
- (LETT |rhoHelp|
- (SPADCALL |primroot|
- (SPADCALL |a| |exp|
- (|getShellEntry| $
- 58))
- |fac|
- (|getShellEntry| $ 91))
- |FFIELDC-;discreteLog;2SU;12|)
- (EXIT
- (COND
- ((EQL (CAR |rhoHelp|)
- 1)
- (RETURN-FROM
- |FFIELDC-;discreteLog;2SU;12|
- (CONS 1 "failed")))
- (T
- (SEQ
- (LETT |rho|
- (* (CDR |rhoHelp|)
- |mult|)
- |FFIELDC-;discreteLog;2SU;12|)
- (SETQ |disclog|
- (+ |disclog|
- |rho|))
- (SETQ |mult|
- (* |mult| |fac|))
- (EXIT
- (SETQ |a|
- (SPADCALL |a|
- (SPADCALL
- |logbase|
- (- |rho|)
- (|getShellEntry|
- $ 58))
+ (SPADCALL |b| (|getShellEntry| $ 19)))))
+ (SEQ (SPADCALL
+ "discreteLog: second argument not in cyclic group generated by first argument"
+ (|getShellEntry| $ 83))
+ (EXIT (CONS 1 "failed"))))
+ (T (SEQ (LETT |faclist|
+ (SPADCALL
+ (SPADCALL |groupord|
+ (|getShellEntry| $ 87))
+ (|getShellEntry| $ 89))
+ |FFIELDC-;discreteLog;2SU;12|)
+ (LETT |a| |b| |FFIELDC-;discreteLog;2SU;12|)
+ (LETT |disclog| 0 |FFIELDC-;discreteLog;2SU;12|)
+ (LETT |mult| 1 |FFIELDC-;discreteLog;2SU;12|)
+ (LETT |exp| |groupord|
+ |FFIELDC-;discreteLog;2SU;12|)
+ (LET ((#0=#:G1493 |faclist|))
+ (LOOP
+ (COND
+ ((ATOM #0#) (RETURN NIL))
+ (T (LET ((|f| (CAR #0#)))
+ (SEQ (LETT |fac| (CAR |f|)
+ |FFIELDC-;discreteLog;2SU;12|)
+ (LETT |primroot|
+ (SPADCALL |logbase|
+ (TRUNCATE |groupord| |fac|)
+ (|getShellEntry| $ 58))
+ |FFIELDC-;discreteLog;2SU;12|)
+ (EXIT
+ (LET
+ ((|t| 0)
+ (#1=#:G1494 (- (CDR |f|) 1)))
+ (LOOP
+ (COND
+ ((> |t| #1#) (RETURN NIL))
+ (T
+ (SEQ
+ (SETQ |exp|
+ (TRUNCATE |exp| |fac|))
+ (LETT |rhoHelp|
+ (SPADCALL |primroot|
+ (SPADCALL |a| |exp|
+ (|getShellEntry| $ 58))
+ |fac|
+ (|getShellEntry| $ 91))
+ |FFIELDC-;discreteLog;2SU;12|)
+ (EXIT
+ (COND
+ ((EQL (CAR |rhoHelp|)
+ 1)
+ (RETURN-FROM
+ |FFIELDC-;discreteLog;2SU;12|
+ (CONS 1 "failed")))
+ (T
+ (SEQ
+ (LETT |rho|
+ (* (CDR |rhoHelp|)
+ |mult|)
+ |FFIELDC-;discreteLog;2SU;12|)
+ (SETQ |disclog|
+ (+ |disclog| |rho|))
+ (SETQ |mult|
+ (* |mult| |fac|))
+ (EXIT
+ (SETQ |a|
+ (SPADCALL |a|
+ (SPADCALL
+ |logbase|
+ (- |rho|)
(|getShellEntry|
- $ 77)))))))))))
- (SETQ |t| (+ |t| 1)))))))))
- (SETQ #0# (CDR #0#))))
- (EXIT (CONS 0 |disclog|)))))))))))
+ $ 58))
+ (|getShellEntry|
+ $ 77)))))))))))
+ (SETQ |t| (+ |t| 1)))))))))
+ (SETQ #0# (CDR #0#))))
+ (EXIT (CONS 0 |disclog|))))))))))
(DEFUN |FFIELDC-;squareFreePolynomial| (|f| $)
(SPADCALL |f| (|getShellEntry| $ 96)))
@@ -487,41 +458,37 @@
(DEFUN |FFIELDC-;factorSquareFreePolynomial| (|f| $)
(PROG (|flist|)
(RETURN
- (SEQ (COND
- ((SPADCALL |f| (|spadConstant| $ 99)
- (|getShellEntry| $ 100))
- (|spadConstant| $ 101))
- (T (SEQ (LETT |flist|
- (SPADCALL |f| T (|getShellEntry| $ 105))
- |FFIELDC-;factorSquareFreePolynomial|)
- (EXIT (SPADCALL
- (SPADCALL (CAR |flist|)
- (|getShellEntry| $ 106))
- (LET ((#0=#:G1483 NIL) (#1=#:G1484 T)
- (#2=#:G1495 (CDR |flist|)))
- (LOOP
+ (COND
+ ((SPADCALL |f| (|spadConstant| $ 99) (|getShellEntry| $ 100))
+ (|spadConstant| $ 101))
+ (T (SEQ (LETT |flist| (SPADCALL |f| T (|getShellEntry| $ 105))
+ |FFIELDC-;factorSquareFreePolynomial|)
+ (EXIT (SPADCALL
+ (SPADCALL (CAR |flist|)
+ (|getShellEntry| $ 106))
+ (LET ((#0=#:G1483 NIL) (#1=#:G1484 T)
+ (#2=#:G1495 (CDR |flist|)))
+ (LOOP
+ (COND
+ ((ATOM #2#)
+ (RETURN
(COND
- ((ATOM #2#)
- (RETURN
- (COND
- (#1# (|spadConstant| $ 109))
- (T #0#))))
- (T
- (LET ((|u| (CAR #2#)))
- (LET
- ((#3=#:G1482
- (SPADCALL (CAR |u|)
- (CDR |u|)
- (|getShellEntry| $ 107))))
- (COND
- (#1# (SETQ #0# #3#))
- (T
- (SETQ #0#
- (SPADCALL #0# #3#
- (|getShellEntry| $ 108)))))
- (SETQ #1# NIL)))))
- (SETQ #2# (CDR #2#))))
- (|getShellEntry| $ 110))))))))))
+ (#1# (|spadConstant| $ 109))
+ (T #0#))))
+ (T (LET ((|u| (CAR #2#)))
+ (LET
+ ((#3=#:G1482
+ (SPADCALL (CAR |u|) (CDR |u|)
+ (|getShellEntry| $ 107))))
+ (COND
+ (#1# (SETQ #0# #3#))
+ (T
+ (SETQ #0#
+ (SPADCALL #0# #3#
+ (|getShellEntry| $ 108)))))
+ (SETQ #1# NIL)))))
+ (SETQ #2# (CDR #2#))))
+ (|getShellEntry| $ 110)))))))))
(DEFUN |FFIELDC-;gcdPolynomial;3Sup;16| (|f| |g| $)
(SPADCALL |f| |g| (|getShellEntry| $ 112)))
generated by cgit v1.2.3 (git 2.39.1) at 2024-11-06 13:46:34 +0000