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/CLAGG-.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/CLAGG-.lsp')
| -rw-r--r-- | src/algebra/strap/CLAGG-.lsp | 24 |
1 files changed, 6 insertions, 18 deletions
diff --git a/src/algebra/strap/CLAGG-.lsp b/src/algebra/strap/CLAGG-.lsp index b83cf1da..6d50e7cb 100644 --- a/src/algebra/strap/CLAGG-.lsp +++ b/src/algebra/strap/CLAGG-.lsp @@ -54,10 +54,7 @@ |CLAGG-;count;MANni;2|) G190 (COND - ((OR (ATOM #0#) - (PROGN - (LETT |x| (CAR #0#) |CLAGG-;count;MANni;2|) - NIL)) + ((OR (ATOM #0#) (PROGN (SETQ |x| (CAR #0#)) NIL)) (GO G191))) (COND ((SPADCALL |x| |f|) @@ -70,8 +67,7 @@ (PROGN (LETT #2# #1# |CLAGG-;count;MANni;2|) (LETT #3# 'T |CLAGG-;count;MANni;2|))))))) - (LETT #0# (CDR #0#) |CLAGG-;count;MANni;2|) (GO G190) - G191 (EXIT NIL)) + (SETQ #0# (CDR #0#)) (GO G190) G191 (EXIT NIL)) (COND (#3# #2#) ('T 0))))))) (DEFUN |CLAGG-;any?;MAB;3| (|f| |c| $) @@ -84,10 +80,7 @@ |CLAGG-;any?;MAB;3|) G190 (COND - ((OR (ATOM #0#) - (PROGN - (LETT |x| (CAR #0#) |CLAGG-;any?;MAB;3|) - NIL)) + ((OR (ATOM #0#) (PROGN (SETQ |x| (CAR #0#)) NIL)) (GO G191))) (PROGN (LETT #1# (SPADCALL |x| |f|) |CLAGG-;any?;MAB;3|) @@ -98,8 +91,7 @@ (PROGN (LETT #2# #1# |CLAGG-;any?;MAB;3|) (LETT #3# 'T |CLAGG-;any?;MAB;3|))))) - (LETT #0# (CDR #0#) |CLAGG-;any?;MAB;3|) (GO G190) - G191 (EXIT NIL)) + (SETQ #0# (CDR #0#)) (GO G190) G191 (EXIT NIL)) (COND (#3# #2#) ('T NIL))))))) (DEFUN |CLAGG-;every?;MAB;4| (|f| |c| $) @@ -112,10 +104,7 @@ |CLAGG-;every?;MAB;4|) G190 (COND - ((OR (ATOM #0#) - (PROGN - (LETT |x| (CAR #0#) |CLAGG-;every?;MAB;4|) - NIL)) + ((OR (ATOM #0#) (PROGN (SETQ |x| (CAR #0#)) NIL)) (GO G191))) (PROGN (LETT #1# (SPADCALL |x| |f|) |CLAGG-;every?;MAB;4|) @@ -126,8 +115,7 @@ (PROGN (LETT #2# #1# |CLAGG-;every?;MAB;4|) (LETT #3# 'T |CLAGG-;every?;MAB;4|))))) - (LETT #0# (CDR #0#) |CLAGG-;every?;MAB;4|) (GO G190) - G191 (EXIT NIL)) + (SETQ #0# (CDR #0#)) (GO G190) G191 (EXIT NIL)) (COND (#3# #2#) ('T T))))))) (DEFUN |CLAGG-;find;MAU;5| (|f| |c| $) |