Mercurial > emacs
changeset 9301:e6daff3e246f
(Faref, Farray_length): Don't use XFASTINT as an lvalue.
| author | Karl Heuer <kwzh@gnu.org> |
|---|---|
| date | Tue, 04 Oct 1994 15:44:37 +0000 |
| parents | 84822d6ed3be |
| children | 4c75b1a56398 |
| files | src/data.c |
| diffstat | 1 files changed, 2 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/src/data.c Tue Oct 04 15:43:31 1994 +0000 +++ b/src/data.c Tue Oct 04 15:44:37 1994 +0000 @@ -1336,7 +1336,7 @@ if (STRINGP (array)) { Lisp_Object val; - XFASTINT (val) = (unsigned char) XSTRING (array)->data[idxval]; + XSETFASTINT (val, (unsigned char) XSTRING (array)->data[idxval]); return val; } else @@ -1378,7 +1378,7 @@ register Lisp_Object size; if (!VECTORP (array) && !STRINGP (array) && !COMPILEDP (array)) array = wrong_type_argument (Qarrayp, array); - XFASTINT (size) = XVECTOR (array)->size; + XSETFASTINT (size, XVECTOR (array)->size); return size; }