(fix_command): Use XDCR.

diff --git a/src/callint.c b/src/callint.c
index 1d7d6f9..50090db 100644 (file)
--- a/src/callint.c
+++ b/src/callint.c
@@ -209,7 +209,7 @@ fix_command (input, values)
          Lisp_Object intail, valtail;
          for (intail = Fcdr (input), valtail = values;
               CONSP (valtail);
-              intail = Fcdr (intail), valtail = Fcdr (valtail))
+              intail = Fcdr (intail), valtail = XCDR (valtail))
            {
              Lisp_Object elt;
              elt = Fcar (intail);