aboutsummaryrefslogtreecommitdiff
path: root/src/algebra/strap/GCDDOM-.lsp
diff options
context:
space:
mode:
authordos-reis <gdr@axiomatics.org>2011-02-18 03:51:28 +0000
committerdos-reis <gdr@axiomatics.org>2011-02-18 03:51:28 +0000
commitf6e5de243353518085fbd39be9daef1f121a96e3 (patch)
tree0540e540bb30845fccfc795c3f41807d4cd52088 /src/algebra/strap/GCDDOM-.lsp
parent3691e956e1428f08363a0ed37e3f4f0f79b89ec0 (diff)
downloadopen-axiom-f6e5de243353518085fbd39be9daef1f121a96e3.tar.gz
Rename %veclit to %vector and %listlit to %list
Diffstat (limited to 'src/algebra/strap/GCDDOM-.lsp')
-rw-r--r--src/algebra/strap/GCDDOM-.lsp5
1 files changed, 2 insertions, 3 deletions
diff --git a/src/algebra/strap/GCDDOM-.lsp b/src/algebra/strap/GCDDOM-.lsp
index a2e1e688..da18be94 100644
--- a/src/algebra/strap/GCDDOM-.lsp
+++ b/src/algebra/strap/GCDDOM-.lsp
@@ -35,7 +35,7 @@
(|getShellEntry| $ 19)))
(DEFUN |GCDDOM-;gcdPolynomial;3Sup;4| (|p1| |p2| $)
- (PROG (|e2| |e1| |p|)
+ (PROG (|e1| |e2| |p|)
(RETURN
(COND
((SPADCALL |p1| (|getShellEntry| $ 24))
@@ -99,8 +99,7 @@
(SVREF $ 6))
#0#)
(CDR #0#)))))))
- (LETT |e1| (MIN |e1| |e2|)
- |GCDDOM-;gcdPolynomial;3Sup;4|)
+ (SETQ |e1| (MIN |e1| |e2|))
(SETQ |c1|
(SPADCALL |c1| |c2| (|getShellEntry| $ 10)))
(SETQ |p1|