diff options
Diffstat (limited to 'src/algebra/strap/POLYCAT.lsp')
-rw-r--r-- | src/algebra/strap/POLYCAT.lsp | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/algebra/strap/POLYCAT.lsp b/src/algebra/strap/POLYCAT.lsp index ed7ebdfe..98b3c254 100644 --- a/src/algebra/strap/POLYCAT.lsp +++ b/src/algebra/strap/POLYCAT.lsp @@ -193,9 +193,9 @@ |t#1|) (|List| (|NonNegativeInteger|))) NIL)))))))) - (|setShellEntry| #0# 0 - (LIST '|PolynomialCategory| (|devaluate| |t#1|) - (|devaluate| |t#2|) (|devaluate| |t#3|))) + (SETF (|shellEntry| #0# 0) + (LIST '|PolynomialCategory| (|devaluate| |t#1|) + (|devaluate| |t#2|) (|devaluate| |t#3|))) #0#)) (DEFUN |PolynomialCategory| (&REST #0=#:G1394 &AUX #1=#:G1392) |