diff options
Diffstat (limited to 'src/algebra/strap/QFCAT.lsp')
-rw-r--r-- | src/algebra/strap/QFCAT.lsp | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/algebra/strap/QFCAT.lsp b/src/algebra/strap/QFCAT.lsp index 08c1b912..913585d0 100644 --- a/src/algebra/strap/QFCAT.lsp +++ b/src/algebra/strap/QFCAT.lsp @@ -72,8 +72,8 @@ (|has| |t#1| (|PolynomialFactorizationExplicit|)))) 'NIL NIL)))))))) - (|setShellEntry| #0# 0 - (LIST '|QuotientFieldCategory| (|devaluate| |t#1|))) + (SETF (|shellEntry| #0# 0) + (LIST '|QuotientFieldCategory| (|devaluate| |t#1|))) #0#)) (DEFUN |QuotientFieldCategory| (#0=#:G1375) |