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
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;
}
\f