From 990ff03c4d52460a7eb7f40287f9bc97b52c673e Mon Sep 17 00:00:00 2001 From: Gerd Moellmann Date: Tue, 23 Oct 2001 14:08:08 +0000 Subject: [PATCH] (syms_of_lread): Raise to 50. --- src/lread.c | 23 ++++++++++------------- 1 file changed, 10 insertions(+), 13 deletions(-) diff --git a/src/lread.c b/src/lread.c index 6968c5394fb..cb7e2d75ad5 100644 --- a/src/lread.c +++ b/src/lread.c @@ -832,8 +832,8 @@ Return t if file exists.") GCPRO1 (file); lispstream = Fcons (Qnil, Qnil); - XSETCARFASTINT (lispstream, (EMACS_UINT)stream >> 16); - XSETCDRFASTINT (lispstream, (EMACS_UINT)stream & 0xffff); + XSETFASTINT (XCAR (lispstream), (EMACS_UINT)stream >> 16); + XSETFASTINT (XCDR (lispstream), (EMACS_UINT)stream & 0xffff); record_unwind_protect (load_unwind, lispstream); record_unwind_protect (load_descriptor_unwind, load_descriptor_list); specbind (Qload_file_name, found); @@ -963,19 +963,16 @@ openp (path, str, suffixes, storeptr, exec_only) Lisp_Object string, tail; int max_suffix_len = 0; - string = filename = Qnil; - GCPRO5 (str, string, filename, path, suffixes); - for (tail = suffixes; CONSP (tail); tail = XCDR (tail)) { - string = XCAR (tail); - CHECK_STRING (string, 0); - if (! EQ (string, XCAR (tail))) - XSETCAR (tail, string); + CHECK_STRING (XCAR (tail), 0); max_suffix_len = max (max_suffix_len, - STRING_BYTES (XSTRING (string))); + STRING_BYTES (XSTRING (XCAR (tail)))); } + string = filename = Qnil; + GCPRO5 (str, string, filename, path, suffixes); + if (storeptr) *storeptr = Qnil; @@ -2727,7 +2724,7 @@ read_list (flag, readcharfun) { GCPRO2 (val, tail); if (!NILP (tail)) - XSETCDR (tail, read0 (readcharfun)); + XCDR (tail) = read0 (readcharfun); else val = read0 (readcharfun); read1 (readcharfun, &ch, 0); @@ -2820,7 +2817,7 @@ read_list (flag, readcharfun) ? pure_cons (elt, Qnil) : Fcons (elt, Qnil)); if (!NILP (tail)) - XSETCDR (tail, tem); + XCDR (tail) = tem; else val = tem; tail = tem; @@ -3656,7 +3653,7 @@ to load. See also `load-dangerous-libraries'."); "Limit for depth of recursive loads.\n\ Value should be either an integer > 0 specifying the limit, or nil for\n\ no limit."); - Vrecursive_load_depth_limit = make_number (10); + Vrecursive_load_depth_limit = make_number (50); /* Vsource_directory was initialized in init_lread. */ -- 2.39.5