1 |
/* Lisp parsing and input streams. |
/* Lisp parsing and input streams. |
2 |
Copyright (C) 1985,86,87,88,89,93,94,95,97,98,99,2000,01,03,2004 |
Copyright (C) 1985, 1986, 1987, 1988, 1989, 1993, 1994, 1995, 1997, 1998, |
3 |
Free Software Foundation, Inc. |
1999, 2000, 2001, 2003, 2004 Free Software Foundation, Inc. |
4 |
|
|
5 |
This file is part of GNU Emacs. |
This file is part of GNU Emacs. |
6 |
|
|
484 |
|
|
485 |
c = getc (instream); |
c = getc (instream); |
486 |
#ifdef EINTR |
#ifdef EINTR |
487 |
/* Interrupted reads have been observed while reading over the network */ |
/* Interrupted reads have been observed while reading over the network */ |
488 |
while (c == EOF && ferror (instream) && errno == EINTR) |
while (c == EOF && ferror (instream) && errno == EINTR) |
489 |
{ |
{ |
490 |
clearerr (instream); |
QUIT; |
491 |
c = getc (instream); |
clearerr (instream); |
492 |
} |
c = getc (instream); |
493 |
|
} |
494 |
#endif |
#endif |
495 |
return (c == EOF ? -1 : c); |
return (c == EOF ? -1 : c); |
496 |
} |
} |
3415 |
hash %= obsize; |
hash %= obsize; |
3416 |
bucket = XVECTOR (obarray)->contents[hash]; |
bucket = XVECTOR (obarray)->contents[hash]; |
3417 |
oblookup_last_bucket_number = hash; |
oblookup_last_bucket_number = hash; |
3418 |
if (XFASTINT (bucket) == 0) |
if (EQ (bucket, make_number (0))) |
3419 |
; |
; |
3420 |
else if (!SYMBOLP (bucket)) |
else if (!SYMBOLP (bucket)) |
3421 |
error ("Bad data in guts of obarray"); /* Like CADR error message */ |
error ("Bad data in guts of obarray"); /* Like CADR error message */ |