diff src/ccl.c @ 39973:579177964efa

Avoid (most) uses of XCAR/XCDR as lvalues, for flexibility in experimenting with lisp system changes.
author Ken Raeburn <raeburn@raeburn.org>
date Tue, 16 Oct 2001 09:09:51 +0000
parents 0a94387bba65
children 6b389fb978bc
line wrap: on
line diff
--- a/src/ccl.c	Mon Oct 15 20:52:59 2001 +0000
+++ b/src/ccl.c	Tue Oct 16 09:09:51 2001 +0000
@@ -2274,7 +2274,7 @@
       if (EQ (symbol, XCAR (slot)))
 	{
 	  index = make_number (i);
-	  XCDR (slot) = map;
+	  XSETCDR (slot, map);
 	  Fput (symbol, Qcode_conversion_map, map);
 	  Fput (symbol, Qcode_conversion_map_id, index);
 	  return index;