From f3fbd1553534bb85c75baf891c0ca9aaa4c3fa6f Mon Sep 17 00:00:00 2001 From: Ken Raeburn Date: Tue, 16 Oct 2001 09:09:51 +0000 Subject: Avoid (most) uses of XCAR/XCDR as lvalues, for flexibility in experimenting with lisp system changes. --- src/callint.c | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'src/callint.c') 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); } } -- cgit v1.2.1