From f6e5de243353518085fbd39be9daef1f121a96e3 Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Fri, 18 Feb 2011 03:51:28 +0000
Subject: Rename %veclit to %vector and %listlit to %list

---
 src/algebra/strap/GCDDOM-.lsp | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

(limited to 'src/algebra/strap/GCDDOM-.lsp')

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|
-- 
cgit v1.2.3