diff options
| author | dos-reis <gdr@axiomatics.org> | 2010-03-05 02:09:51 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2010-03-05 02:09:51 +0000 |
| commit | f1c8a8db20dce5e74796e409d5bc7bec2d8793d5 (patch) | |
| tree | e6d6ba7f4fc22135395dfad949ebd50954ad152d /src/algebra/strap/OUTFORM.lsp | |
| parent | 82eaa6d96dbadd85f23913a80f163544517af5b0 (diff) | |
| download | open-axiom-f1c8a8db20dce5e74796e409d5bc7bec2d8793d5.tar.gz | |
* interp/sys-globals.boot ($optimizeRep): Define.
* interp/sys-driver.boot (initializeGlobalState): Sey domain
representation inlining if requested.
* interp/c-util.boot (setCompilerOptimizations): Set domain
representation inlining if at optimization level 3.
* algebra/constant.spad.pamphlet (AlgebraicNumber): Remove
assignment to Rep. Tidy.
* algebra/Makefile.pamphlet: Add dependencies.
Diffstat (limited to 'src/algebra/strap/OUTFORM.lsp')
| -rw-r--r-- | src/algebra/strap/OUTFORM.lsp | 27 |
1 files changed, 9 insertions, 18 deletions
diff --git a/src/algebra/strap/OUTFORM.lsp b/src/algebra/strap/OUTFORM.lsp index 636f4db5..fca0ec38 100644 --- a/src/algebra/strap/OUTFORM.lsp +++ b/src/algebra/strap/OUTFORM.lsp @@ -667,8 +667,7 @@ (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# (SPADCALL |l| (|getShellEntry| $ 63)) - |OUTFORM;blankSeparate;L$;35|) + (LETT #0# (REVERSE |l|) |OUTFORM;blankSeparate;L$;35|) G190 (COND ((OR (ATOM #0#) @@ -679,9 +678,7 @@ (GO G191))) (SEQ (EXIT (COND ((EQCAR |u| |c|) - (LETT |l1| - (SPADCALL (CDR |u|) |l1| - (|getShellEntry| $ 64)) + (LETT |l1| (APPEND (CDR |u|) |l1|) |OUTFORM;blankSeparate;L$;35|)) ('T (LETT |l1| (CONS |u| |l1|) @@ -729,18 +726,15 @@ (DEFUN |OUTFORM;scripts;$L$;46| (|a| |l| $) (COND - ((SPADCALL |l| (|getShellEntry| $ 76)) |a|) - ((SPADCALL (SPADCALL |l| (|getShellEntry| $ 77)) - (|getShellEntry| $ 76)) + ((NULL |l|) |a|) + ((NULL (CDR |l|)) (|OUTFORM;sub;3$;42| |a| (SPADCALL |l| (|getShellEntry| $ 78)) $)) ('T (CONS 'SUPERSUB (CONS |a| |l|))))) (DEFUN |OUTFORM;supersub;$L$;47| (|a| |l| $) (SEQ (COND - ((ODDP (SPADCALL |l| (|getShellEntry| $ 80))) - (LETT |l| - (SPADCALL |l| (LIST (LIST 'NOTHING)) - (|getShellEntry| $ 64)) + ((ODDP (LENGTH |l|)) + (LETT |l| (APPEND |l| (LIST (LIST 'NOTHING))) |OUTFORM;supersub;$L$;47|))) (EXIT (CONS 'ALTSUPERSUB (CONS |a| |l|))))) @@ -872,16 +866,13 @@ (DEFUN |OUTFORM;infix;$L$;77| (|a| |l| $) (COND - ((SPADCALL |l| (|getShellEntry| $ 76)) (LIST 'NOTHING)) - ((SPADCALL (SPADCALL |l| (|getShellEntry| $ 77)) - (|getShellEntry| $ 76)) - (SPADCALL |l| (|getShellEntry| $ 78))) + ((NULL |l|) (LIST 'NOTHING)) + ((NULL (CDR |l|)) (SPADCALL |l| (|getShellEntry| $ 78))) ((|OUTFORM;infix?;$B;74| |a| $) (CONS |a| |l|)) ('T (|OUTFORM;hconcat;L$;49| (LIST (SPADCALL |l| (|getShellEntry| $ 78)) |a| - (|OUTFORM;infix;$L$;77| |a| - (SPADCALL |l| (|getShellEntry| $ 77)) $)) + (|OUTFORM;infix;$L$;77| |a| (CDR |l|) $)) $)))) (DEFUN |OUTFORM;infix;4$;78| (|a| |b| |c| $) |