diff options
author | dos-reis <gdr@axiomatics.org> | 2010-06-06 13:37:14 +0000 |
---|---|---|
committer | dos-reis <gdr@axiomatics.org> | 2010-06-06 13:37:14 +0000 |
commit | 7d0cd86fd5243dc6d350e3ae7b4201698a82b69d (patch) | |
tree | b97fb43b5e1cd614dc21ead4d4dd1b19239eee59 /src/algebra/strap/URAGG-.lsp | |
parent | 4348e69c730e4e3faa7b993ac0dac5ec426a374c (diff) | |
download | open-axiom-7d0cd86fd5243dc6d350e3ae7b4201698a82b69d.tar.gz |
* interp/c-util.boot (mutateToBackendCode): Don't replace explicit
SETQ by LETT.
Diffstat (limited to 'src/algebra/strap/URAGG-.lsp')
-rw-r--r-- | src/algebra/strap/URAGG-.lsp | 34 |
1 files changed, 14 insertions, 20 deletions
diff --git a/src/algebra/strap/URAGG-.lsp b/src/algebra/strap/URAGG-.lsp index c60624e6..9cea2704 100644 --- a/src/algebra/strap/URAGG-.lsp +++ b/src/algebra/strap/URAGG-.lsp @@ -240,8 +240,7 @@ (EXIT (LETT |x| (SPADCALL |x| (|getShellEntry| $ 14)) |URAGG-;#;ANni;15|))) - (LETT |k| (QSADD1 |k|) |URAGG-;#;ANni;15|) (GO G190) - G191 (EXIT NIL)) + (SETQ |k| (QSADD1 |k|)) (GO G190) G191 (EXIT NIL)) (EXIT |k|))))) (DEFUN |URAGG-;tail;2A;16| (|x| $) @@ -269,8 +268,8 @@ (LETT |x| |y| |URAGG-;tail;2A;16|) (|getShellEntry| $ 14)) |URAGG-;tail;2A;16|))) - (LETT |k| (QSADD1 |k|) |URAGG-;tail;2A;16|) - (GO G190) G191 (EXIT NIL)) + (SETQ |k| (QSADD1 |k|)) (GO G190) G191 + (EXIT NIL)) (EXIT |x|)))))))) (DEFUN |URAGG-;findCycle| (|x| $) @@ -365,17 +364,15 @@ (GO G191))) (LETT |z| (SPADCALL |z| (|getShellEntry| $ 14)) |URAGG-;cycleEntry;2A;19|) - (LETT |l| (QSADD1 |l|) - |URAGG-;cycleEntry;2A;19|) - (GO G190) G191 (EXIT NIL)) + (SETQ |l| (QSADD1 |l|)) (GO G190) G191 + (EXIT NIL)) (LETT |y| |x| |URAGG-;cycleEntry;2A;19|) (SEQ (LETT |k| 1 |URAGG-;cycleEntry;2A;19|) G190 (COND ((QSGREATERP |k| |l|) (GO G191))) (LETT |y| (SPADCALL |y| (|getShellEntry| $ 14)) |URAGG-;cycleEntry;2A;19|) - (LETT |k| (QSADD1 |k|) - |URAGG-;cycleEntry;2A;19|) - (GO G190) G191 (EXIT NIL)) + (SETQ |k| (QSADD1 |k|)) (GO G190) G191 + (EXIT NIL)) (SEQ G190 (COND ((NULL (NOT (SPADCALL |x| |y| @@ -412,9 +409,8 @@ (GO G191))) (LETT |y| (SPADCALL |y| (|getShellEntry| $ 14)) |URAGG-;cycleLength;ANni;20|) - (LETT |k| (QSADD1 |k|) - |URAGG-;cycleLength;ANni;20|) - (GO G190) G191 (EXIT NIL)) + (SETQ |k| (QSADD1 |k|)) (GO G190) G191 + (EXIT NIL)) (EXIT |k|)))))))) (DEFUN |URAGG-;rest;ANniA;21| (|x| |n| $) @@ -430,8 +426,7 @@ (SPADCALL |x| (|getShellEntry| $ 14)) |URAGG-;rest;ANniA;21|))))) - (LETT |i| (QSADD1 |i|) |URAGG-;rest;ANniA;21|) - (GO G190) G191 (EXIT NIL)) + (SETQ |i| (QSADD1 |i|)) (GO G190) G191 (EXIT NIL)) (EXIT |x|))))) (DEFUN |URAGG-;last;ANniA;22| (|x| |n| $) @@ -496,8 +491,8 @@ (SPADCALL |y| (|getShellEntry| $ 14)) |URAGG-;=;2AB;23|))))))) - (LETT |k| (QSADD1 |k|) |URAGG-;=;2AB;23|) - (GO G190) G191 (EXIT NIL)) + (SETQ |k| (QSADD1 |k|)) (GO G190) G191 + (EXIT NIL)) (EXIT (COND ((SPADCALL |x| (|getShellEntry| $ 20)) (SPADCALL |y| (|getShellEntry| $ 20))) @@ -535,9 +530,8 @@ (SPADCALL |v| (|getShellEntry| $ 14)) |URAGG-;node?;2AB;24|))))))) - (LETT |k| (QSADD1 |k|) - |URAGG-;node?;2AB;24|) - (GO G190) G191 (EXIT NIL)) + (SETQ |k| (QSADD1 |k|)) (GO G190) G191 + (EXIT NIL)) (EXIT (SPADCALL |u| |v| (|getShellEntry| $ 65))))) #0# (EXIT #0#))))) |