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/STAGG-.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/STAGG-.lsp')
-rw-r--r-- | src/algebra/strap/STAGG-.lsp | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/algebra/strap/STAGG-.lsp b/src/algebra/strap/STAGG-.lsp index 0048a3c3..cb3671d0 100644 --- a/src/algebra/strap/STAGG-.lsp +++ b/src/algebra/strap/STAGG-.lsp @@ -104,7 +104,7 @@ |STAGG-;elt;AUsA;6|) (EXIT (COND ((< |l| 0) (|error| "index out of range")) - ((NULL (SPADCALL |i| (|getShellEntry| $ 31))) + ((NOT (SPADCALL |i| (|getShellEntry| $ 31))) (SPADCALL (SPADCALL |x| (PROG1 |l| |