diff options
Diffstat (limited to 'src/algebra/strap/EUCDOM-.lsp')
| -rw-r--r-- | src/algebra/strap/EUCDOM-.lsp | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/src/algebra/strap/EUCDOM-.lsp b/src/algebra/strap/EUCDOM-.lsp index 33f3078c..2e47e3d4 100644 --- a/src/algebra/strap/EUCDOM-.lsp +++ b/src/algebra/strap/EUCDOM-.lsp @@ -92,7 +92,7 @@ |c|))))))) (DEFUN |EUCDOM-;extendedEuclidean;2SR;7| (|x| |y| $) - (PROG (|s3| |qr|) + (PROG (|qr| |s3|) (RETURN (LET ((|s1| (|EUCDOM-;unitNormalizeIdealElt| (VECTOR (|spadConstant| $ 30) @@ -139,10 +139,9 @@ (COND ((NOT (SPADCALL (SVREF |s1| 0) |y| (|getShellEntry| $ 32))) - (SEQ (LETT |qr| + (SEQ (SETQ |qr| (SPADCALL (SVREF |s1| 0) |y| - (|getShellEntry| $ 16)) - |EUCDOM-;extendedEuclidean;2SR;7|) + (|getShellEntry| $ 16))) (SETF (SVREF |s1| 0) (CDR |qr|)) (SETF (SVREF |s1| 1) (SPADCALL (SVREF |s1| 1) |