diff options
Diffstat (limited to 'src/algebra/strap/FFIELDC-.lsp')
| -rw-r--r-- | src/algebra/strap/FFIELDC-.lsp | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/src/algebra/strap/FFIELDC-.lsp b/src/algebra/strap/FFIELDC-.lsp index 7fecd7b2..6064e646 100644 --- a/src/algebra/strap/FFIELDC-.lsp +++ b/src/algebra/strap/FFIELDC-.lsp @@ -318,7 +318,7 @@ |FFIELDC-;discreteLog;SNni;11|) (EXIT (COND - ((QEQCAR |rho| 0) + ((EQL (CAR |rho|) 0) (SEQ (LETT |found| T |FFIELDC-;discreteLog;SNni;11|) @@ -326,7 +326,7 @@ (LETT |disc1| (* (+ (* |n| |i|) - (QCDR |rho|)) + (CDR |rho|)) |mult|) |FFIELDC-;discreteLog;SNni;11|)))) ('T @@ -463,7 +463,7 @@ |FFIELDC-;discreteLog;2SU;12|) (EXIT (COND - ((QEQCAR |rhoHelp| 1) + ((EQL (CAR |rhoHelp|) 1) (PROGN (LETT #2# (CONS 1 "failed") @@ -472,7 +472,7 @@ ('T (SEQ (LETT |rho| - (* (QCDR |rhoHelp|) + (* (CDR |rhoHelp|) |mult|) |FFIELDC-;discreteLog;2SU;12|) (LETT |disclog| |