diff options
| author | dos-reis <gdr@axiomatics.org> | 2009-07-02 15:31:18 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2009-07-02 15:31:18 +0000 |
| commit | f28f87186f166f68374a132ef89065adb6752bc8 (patch) | |
| tree | 51c6ca8f796bb60af91b4f6b3c08b47388d1705a /src | |
| parent | 286834344cf9da4a6a4527728fbe09d8c6e425cd (diff) | |
| download | open-axiom-f28f87186f166f68374a132ef89065adb6752bc8.tar.gz | |
* interp/sys-macros.lisp (COLLECTV): Use setSimpleArrayEntry, not
SETELT.
Diffstat (limited to 'src')
| -rw-r--r-- | src/ChangeLog | 5 | ||||
| -rw-r--r-- | src/algebra/strap/POLYCAT-.lsp | 3 | ||||
| -rw-r--r-- | src/interp/sys-macros.lisp | 2 |
3 files changed, 8 insertions, 2 deletions
diff --git a/src/ChangeLog b/src/ChangeLog index 679b2528..32c09675 100644 --- a/src/ChangeLog +++ b/src/ChangeLog @@ -1,3 +1,8 @@ +2009-07-02 Gabriel Dos Reis <gdr@cse.tamu.edu> + + * interp/sys-macros.lisp (COLLECTV): Use setSimpleArrayEntry, not + SETELT. + 2009-06-27 Gabriel Dos Reis <gdr@cs.tamu.edu> * interp/i-spec1.boot (checkForFreeVariables): Emit diff --git a/src/algebra/strap/POLYCAT-.lsp b/src/algebra/strap/POLYCAT-.lsp index 5901853e..3b73ad54 100644 --- a/src/algebra/strap/POLYCAT-.lsp +++ b/src/algebra/strap/POLYCAT-.lsp @@ -1184,7 +1184,8 @@ (GO G191))) (SEQ (EXIT - (SETELT #15# #16# + (|setSimpleArrayEntry| #15# + #16# (PROGN (LETT #21# NIL |POLYCAT-;conditionP;MU;27|) diff --git a/src/interp/sys-macros.lisp b/src/interp/sys-macros.lisp index 4f237206..1224c6a3 100644 --- a/src/interp/sys-macros.lisp +++ b/src/interp/sys-macros.lisp @@ -1240,7 +1240,7 @@ ((CONS 'MIN CONDS)) ) )) (CONS 'REPEAT (NCONC (CDR (REVERSE L)) - (LIST (LIST 'SETELT + (LIST (LIST '|setSimpleArrayEntry| ANS COUNTER BODY)))) |