diff options
| author | dos-reis <gdr@axiomatics.org> | 2011-02-07 12:08:48 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2011-02-07 12:08:48 +0000 |
| commit | 3636c6e090a9720663d00f9df6b98e140cdb9eb2 (patch) | |
| tree | 853bc1d4d5e9eab5cecae57caaa6a255156414df | |
| parent | c2b415b05a0e66689d75f9ed37239dff4c0685cd (diff) | |
| download | open-axiom-3636c6e090a9720663d00f9df6b98e140cdb9eb2.tar.gz | |
* boot/tokens.boot: arrayRef is now a builtin function.
| -rw-r--r-- | src/ChangeLog | 4 | ||||
| -rw-r--r-- | src/boot/strap/tokens.clisp | 4 | ||||
| -rw-r--r-- | src/boot/tokens.boot | 1 |
3 files changed, 7 insertions, 2 deletions
diff --git a/src/ChangeLog b/src/ChangeLog index 15c684be..922d539d 100644 --- a/src/ChangeLog +++ b/src/ChangeLog @@ -1,5 +1,9 @@ 2011-02-07 Gabriel Dos Reis <gdr@cs.tamu.edu> + * boot/tokens.boot: arrayRef is now a builtin function. + +2011-02-07 Gabriel Dos Reis <gdr@cs.tamu.edu> + * algebra/ituple.spad.pamphlet (InfiniteTuple): Use Stream S as representation, not extended domain (default search does not work for the non-extending categories.) diff --git a/src/boot/strap/tokens.clisp b/src/boot/strap/tokens.clisp index 3b5694f7..3a3ebc82 100644 --- a/src/boot/strap/tokens.clisp +++ b/src/boot/strap/tokens.clisp @@ -200,8 +200,8 @@ (LIST '|alphabetic?| 'ALPHA-CHAR-P) (LIST '|alphanumeric?| 'ALPHANUMERICP) (LIST '|and| 'AND) (LIST '|append| 'APPEND) - (LIST '|apply| 'APPLY) (LIST '|atom| 'ATOM) - (LIST '|bitmask| 'SBIT) + (LIST '|apply| 'APPLY) (LIST '|arrayRef| 'AREF) + (LIST '|atom| 'ATOM) (LIST '|bitmask| 'SBIT) (LIST '|canonicalFilename| 'PROBE-FILE) (LIST '|charString| 'STRING) (LIST '|char?| 'CHARACTERP) diff --git a/src/boot/tokens.boot b/src/boot/tokens.boot index dd46d89b..b3227954 100644 --- a/src/boot/tokens.boot +++ b/src/boot/tokens.boot @@ -245,6 +245,7 @@ for i in [ _ ["and", "AND"] , _ ["append", "APPEND"] , _ ["apply", "APPLY"] , _ + ["arrayRef", "AREF"] , _ ["atom", "ATOM"] , _ ["bitmask", "SBIT"] , _ ["canonicalFilename", "PROBE-FILE"], _ |