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/SYMBOL.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/SYMBOL.lsp')
-rw-r--r-- | src/algebra/strap/SYMBOL.lsp | 7 |
1 files changed, 2 insertions, 5 deletions
diff --git a/src/algebra/strap/SYMBOL.lsp b/src/algebra/strap/SYMBOL.lsp index f49484a6..724e0087 100644 --- a/src/algebra/strap/SYMBOL.lsp +++ b/src/algebra/strap/SYMBOL.lsp @@ -662,8 +662,7 @@ (|getShellEntry| $ 151)) |SYMBOL;scripts;$R;32|) (LETT |allscripts| - (SPADCALL (|SYMBOL;list;$L;34| |sy| $) - (|getShellEntry| $ 152)) + (CDR (|SYMBOL;list;$L;34| |sy| $)) |SYMBOL;scripts;$R;32|) (LETT |m| (SPADCALL |lscripts| (|getShellEntry| $ 153)) @@ -679,9 +678,7 @@ NIL)) (GO G191))) (COND - ((< (SPADCALL |allscripts| - (|getShellEntry| $ 154)) - |n|) + ((< (LENGTH |allscripts|) |n|) (|error| "Improper script count in symbol")) ('T (SEQ (SPADCALL |lscripts| |i| |