diff options
author | dos-reis <gdr@axiomatics.org> | 2011-01-27 17:08:27 +0000 |
---|---|---|
committer | dos-reis <gdr@axiomatics.org> | 2011-01-27 17:08:27 +0000 |
commit | 8e0d0dbfa31e6a035ec5e954c192742ade763dda (patch) | |
tree | 2eb913a591c3582a95e0419e2aed3c9df458dda0 /src/algebra/strap/GCDDOM-.lsp | |
parent | 8a5fd55bbfb440f3b4d787c345782b546dd96a6b (diff) | |
download | open-axiom-8e0d0dbfa31e6a035ec5e954c192742ade763dda.tar.gz |
* interp/nruncomp.boot (NRTputInHead): Tidy.
Diffstat (limited to 'src/algebra/strap/GCDDOM-.lsp')
-rw-r--r-- | src/algebra/strap/GCDDOM-.lsp | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/src/algebra/strap/GCDDOM-.lsp b/src/algebra/strap/GCDDOM-.lsp index 36dbbf51..b8e1a81d 100644 --- a/src/algebra/strap/GCDDOM-.lsp +++ b/src/algebra/strap/GCDDOM-.lsp @@ -60,7 +60,7 @@ (|getShellEntry| $ 27)))) (|check-union| (ZEROP (CAR #0#)) (|SparseUnivariatePolynomial| - (|getShellEntry| $ 6)) + (SVREF $ 6)) #0#) (CDR #0#))) (SETQ |p2| @@ -68,7 +68,7 @@ (|getShellEntry| $ 27)))) (|check-union| (ZEROP (CAR #0#)) (|SparseUnivariatePolynomial| - (|getShellEntry| $ 6)) + (SVREF $ 6)) #0#) (CDR #0#))) (SEQ (LETT |e1| @@ -85,7 +85,7 @@ (|getShellEntry| $ 35)))) (|check-union| (ZEROP (CAR #0#)) (|SparseUnivariatePolynomial| - (|getShellEntry| $ 6)) + (SVREF $ 6)) #0#) (CDR #0#))))))) (SEQ (LETT |e2| @@ -102,7 +102,7 @@ (|getShellEntry| $ 35)))) (|check-union| (ZEROP (CAR #0#)) (|SparseUnivariatePolynomial| - (|getShellEntry| $ 6)) + (SVREF $ 6)) #0#) (CDR #0#))))))) (LETT |e1| (MIN |e1| |e2|) @@ -154,7 +154,7 @@ (|check-union| (ZEROP (CAR #0#)) (|SparseUnivariatePolynomial| - (|getShellEntry| $ 6)) + (SVREF $ 6)) #0#) (CDR #0#)) (|getShellEntry| $ 42)) |