diff options
Diffstat (limited to 'src/algebra/strap/INT.lsp')
| -rw-r--r-- | src/algebra/strap/INT.lsp | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/src/algebra/strap/INT.lsp b/src/algebra/strap/INT.lsp index 172fcd30..23b42bf6 100644 --- a/src/algebra/strap/INT.lsp +++ b/src/algebra/strap/INT.lsp @@ -494,8 +494,9 @@ (|getShellEntry| $ 108)) (|getShellEntry| $ 112)) |INT;factorPolynomial|) - (QCDR #0#) - (|check-union| (QEQCAR #0# 0) $ #0#)) + (CDR #0#) + (|check-union| (EQL (CAR #0#) 0) $ + #0#)) (|getShellEntry| $ 114)) (|getShellEntry| $ 118)) (|getShellEntry| $ 120))))))))) |