diff options
| author | dos-reis <gdr@axiomatics.org> | 2009-07-04 19:00:59 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2009-07-04 19:00:59 +0000 |
| commit | e2587f659cb1f58cb198ce0c841f43015378457f (patch) | |
| tree | 54add7b4e7b7272d0569e9a9e1f34288aeed10fb /src/algebra/strap/LSAGG-.lsp | |
| parent | 44a49cb801191cd6e803204aaffe04ab7a65a345 (diff) | |
| download | open-axiom-e2587f659cb1f58cb198ce0c841f43015378457f.tar.gz | |
* interp/c-util.boot (simplifySEQ): New.
(transformToBackendCode): Use it.
Diffstat (limited to 'src/algebra/strap/LSAGG-.lsp')
| -rw-r--r-- | src/algebra/strap/LSAGG-.lsp | 44 |
1 files changed, 18 insertions, 26 deletions
diff --git a/src/algebra/strap/LSAGG-.lsp b/src/algebra/strap/LSAGG-.lsp index 1c940eea..91682b5f 100644 --- a/src/algebra/strap/LSAGG-.lsp +++ b/src/algebra/strap/LSAGG-.lsp @@ -201,34 +201,26 @@ (SPADCALL |q| (|getShellEntry| $ 16)))))) (GO G191))) - (SEQ (EXIT (COND - ((SPADCALL + (COND + ((SPADCALL + (SPADCALL |p| (|getShellEntry| $ 18)) + (SPADCALL |q| (|getShellEntry| $ 18)) + |f|) + (SEQ (SPADCALL |t| |p| + (|getShellEntry| $ 27)) + (LETT |t| |p| |LSAGG-;merge!;M3A;6|) + (EXIT (LETT |p| (SPADCALL |p| - (|getShellEntry| $ 18)) + (|getShellEntry| $ 17)) + |LSAGG-;merge!;M3A;6|)))) + ('T + (SEQ (SPADCALL |t| |q| + (|getShellEntry| $ 27)) + (LETT |t| |q| |LSAGG-;merge!;M3A;6|) + (EXIT (LETT |q| (SPADCALL |q| - (|getShellEntry| $ 18)) - |f|) - (SEQ - (SPADCALL |t| |p| - (|getShellEntry| $ 27)) - (LETT |t| |p| - |LSAGG-;merge!;M3A;6|) - (EXIT - (LETT |p| - (SPADCALL |p| - (|getShellEntry| $ 17)) - |LSAGG-;merge!;M3A;6|)))) - ('T - (SEQ - (SPADCALL |t| |q| - (|getShellEntry| $ 27)) - (LETT |t| |q| - |LSAGG-;merge!;M3A;6|) - (EXIT - (LETT |q| - (SPADCALL |q| - (|getShellEntry| $ 17)) - |LSAGG-;merge!;M3A;6|))))))) + (|getShellEntry| $ 17)) + |LSAGG-;merge!;M3A;6|))))) NIL (GO G190) G191 (EXIT NIL)) (SPADCALL |t| (COND |