From 3636c6e090a9720663d00f9df6b98e140cdb9eb2 Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Mon, 7 Feb 2011 12:08:48 +0000
Subject: 	* boot/tokens.boot: arrayRef is now a builtin function.

---
 src/boot/strap/tokens.clisp | 4 ++--
 src/boot/tokens.boot        | 1 +
 2 files changed, 3 insertions(+), 2 deletions(-)

(limited to 'src/boot')

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"], _
-- 
cgit v1.2.3