diff options
author | dos-reis <gdr@axiomatics.org> | 2009-07-04 19:00:59 +0000 |
---|---|---|
committer | dos-reis <gdr@axiomatics.org> | 2009-07-04 19:00:59 +0000 |
commit | e2587f659cb1f58cb198ce0c841f43015378457f (patch) | |
tree | 54add7b4e7b7272d0569e9a9e1f34288aeed10fb /src/algebra/strap/SYMBOL.lsp | |
parent | 44a49cb801191cd6e803204aaffe04ab7a65a345 (diff) | |
download | open-axiom-e2587f659cb1f58cb198ce0c841f43015378457f.tar.gz |
* interp/c-util.boot (simplifySEQ): New.
(transformToBackendCode): Use it.
Diffstat (limited to 'src/algebra/strap/SYMBOL.lsp')
-rw-r--r-- | src/algebra/strap/SYMBOL.lsp | 108 |
1 files changed, 50 insertions, 58 deletions
diff --git a/src/algebra/strap/SYMBOL.lsp b/src/algebra/strap/SYMBOL.lsp index 3231df82..1142c59e 100644 --- a/src/algebra/strap/SYMBOL.lsp +++ b/src/algebra/strap/SYMBOL.lsp @@ -638,19 +638,18 @@ (|getShellEntry| $ 108)) (|getShellEntry| $ 144)))) (GO G191))) - (SEQ (EXIT (SPADCALL |nscripts| |i| - (PROG1 - (LETT #0# - (- - (SPADCALL - (SPADCALL |str| |j| - (|getShellEntry| $ 108)) - (|getShellEntry| $ 44)) - (|getShellEntry| $ 45)) - |SYMBOL;scripts;$R;32|) - (|check-subtype| (>= #0# 0) - '(|NonNegativeInteger|) #0#)) - (|getShellEntry| $ 151)))) + (SPADCALL |nscripts| |i| + (PROG1 (LETT #0# + (- + (SPADCALL + (SPADCALL |str| |j| + (|getShellEntry| $ 108)) + (|getShellEntry| $ 44)) + (|getShellEntry| $ 45)) + |SYMBOL;scripts;$R;32|) + (|check-subtype| (>= #0# 0) + '(|NonNegativeInteger|) #0#)) + (|getShellEntry| $ 151)) (LETT |i| (PROG1 (+ |i| 1) (LETT |j| (+ |j| 1) @@ -679,52 +678,45 @@ |SYMBOL;scripts;$R;32|) NIL)) (GO G191))) - (SEQ (EXIT (COND - ((< - (SPADCALL |allscripts| - (|getShellEntry| $ 157)) - |n|) - (|error| - "Improper script count in symbol")) - ('T + (COND + ((< (SPADCALL |allscripts| + (|getShellEntry| $ 157)) + |n|) + (|error| "Improper script count in symbol")) + ('T + (SEQ (SPADCALL |lscripts| |i| + (PROGN + (LETT #2# NIL + |SYMBOL;scripts;$R;32|) (SEQ - (SPADCALL |lscripts| |i| - (PROGN - (LETT #2# NIL - |SYMBOL;scripts;$R;32|) - (SEQ - (LETT |a| NIL - |SYMBOL;scripts;$R;32|) - (LETT #3# - (SPADCALL |allscripts| |n| - (|getShellEntry| $ 159)) - |SYMBOL;scripts;$R;32|) - G190 - (COND - ((OR (ATOM #3#) - (PROGN - (LETT |a| (CAR #3#) - |SYMBOL;scripts;$R;32|) - NIL)) - (GO G191))) - (SEQ - (EXIT - (LETT #2# - (CONS - (|SYMBOL;coerce;$Of;11| - |a| $) - #2#) - |SYMBOL;scripts;$R;32|))) - (LETT #3# (CDR #3#) - |SYMBOL;scripts;$R;32|) - (GO G190) G191 - (EXIT (NREVERSE0 #2#)))) - (|getShellEntry| $ 160)) - (EXIT - (LETT |allscripts| - (SPADCALL |allscripts| |n| - (|getShellEntry| $ 161)) - |SYMBOL;scripts;$R;32|))))))) + (LETT |a| NIL + |SYMBOL;scripts;$R;32|) + (LETT #3# + (SPADCALL |allscripts| |n| + (|getShellEntry| $ 159)) + |SYMBOL;scripts;$R;32|) + G190 + (COND + ((OR (ATOM #3#) + (PROGN + (LETT |a| (CAR #3#) + |SYMBOL;scripts;$R;32|) + NIL)) + (GO G191))) + (LETT #2# + (CONS + (|SYMBOL;coerce;$Of;11| |a| $) + #2#) + |SYMBOL;scripts;$R;32|) + (LETT #3# (CDR #3#) + |SYMBOL;scripts;$R;32|) + (GO G190) G191 + (EXIT (NREVERSE0 #2#)))) + (|getShellEntry| $ 160)) + (EXIT (LETT |allscripts| + (SPADCALL |allscripts| |n| + (|getShellEntry| $ 161)) + |SYMBOL;scripts;$R;32|))))) (LETT |i| (PROG1 (+ |i| 1) (LETT #1# (CDR #1#) |