(syms_of_lread)<recursive-load-depth-limit>: Raise to

50.

diff --git a/src/lread.c b/src/lread.c
index 6968c5394fbe654fe954aca871cbb154b3cdaed8..cb7e2d75ad5387adcbf5e146d99c7ce4d9425778 100644 (file)
--- 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.  */