diff options
| author | dos-reis <gdr@axiomatics.org> | 2011-01-24 17:10:48 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2011-01-24 17:10:48 +0000 |
| commit | f7ca9bfa04d335e47daab91fa556b43a5369270e (patch) | |
| tree | 75b7d7e62056a10ac88b7017dc75f128af772abf /src/algebra/strap/SYMBOL.lsp | |
| parent | c8e50c69725188f4a48d1e215d00d917dfc7c3d1 (diff) | |
| download | open-axiom-f7ca9bfa04d335e47daab91fa556b43a5369270e.tar.gz | |
* algebra/array1.spad.pamphlet: Use %aref instead of %vref.
* interp/g-opt.boot (optSETRECORDELT): Tidy code generation.
(optRECORDCOPY): Likewise.
(optRECORDELT): Likewise.
($VMsideEffectFreeOperators): Include %aref. Translate.
Diffstat (limited to 'src/algebra/strap/SYMBOL.lsp')
| -rw-r--r-- | src/algebra/strap/SYMBOL.lsp | 40 |
1 files changed, 20 insertions, 20 deletions
diff --git a/src/algebra/strap/SYMBOL.lsp b/src/algebra/strap/SYMBOL.lsp index 583b62d2..ce590b2c 100644 --- a/src/algebra/strap/SYMBOL.lsp +++ b/src/algebra/strap/SYMBOL.lsp @@ -195,10 +195,10 @@ (SPADCALL |x| (|getShellEntry| $ 79))) (DEFUN |SYMBOL;syprefix| (|sc| $) - (LET ((|ns| (LIST (LIST-LENGTH (QVELT |sc| 3)) - (LIST-LENGTH (QVELT |sc| 2)) - (LIST-LENGTH (QVELT |sc| 1)) - (LIST-LENGTH (QVELT |sc| 0))))) + (LET ((|ns| (LIST (LIST-LENGTH (SVREF |sc| 3)) + (LIST-LENGTH (SVREF |sc| 2)) + (LIST-LENGTH (SVREF |sc| 1)) + (LIST-LENGTH (SVREF |sc| 0))))) (SEQ (LOOP (COND ((NOT (COND @@ -210,7 +210,7 @@ (EXIT (SPADCALL (CONS (STRCONC (|getShellEntry| $ 38) (|SYMBOL;istring| - (LIST-LENGTH (QVELT |sc| 4)) $)) + (LIST-LENGTH (SVREF |sc| 4)) $)) (LET ((#0=#:G1524 (NREVERSE |ns|)) (#1=#:G1523 NIL)) (LOOP @@ -224,36 +224,36 @@ (|getShellEntry| $ 93)))))) (DEFUN |SYMBOL;syscripts| (|sc| $) - (LET ((|all| (QVELT |sc| 3))) + (LET ((|all| (SVREF |sc| 3))) (SEQ (SETQ |all| - (SPADCALL (QVELT |sc| 2) |all| (|getShellEntry| $ 94))) + (SPADCALL (SVREF |sc| 2) |all| (|getShellEntry| $ 94))) (SETQ |all| - (SPADCALL (QVELT |sc| 1) |all| (|getShellEntry| $ 94))) + (SPADCALL (SVREF |sc| 1) |all| (|getShellEntry| $ 94))) (SETQ |all| - (SPADCALL (QVELT |sc| 0) |all| (|getShellEntry| $ 94))) - (EXIT (SPADCALL |all| (QVELT |sc| 4) (|getShellEntry| $ 94)))))) + (SPADCALL (SVREF |sc| 0) |all| (|getShellEntry| $ 94))) + (EXIT (SPADCALL |all| (SVREF |sc| 4) (|getShellEntry| $ 94)))))) (DEFUN |SYMBOL;script;$L$;22| (|sy| |ls| $) (LET ((|sc| (VECTOR NIL NIL NIL NIL NIL))) (SEQ (COND ((NOT (NULL |ls|)) - (SEQ (QSETVELT |sc| 0 (|SPADfirst| |ls|)) + (SEQ (SETF (SVREF |sc| 0) (|SPADfirst| |ls|)) (EXIT (SETQ |ls| (CDR |ls|)))))) (COND ((NOT (NULL |ls|)) - (SEQ (QSETVELT |sc| 1 (|SPADfirst| |ls|)) + (SEQ (SETF (SVREF |sc| 1) (|SPADfirst| |ls|)) (EXIT (SETQ |ls| (CDR |ls|)))))) (COND ((NOT (NULL |ls|)) - (SEQ (QSETVELT |sc| 2 (|SPADfirst| |ls|)) + (SEQ (SETF (SVREF |sc| 2) (|SPADfirst| |ls|)) (EXIT (SETQ |ls| (CDR |ls|)))))) (COND ((NOT (NULL |ls|)) - (SEQ (QSETVELT |sc| 3 (|SPADfirst| |ls|)) + (SEQ (SETF (SVREF |sc| 3) (|SPADfirst| |ls|)) (EXIT (SETQ |ls| (CDR |ls|)))))) (COND ((NOT (NULL |ls|)) - (SEQ (QSETVELT |sc| 4 (|SPADfirst| |ls|)) + (SEQ (SETF (SVREF |sc| 4) (|SPADfirst| |ls|)) (EXIT (SETQ |ls| (CDR |ls|)))))) (EXIT (|SYMBOL;script;$R$;23| |sy| |sc| $))))) @@ -291,7 +291,7 @@ ((NOT (|SYMBOL;scripted?;$B;30| |e| $)) (EXIT |s|))) (LETT |ss| (|SYMBOL;scripts;$R;32| |e| $) |SYMBOL;latex;$S;25|) - (LETT |lo| (QVELT |ss| 0) |SYMBOL;latex;$S;25|) + (LETT |lo| (SVREF |ss| 0) |SYMBOL;latex;$S;25|) (COND ((NOT (NULL |lo|)) (SEQ (LETT |sc| "_{" |SYMBOL;latex;$S;25|) @@ -309,7 +309,7 @@ (STRCONC |sc| ", "))))))))) (SETQ |sc| (STRCONC |sc| "}")) (EXIT (SETQ |s| (STRCONC |s| |sc|)))))) - (SETQ |lo| (QVELT |ss| 1)) + (SETQ |lo| (SVREF |ss| 1)) (COND ((NOT (NULL |lo|)) (SEQ (LETT |sc| "^{" |SYMBOL;latex;$S;25|) @@ -327,7 +327,7 @@ (STRCONC |sc| ", "))))))))) (SETQ |sc| (STRCONC |sc| "}")) (EXIT (SETQ |s| (STRCONC |s| |sc|)))))) - (SETQ |lo| (QVELT |ss| 2)) + (SETQ |lo| (SVREF |ss| 2)) (COND ((NOT (NULL |lo|)) (SEQ (LETT |sc| "{}^{" |SYMBOL;latex;$S;25|) @@ -345,7 +345,7 @@ (STRCONC |sc| ", "))))))))) (SETQ |sc| (STRCONC |sc| "}")) (EXIT (SETQ |s| (STRCONC |sc| |s|)))))) - (SETQ |lo| (QVELT |ss| 3)) + (SETQ |lo| (SVREF |ss| 3)) (COND ((NOT (NULL |lo|)) (SEQ (LETT |sc| "{}_{" |SYMBOL;latex;$S;25|) @@ -363,7 +363,7 @@ (STRCONC |sc| ", "))))))))) (SETQ |sc| (STRCONC |sc| "}")) (EXIT (SETQ |s| (STRCONC |sc| |s|)))))) - (SETQ |lo| (QVELT |ss| 4)) + (SETQ |lo| (SVREF |ss| 4)) (COND ((NOT (NULL |lo|)) (SEQ (LETT |sc| "\\left( {" |SYMBOL;latex;$S;25|) |