diff options
Diffstat (limited to 'src/algebra/strap/EUCDOM-.lsp')
| -rw-r--r-- | src/algebra/strap/EUCDOM-.lsp | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/src/algebra/strap/EUCDOM-.lsp b/src/algebra/strap/EUCDOM-.lsp index 50fe1009..8e091370 100644 --- a/src/algebra/strap/EUCDOM-.lsp +++ b/src/algebra/strap/EUCDOM-.lsp @@ -100,14 +100,14 @@ (DEFUN |EUCDOM-;extendedEuclidean;2SR;7| (|x| |y| $) (PROG (|s3| |qr|) (RETURN - (LET* ((|s1| (|EUCDOM-;unitNormalizeIdealElt| - (VECTOR (|spadConstant| $ 30) - (|spadConstant| $ 19) |x|) - $)) - (|s2| (|EUCDOM-;unitNormalizeIdealElt| - (VECTOR (|spadConstant| $ 19) - (|spadConstant| $ 30) |y|) - $))) + (LET ((|s1| (|EUCDOM-;unitNormalizeIdealElt| + (VECTOR (|spadConstant| $ 30) + (|spadConstant| $ 19) |x|) + $)) + (|s2| (|EUCDOM-;unitNormalizeIdealElt| + (VECTOR (|spadConstant| $ 19) + (|spadConstant| $ 30) |y|) + $))) (COND ((SPADCALL |y| (|getShellEntry| $ 8)) |s1|) ((SPADCALL |x| (|getShellEntry| $ 8)) |s2|) |