Remove unused local variables

Remove unused local variables

[Chris Gregory]

This patch removes some local variables that were assigned and then only
used once immediately after.  It also removes a redundant XCDR call in
Fsetq_default.

diff --git a/src/data.c b/src/data.c
index e2c1a28..af25c75 100644
--- a/src/data.c
+++ b/src/data.c
@@ -1720,16 +1720,16 @@ of previous VARs.
 usage: (setq-default [VAR VALUE]...)  */)
   (Lisp_Object args)
 {
-  Lisp_Object args_left, symbol, val;
+  Lisp_Object args_left, val;

   args_left = val = args;

   while (CONSP (args_left))
     {
-      val = eval_sub (Fcar (XCDR (args_left)));
-      symbol = XCAR (args_left);
-      Fset_default (symbol, val);
-      args_left = Fcdr (XCDR (args_left));
+      Lisp_Object cdr_args_left = XCDR (args_left);
+      val = eval_sub (Fcar (cdr_args_left));
+      Fset_default (XCAR (args_left), val);
+      args_left = Fcdr (cdr_args_left);
     }

   return val;
diff --git a/src/lread.c b/src/lread.c
index f14c68e..b2bbf75 100644
--- a/src/lread.c
+++ b/src/lread.c
@@ -963,7 +963,7 @@ required.
 This uses the variables `load-suffixes' and `load-file-rep-suffixes'.  */)
   (void)
 {
-  Lisp_Object lst = Qnil, suffixes = Vload_suffixes, suffix, ext;
+  Lisp_Object lst = Qnil, suffixes = Vload_suffixes, suffix;
   while (CONSP (suffixes))
     {
       Lisp_Object exts = Vload_file_rep_suffixes;
@@ -971,9 +971,8 @@ This uses the variables `load-suffixes' and `load-file-rep-suffixes'.  */)
       suffixes = XCDR (suffixes);
       while (CONSP (exts))
        {
-         ext = XCAR (exts);
+         lst = Fcons (concat2 (suffix, XCAR (exts)), lst);
          exts = XCDR (exts);
-         lst = Fcons (concat2 (suffix, ext), lst);
        }
     }
   return Fnreverse (lst);