833 |
|
|
834 |
GCPRO1 (file); |
GCPRO1 (file); |
835 |
lispstream = Fcons (Qnil, Qnil); |
lispstream = Fcons (Qnil, Qnil); |
836 |
XSETFASTINT (XCAR (lispstream), (EMACS_UINT)stream >> 16); |
XSETCARFASTINT (lispstream, (EMACS_UINT)stream >> 16); |
837 |
XSETFASTINT (XCDR (lispstream), (EMACS_UINT)stream & 0xffff); |
XSETCDRFASTINT (lispstream, (EMACS_UINT)stream & 0xffff); |
838 |
record_unwind_protect (load_unwind, lispstream); |
record_unwind_protect (load_unwind, lispstream); |
839 |
record_unwind_protect (load_descriptor_unwind, load_descriptor_list); |
record_unwind_protect (load_descriptor_unwind, load_descriptor_list); |
840 |
specbind (Qload_file_name, found); |
specbind (Qload_file_name, found); |
966 |
|
|
967 |
for (tail = suffixes; CONSP (tail); tail = XCDR (tail)) |
for (tail = suffixes; CONSP (tail); tail = XCDR (tail)) |
968 |
{ |
{ |
969 |
CHECK_STRING (XCAR (tail)); |
CHECK_STRING_CAR (tail); |
970 |
max_suffix_len = max (max_suffix_len, |
max_suffix_len = max (max_suffix_len, |
971 |
STRING_BYTES (XSTRING (XCAR (tail)))); |
STRING_BYTES (XSTRING (XCAR (tail)))); |
972 |
} |
} |
2761 |
{ |
{ |
2762 |
GCPRO2 (val, tail); |
GCPRO2 (val, tail); |
2763 |
if (!NILP (tail)) |
if (!NILP (tail)) |
2764 |
XCDR (tail) = read0 (readcharfun); |
XSETCDR (tail, read0 (readcharfun)); |
2765 |
else |
else |
2766 |
val = read0 (readcharfun); |
val = read0 (readcharfun); |
2767 |
read1 (readcharfun, &ch, 0); |
read1 (readcharfun, &ch, 0); |
2854 |
? pure_cons (elt, Qnil) |
? pure_cons (elt, Qnil) |
2855 |
: Fcons (elt, Qnil)); |
: Fcons (elt, Qnil)); |
2856 |
if (!NILP (tail)) |
if (!NILP (tail)) |
2857 |
XCDR (tail) = tem; |
XSETCDR (tail, tem); |
2858 |
else |
else |
2859 |
val = tem; |
val = tem; |
2860 |
tail = tem; |
tail = tem; |