register struct buffer *inbuffer;
register int c, mpos;
- if (XTYPE (readcharfun) == Lisp_Buffer)
+ if (BUFFERP (readcharfun))
{
inbuffer = XBUFFER (readcharfun);
return c;
}
- if (XTYPE (readcharfun) == Lisp_Marker)
+ if (MARKERP (readcharfun))
{
inbuffer = XMARKER (readcharfun)->buffer;
return c;
}
- if (XTYPE (readcharfun) == Lisp_String)
+ if (STRINGP (readcharfun))
{
register int c;
/* This used to be return of a conditional expression,
/* Don't back up the pointer if we're unreading the end-of-input mark,
since readchar didn't advance it when we read it. */
;
- else if (XTYPE (readcharfun) == Lisp_Buffer)
+ else if (BUFFERP (readcharfun))
{
if (XBUFFER (readcharfun) == current_buffer)
SET_PT (point - 1);
else
SET_BUF_PT (XBUFFER (readcharfun), BUF_PT (XBUFFER (readcharfun)) - 1);
}
- else if (XTYPE (readcharfun) == Lisp_Marker)
+ else if (MARKERP (readcharfun))
XMARKER (readcharfun)->bufpos--;
- else if (XTYPE (readcharfun) == Lisp_String)
+ else if (STRINGP (readcharfun))
read_from_string_index--;
else if (EQ (readcharfun, Qget_file_char))
ungetc (c, instream);
retry:
val = read_char (0, 0, 0, Qnil, 0);
- if (XTYPE (val) == Lisp_Buffer)
+ if (BUFFERP (val))
goto retry;
/* switch-frame events are put off until after the next ASCII
if (ascii_required)
{
/* Convert certain symbols to their ASCII equivalents. */
- if (XTYPE (val) == Lisp_Symbol)
+ if (SYMBOLP (val))
{
Lisp_Object tem, tem1, tem2;
tem = Fget (val, Qevent_symbol_element_mask);
}
/* If we don't have a character now, deal with it appropriately. */
- if (XTYPE (val) != Lisp_Int)
+ if (!INTEGERP (val))
{
if (error_nonascii)
{
return Fread_minibuffer (build_string ("Lisp expression: "), Qnil);
#endif
- if (XTYPE (readcharfun) == Lisp_String)
+ if (STRINGP (readcharfun))
return Fcar (Fread_from_string (readcharfun, Qnil, Qnil));
return read0 (readcharfun);
char c;
val = read1 (readcharfun);
- if (XTYPE (val) == Lisp_Internal)
+ if (INTERNALP (val))
{
c = XINT (val);
return Fsignal (Qinvalid_read_syntax, Fcons (make_string (&c, 1), Qnil));
/* Read the string itself. */
tmp = read1 (readcharfun);
- if (XTYPE (tmp) != Lisp_String)
+ if (!STRINGP (tmp))
Fsignal (Qinvalid_read_syntax, Fcons (make_string ("#", 1), Qnil));
GCPRO1 (tmp);
/* Read the intervals and their properties. */
Lisp_Object beg, end, plist;
beg = read1 (readcharfun);
- if (XTYPE (beg) == Lisp_Internal)
+ if (INTERNALP (beg))
{
if (XINT (beg) == ')')
break;
Fsignal (Qinvalid_read_syntax, Fcons (make_string ("invalid string property list", 28), Qnil));
}
end = read1 (readcharfun);
- if (XTYPE (end) == Lisp_Internal)
+ if (INTERNALP (end))
Fsignal (Qinvalid_read_syntax,
Fcons (make_string ("invalid string property list", 28), Qnil));
plist = read1 (readcharfun);
- if (XTYPE (plist) == Lisp_Internal)
+ if (INTERNALP (plist))
Fsignal (Qinvalid_read_syntax,
Fcons (make_string ("invalid string property list", 28), Qnil));
Fset_text_properties (beg, end, plist, tmp);
GCPRO2 (val, tail);
elt = read1 (readcharfun);
UNGCPRO;
- if (XTYPE (elt) == Lisp_Internal)
+ if (INTERNALP (elt))
{
if (flag > 0)
{
val = read0 (readcharfun);
elt = read1 (readcharfun);
UNGCPRO;
- if (XTYPE (elt) == Lisp_Internal && XINT (elt) == ')')
+ if (INTERNALP (elt) && XINT (elt) == ')')
return val;
return Fsignal (Qinvalid_read_syntax, Fcons (make_string (". in wrong context", 18), Qnil));
}
check_obarray (obarray)
Lisp_Object obarray;
{
- while (XTYPE (obarray) != Lisp_Vector || XVECTOR (obarray)->size == 0)
+ while (!VECTORP (obarray) || XVECTOR (obarray)->size == 0)
{
/* If Vobarray is now invalid, force it to be valid. */
if (EQ (Vobarray, obarray)) Vobarray = initial_obarray;
Lisp_Object obarray;
obarray = Vobarray;
- if (XTYPE (obarray) != Lisp_Vector || XVECTOR (obarray)->size == 0)
+ if (!VECTORP (obarray) || XVECTOR (obarray)->size == 0)
obarray = check_obarray (obarray);
tem = oblookup (obarray, str, len);
- if (XTYPE (tem) == Lisp_Symbol)
+ if (SYMBOLP (tem))
return tem;
return Fintern ((!NILP (Vpurify_flag)
? make_pure_string (str, len)
CHECK_STRING (str, 0);
tem = oblookup (obarray, XSTRING (str)->data, XSTRING (str)->size);
- if (XTYPE (tem) != Lisp_Int)
+ if (!INTEGERP (tem))
return tem;
if (!NILP (Vpurify_flag))
sym = Fmake_symbol (str);
ptr = &XVECTOR (obarray)->contents[XINT (tem)];
- if (XTYPE (*ptr) == Lisp_Symbol)
+ if (SYMBOLP (*ptr))
XSYMBOL (sym)->next = XSYMBOL (*ptr);
else
XSYMBOL (sym)->next = 0;
CHECK_STRING (str, 0);
tem = oblookup (obarray, XSTRING (str)->data, XSTRING (str)->size);
- if (XTYPE (tem) != Lisp_Int)
+ if (!INTEGERP (tem))
return tem;
return Qnil;
}
register Lisp_Object tail;
Lisp_Object bucket, tem;
- if (XTYPE (obarray) != Lisp_Vector
+ if (!VECTORP (obarray)
|| (obsize = XVECTOR (obarray)->size) == 0)
{
obarray = check_obarray (obarray);
bucket = XVECTOR (obarray)->contents[hash];
if (XFASTINT (bucket) == 0)
;
- else if (XTYPE (bucket) != Lisp_Symbol)
+ else if (!SYMBOLP (bucket))
error ("Bad data in guts of obarray"); /* Like CADR error message */
else for (tail = bucket; ; XSET (tail, Lisp_Symbol, XSYMBOL (tail)->next))
{
{
Lisp_Object dirfile;
dirfile = Fcar (path_tail);
- if (XTYPE (dirfile) == Lisp_String)
+ if (STRINGP (dirfile))
{
dirfile = Fdirectory_file_name (dirfile);
if (access (XSTRING (dirfile)->data, 0) < 0)