diff options
| author | dos-reis <gdr@axiomatics.org> | 2010-06-20 15:00:29 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2010-06-20 15:00:29 +0000 |
| commit | 9cde874de258533a18944602afa62c9e56ac991a (patch) | |
| tree | 0ba1cbbf0a13d8d5085aa411304ff34ca63e7bb0 /src/algebra/strap/OUTFORM.lsp | |
| parent | 4ee9e8c9ec410567f7904da3e3be59c06f059a6c (diff) | |
| download | open-axiom-9cde874de258533a18944602afa62c9e56ac991a.tar.gz | |
* interp/compiler.boot (massageLoop): New.
(compRepeatOrCollect): Use it to generate appropriate %loop forms.
Bind new special variable $mayHaveFreeIteratorVariables.
(complainIfShadowing): Set it as appropriate.
Diffstat (limited to 'src/algebra/strap/OUTFORM.lsp')
| -rw-r--r-- | src/algebra/strap/OUTFORM.lsp | 29 |
1 files changed, 14 insertions, 15 deletions
diff --git a/src/algebra/strap/OUTFORM.lsp b/src/algebra/strap/OUTFORM.lsp index 7f50792b..5cc0a555 100644 --- a/src/algebra/strap/OUTFORM.lsp +++ b/src/algebra/strap/OUTFORM.lsp @@ -664,24 +664,23 @@ (CONS 'AGGSET |l|)) (DEFUN |OUTFORM;blankSeparate;L$;35| (|l| $) - (PROG (|c| |u| #0=#:G1555 |l1|) + (PROG (|c| |l1|) (RETURN (SEQ (LETT |c| 'CONCATB |OUTFORM;blankSeparate;L$;35|) (LETT |l1| NIL |OUTFORM;blankSeparate;L$;35|) - (SEQ (LETT |u| NIL |OUTFORM;blankSeparate;L$;35|) - (LETT #0# (REVERSE |l|) |OUTFORM;blankSeparate;L$;35|) - G190 - (COND - ((OR (ATOM #0#) (PROGN (SETQ |u| (CAR #0#)) NIL)) - (GO G191))) - (SEQ (EXIT (COND - ((EQCAR |u| |c|) - (LETT |l1| (APPEND (CDR |u|) |l1|) - |OUTFORM;blankSeparate;L$;35|)) - ('T - (LETT |l1| (CONS |u| |l1|) - |OUTFORM;blankSeparate;L$;35|))))) - (SETQ #0# (CDR #0#)) (GO G190) G191 (EXIT NIL)) + (LET ((#0=#:G1555 (REVERSE |l|))) + (LOOP + (COND + ((ATOM #0#) (RETURN NIL)) + (T (LET ((|u| (CAR #0#))) + (COND + ((EQCAR |u| |c|) + (LETT |l1| (APPEND (CDR |u|) |l1|) + |OUTFORM;blankSeparate;L$;35|)) + ('T + (LETT |l1| (CONS |u| |l1|) + |OUTFORM;blankSeparate;L$;35|)))))) + (SETQ #0# (CDR #0#)))) (EXIT (CONS |c| |l1|)))))) (DEFUN |OUTFORM;brace;2$;36| (|a| $) |