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/ISTRING.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/ISTRING.lsp')
| -rw-r--r-- | src/algebra/strap/ISTRING.lsp | 10 |
1 files changed, 4 insertions, 6 deletions
diff --git a/src/algebra/strap/ISTRING.lsp b/src/algebra/strap/ISTRING.lsp index d8d641a3..70450c5b 100644 --- a/src/algebra/strap/ISTRING.lsp +++ b/src/algebra/strap/ISTRING.lsp @@ -425,8 +425,7 @@ (SEQ (EXIT 0)) (LETT |i| (+ |i| 1) |ISTRING;split;$CL;22|) (GO G190) G191 (EXIT NIL)) - (LETT |l| (SPADCALL (|getShellEntry| $ 72)) - |ISTRING;split;$CL;22|) + (LETT |l| NIL |ISTRING;split;$CL;22|) (SEQ G190 (COND ((NULL (COND @@ -469,7 +468,7 @@ $) |l| (|getShellEntry| $ 73)) |ISTRING;split;$CL;22|))) - (EXIT (SPADCALL |l| (|getShellEntry| $ 74))))))) + (EXIT (NREVERSE |l|)))))) (DEFUN |ISTRING;split;$CcL;23| (|s| |cc| $) (PROG (|n| |j| |i| |l|) @@ -487,8 +486,7 @@ (SEQ (EXIT 0)) (LETT |i| (+ |i| 1) |ISTRING;split;$CcL;23|) (GO G190) G191 (EXIT NIL)) - (LETT |l| (SPADCALL (|getShellEntry| $ 72)) - |ISTRING;split;$CcL;23|) + (LETT |l| NIL |ISTRING;split;$CcL;23|) (SEQ G190 (COND ((NULL (COND @@ -531,7 +529,7 @@ $) |l| (|getShellEntry| $ 73)) |ISTRING;split;$CcL;23|))) - (EXIT (SPADCALL |l| (|getShellEntry| $ 74))))))) + (EXIT (NREVERSE |l|)))))) (DEFUN |ISTRING;leftTrim;$C$;24| (|s| |c| $) (PROG (|n| |i|) |