diff options
Diffstat (limited to 'src/algebra/strap/POLYCAT.lsp')
-rw-r--r-- | src/algebra/strap/POLYCAT.lsp | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/src/algebra/strap/POLYCAT.lsp b/src/algebra/strap/POLYCAT.lsp index 37a40b36..a6d05ac2 100644 --- a/src/algebra/strap/POLYCAT.lsp +++ b/src/algebra/strap/POLYCAT.lsp @@ -14,7 +14,7 @@ (COND (|PolynomialCategory;CAT|) ('T - (LETT |PolynomialCategory;CAT| + (SETQ |PolynomialCategory;CAT| (|Join| (|PartialDifferentialRing| '|t#3|) (|FiniteAbelianMonoidRing| '|t#1| '|t#2|) @@ -197,8 +197,7 @@ (|SparseUnivariatePolynomial| |t#1|) (|List| (|NonNegativeInteger|))) - NIL)) - |PolynomialCategory|)))))) + NIL)))))))) (|setShellEntry| #0# 0 (LIST '|PolynomialCategory| (|devaluate| |t#1|) (|devaluate| |t#2|) (|devaluate| |t#3|))) |