Mercurial > emacs
comparison 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 |
comparison
equal
deleted
inserted
replaced
| 39972:b2479b43184b | 39973:579177964efa |
|---|---|
| 2272 break; | 2272 break; |
| 2273 | 2273 |
| 2274 if (EQ (symbol, XCAR (slot))) | 2274 if (EQ (symbol, XCAR (slot))) |
| 2275 { | 2275 { |
| 2276 index = make_number (i); | 2276 index = make_number (i); |
| 2277 XCDR (slot) = map; | 2277 XSETCDR (slot, map); |
| 2278 Fput (symbol, Qcode_conversion_map, map); | 2278 Fput (symbol, Qcode_conversion_map, map); |
| 2279 Fput (symbol, Qcode_conversion_map_id, index); | 2279 Fput (symbol, Qcode_conversion_map_id, index); |
| 2280 return index; | 2280 return index; |
| 2281 } | 2281 } |
| 2282 } | 2282 } |