From e8455367a483819190a8cc21d24a2e6519ff7da4 Mon Sep 17 00:00:00 2001
From: "Richard M. Stallman" <rms@gnu.org>
Date: Sun, 10 Feb 2008 14:01:52 +0000
Subject: [PATCH] (ASET): Use AREF, not ASLOT.

---
 src/ChangeLog | 4 ++++
 src/lisp.h    | 2 +-
 2 files changed, 5 insertions(+), 1 deletion(-)

diff --git a/src/ChangeLog b/src/ChangeLog
index b3ffe08f3ba..bb452e6a496 100644
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,3 +1,7 @@
+2008-02-10  Richard Stallman  <rms@gnu.org>
+
+	* lisp.h (ASET): Use AREF, not ASLOT.
+
 2008-02-10  Stefan Monnier  <monnier@iro.umontreal.ca>
 
 	* lisp.h (ASET): Check bounds.
diff --git a/src/lisp.h b/src/lisp.h
index daa45d3aad8..a215abb34ee 100644
--- a/src/lisp.h
+++ b/src/lisp.h
@@ -594,7 +594,7 @@ extern size_t pure_size;
 #define ASET(ARRAY, IDX, VAL)	\
   (eassert ((IDX) == (IDX)),				\
    eassert ((IDX) >= 0 && (IDX) < ASIZE (ARRAY)),	\
-   ASLOT ((ARRAY), (IDX)) = (VAL))
+   AREF ((ARRAY), (IDX)) = (VAL))
 
 /* Convenience macros for dealing with Lisp strings.  */
 
-- 
2.11.4.GIT