diff options
| author | dos-reis <gdr@axiomatics.org> | 2010-06-06 13:37:14 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2010-06-06 13:37:14 +0000 |
| commit | 7d0cd86fd5243dc6d350e3ae7b4201698a82b69d (patch) | |
| tree | b97fb43b5e1cd614dc21ead4d4dd1b19239eee59 /src/algebra/strap/SYMBOL.lsp | |
| parent | 4348e69c730e4e3faa7b993ac0dac5ec426a374c (diff) | |
| download | open-axiom-7d0cd86fd5243dc6d350e3ae7b4201698a82b69d.tar.gz | |
* interp/c-util.boot (mutateToBackendCode): Don't replace explicit
SETQ by LETT.
Diffstat (limited to 'src/algebra/strap/SYMBOL.lsp')
| -rw-r--r-- | src/algebra/strap/SYMBOL.lsp | 51 |
1 files changed, 17 insertions, 34 deletions
diff --git a/src/algebra/strap/SYMBOL.lsp b/src/algebra/strap/SYMBOL.lsp index 40ceb5c1..9386c8f1 100644 --- a/src/algebra/strap/SYMBOL.lsp +++ b/src/algebra/strap/SYMBOL.lsp @@ -234,11 +234,10 @@ (COND ((ATOM #0#) (RETURN (NREVERSE #1#))) (T (LET ((|n| (CAR #0#))) - (LETT #1# + (SETQ #1# (CONS (|SYMBOL;istring| |n| $) - #1#) - |SYMBOL;syprefix|)))) - (LETT #0# (CDR #0#) |SYMBOL;syprefix|)))) + #1#))))) + (SETQ #0# (CDR #0#))))) (|getShellEntry| $ 93))))))) (DEFUN |SYMBOL;syscripts| (|sc| $) @@ -530,15 +529,11 @@ G190 (COND ((OR (ATOM #0#) - (PROGN - (LETT |k| (CAR #0#) - |SYMBOL;resetNew;V;29|) - NIL)) + (PROGN (SETQ |k| (CAR #0#)) NIL)) (GO G191))) (SEQ (EXIT (SPADCALL |k| (|getShellEntry| $ 13) (|getShellEntry| $ 134)))) - (LETT #0# (CDR #0#) |SYMBOL;resetNew;V;29|) - (GO G190) G191 (EXIT NIL))))))) + (SETQ #0# (CDR #0#)) (GO G190) G191 (EXIT NIL))))))) (DEFUN |SYMBOL;scripted?;$B;30| (|sy| $) (NOT (ATOM |sy|))) @@ -588,9 +583,8 @@ (GO #1#)) |SYMBOL;name;2$;31|) (GO #2#)))))) - (LETT |i| (+ |i| 1) - |SYMBOL;name;2$;31|) - (GO G190) G191 (EXIT NIL))) + (SETQ |i| (+ |i| 1)) (GO G190) + G191 (EXIT NIL))) #2# (EXIT #2#)) (EXIT (|error| "Improper scripted symbol")))))) #1# (EXIT #1#))))) @@ -638,11 +632,8 @@ (|check-subtype| (>= #1# 0) '(|NonNegativeInteger|) #1#)) (|getShellEntry| $ 148)) - (LETT |i| - (PROG1 (+ |i| 1) - (LETT |j| (+ |j| 1) - |SYMBOL;scripts;$R;32|)) - |SYMBOL;scripts;$R;32|) + (SETQ |i| + (PROG1 (+ |i| 1) (SETQ |j| (+ |j| 1)))) (GO G190) G191 (EXIT NIL)) (LETT |nscripts| (SPADCALL (CDR |nscripts|) @@ -660,10 +651,7 @@ (LETT |i| |m| |SYMBOL;scripts;$R;32|) G190 (COND ((OR (ATOM #0#) - (PROGN - (LETT |n| (CAR #0#) - |SYMBOL;scripts;$R;32|) - NIL)) + (PROGN (SETQ |n| (CAR #0#)) NIL)) (GO G191))) (COND ((< (LENGTH |allscripts|) |n|) @@ -681,24 +669,19 @@ (RETURN (NREVERSE #3#))) (T (LET ((|a| (CAR #2#))) - (LETT #3# + (SETQ #3# (CONS (|SYMBOL;coerce;$Of;11| |a| $) - #3#) - |SYMBOL;scripts;$R;32|)))) - (LETT #2# (CDR #2#) - |SYMBOL;scripts;$R;32|))) + #3#))))) + (SETQ #2# (CDR #2#)))) (|getShellEntry| $ 157)) (EXIT (LETT |allscripts| (SPADCALL |allscripts| |n| (|getShellEntry| $ 158)) |SYMBOL;scripts;$R;32|))))) - (LETT |i| - (PROG1 (+ |i| 1) - (LETT #0# (CDR #0#) - |SYMBOL;scripts;$R;32|)) - |SYMBOL;scripts;$R;32|) + (SETQ |i| + (PROG1 (+ |i| 1) (SETQ #0# (CDR #0#)))) (GO G190) G191 (EXIT NIL)) (EXIT (VECTOR (SPADCALL |lscripts| |m| (|getShellEntry| $ 159)) @@ -728,13 +711,13 @@ (PROG (#0=#:G1556) (RETURN (COND - ((LETT #0# (HGET |$ConstructorCache| '|Symbol|) |Symbol|) + ((SETQ #0# (HGET |$ConstructorCache| '|Symbol|)) (|CDRwithIncrement| (CDAR #0#))) ('T (UNWIND-PROTECT (PROG1 (CDDAR (HPUT |$ConstructorCache| '|Symbol| (LIST (CONS NIL (CONS 1 (|Symbol;|)))))) - (LETT #0# T |Symbol|)) + (SETQ #0# T)) (COND ((NOT #0#) (HREM |$ConstructorCache| '|Symbol|))))))))) (DEFUN |Symbol;| () |