diff options
Diffstat (limited to 'src/algebra/strap/INT.lsp')
-rw-r--r-- | src/algebra/strap/INT.lsp | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/algebra/strap/INT.lsp b/src/algebra/strap/INT.lsp index bee3b83c..39bb22ff 100644 --- a/src/algebra/strap/INT.lsp +++ b/src/algebra/strap/INT.lsp @@ -472,7 +472,7 @@ (SPADCALL |p| (|getShellEntry| $ 107))) (DEFUN |INT;factorPolynomial| (|p| $) - (PROG (|pp| #0=#:G1500) + (PROG (|pp| #0=#:G1498) (RETURN (SEQ (LETT |pp| (SPADCALL |p| (|getShellEntry| $ 108)) |INT;factorPolynomial|) @@ -515,7 +515,7 @@ (DEFUN |Integer| () (PROG () (RETURN - (PROG (#0=#:G1525) + (PROG (#0=#:G1523) (RETURN (COND ((LETT #0# (HGET |$ConstructorCache| '|Integer|) |Integer|) |