diff options
| author | dos-reis <gdr@axiomatics.org> | 2010-07-25 04:37:08 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2010-07-25 04:37:08 +0000 |
| commit | 32593f2cb2bd9c344b83edec738f81eee3128d34 (patch) | |
| tree | 126f3fa36e8f127d16fce172fa1c01bfc3d38c63 /src/algebra/strap/SYMBOL.lsp | |
| parent | 0df43e77732de95d97212f042ed922d2f7314bab (diff) | |
| download | open-axiom-32593f2cb2bd9c344b83edec738f81eee3128d34.tar.gz | |
* interp/g-opt.boot (optIadd): More simplification if either
operand is zero.
(optIsub): Likewise.
(optImul): More simplifications if either operand is one.
Diffstat (limited to 'src/algebra/strap/SYMBOL.lsp')
| -rw-r--r-- | src/algebra/strap/SYMBOL.lsp | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/algebra/strap/SYMBOL.lsp b/src/algebra/strap/SYMBOL.lsp index c2af9d6f..b1cb0a30 100644 --- a/src/algebra/strap/SYMBOL.lsp +++ b/src/algebra/strap/SYMBOL.lsp @@ -610,7 +610,7 @@ (DEFUN |SYMBOL;istring| (|n| $) (COND ((< 9 |n|) (|error| "Can have at most 9 scripts of each kind")) - (T (|getSimpleArrayEntry| (|getShellEntry| $ 18) (+ |n| 0))))) + (T (|getSimpleArrayEntry| (|getShellEntry| $ 18) |n|)))) (DEFUN |SYMBOL;list;$L;34| (|sy| $) (COND |