diff options
| author | dos-reis <gdr@axiomatics.org> | 2009-04-18 17:57:00 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2009-04-18 17:57:00 +0000 |
| commit | af3ebc0d983434f91686d8e2ba7bcb21d5083a30 (patch) | |
| tree | b2432ba3cccf14d686ac8e0db3a11d12c5d5054e /src/algebra/strap/UPOLYC-.lsp | |
| parent | e865a85b43caa6f453304e836dae3b62ca73c635 (diff) | |
| download | open-axiom-af3ebc0d983434f91686d8e2ba7bcb21d5083a30.tar.gz | |
* algebra/mkfunc.spad.pamphlet (InputForm): Remove assignment to Rep.
(convert): Use per and rep operators.
* algebra/stap: Updated cached Lisp translation.
Diffstat (limited to 'src/algebra/strap/UPOLYC-.lsp')
| -rw-r--r-- | src/algebra/strap/UPOLYC-.lsp | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/algebra/strap/UPOLYC-.lsp b/src/algebra/strap/UPOLYC-.lsp index 49994497..c6538499 100644 --- a/src/algebra/strap/UPOLYC-.lsp +++ b/src/algebra/strap/UPOLYC-.lsp @@ -195,7 +195,7 @@ (DEFUN |UPOLYC-;eval;SLLS;5| (|p| |lv| |lq| $) (COND ((NULL |lv|) |p|) - ((NULL (NULL (CDR |lv|))) + ((NOT (NULL (CDR |lv|))) (|error| "can only eval a univariate polynomial once")) ('T (SPADCALL |p| (|SPADfirst| |lv|) (|SPADfirst| |lq|) @@ -207,7 +207,7 @@ (DEFUN |UPOLYC-;eval;SLLS;7| (|p| |lv| |lr| $) (COND ((NULL |lv|) |p|) - ((NULL (NULL (CDR |lv|))) + ((NOT (NULL (CDR |lv|))) (|error| "can only eval a univariate polynomial once")) ('T (SPADCALL |p| (|SPADfirst| |lv|) (|SPADfirst| |lr|) @@ -220,7 +220,7 @@ (DEFUN |UPOLYC-;eval;SLS;9| (|p| |le| $) (COND ((NULL |le|) |p|) - ((NULL (NULL (CDR |le|))) + ((NOT (NULL (CDR |le|))) (|error| "can only eval a univariate polynomial once")) ('T (COND |