Avoid (most) uses of XCAR/XCDR as lvalues, for flexibility in experimenting

with lisp system changes.

1 files changed, 3 insertions, 3 deletions

diff --git a/src/callint.c b/src/callint.c
index 54ad0c2cf7e..329911cda6e 100644
--- a/src/callint.c
+++ b/src/callint.c
@@ -156,7 +156,7 @@ quotify_args (exp)
   for (tail = exp; CONSP (tail); tail = next)
     {
       next = XCDR (tail);
-      XCAR (tail) = quotify_arg (XCAR (tail));
+      XSETCAR (tail, quotify_arg (XCAR (tail)));
     }
   return exp;
 }
@@ -358,7 +358,7 @@ supply if the command inquires which events were used to invoke it.")
             {
               teml = Fnthcdr (Vhistory_length, Vcommand_history);
               if (CONSP (teml))
-                XCDR (teml) = Qnil;
+                XSETCDR (teml, Qnil);
             }
         }
       single_kboard_state ();
@@ -776,7 +776,7 @@ supply if the command inquires which events were used to invoke it.")
         {
           teml = Fnthcdr (Vhistory_length, Vcommand_history);
           if (CONSP (teml))
-            XCDR (teml) = Qnil;
+            XSETCDR (teml, Qnil);
         }
     }