/[emacs]/emacs/src/lread.c
ViewVC logotype

Diff of /emacs/src/lread.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.268 by pj, Fri Nov 2 20:30:11 2001 UTC revision 1.269 by raeburn, Sat Nov 3 21:30:34 2001 UTC
# Line 833  Return t if file exists.") Line 833  Return t if file exists.")
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);
# Line 966  openp (path, str, suffixes, storeptr, ex Line 966  openp (path, str, suffixes, storeptr, ex
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      }      }
# Line 2761  read_list (flag, readcharfun) Line 2761  read_list (flag, readcharfun)
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);
# Line 2854  read_list (flag, readcharfun) Line 2854  read_list (flag, readcharfun)
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;

Legend:
Removed from v.1.268  
changed lines
  Added in v.1.269

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26