# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 1202652107 0
# Node ID 929fde6550caca1db0c15197e2b16da6bcde0992
# Parent  5718a4d5a354a0b84fea5a0c8a6e95fe0046a03e
(ASET): Use AREF, not ASLOT.

diff -r 5718a4d5a354 -r 929fde6550ca src/lisp.h
--- a/src/lisp.h	Sun Feb 10 13:10:48 2008 +0000
+++ b/src/lisp.h	Sun Feb 10 14:01:47 2008 +0000
@@ -594,7 +594,7 @@
 #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.  */