}
XSETFLOAT (val, &float_block->floats[float_block_index++]);
}
- XFLOAT (val)->data = float_value;
+ XFLOAT_DATA (val) = float_value;
XSETFASTINT (XFLOAT (val)->type, 0); /* bug chasing -wsr */
consing_since_gc += sizeof (struct Lisp_Float);
floats_consed++;
}
XSETCONS (val, &cons_block->conses[cons_block_index++]);
}
- XCONS (val)->car = car;
- XCONS (val)->cdr = cdr;
+ XCAR (val) = car;
+ XCDR (val) = cdr;
consing_since_gc += sizeof (struct Lisp_Cons);
cons_cells_consed++;
return val;
error ("Pure Lisp storage exhausted");
XSETCONS (new, PUREBEG + pureptr);
pureptr += sizeof (struct Lisp_Cons);
- XCONS (new)->car = Fpurecopy (car);
- XCONS (new)->cdr = Fpurecopy (cdr);
+ XCAR (new) = Fpurecopy (car);
+ XCDR (new) = Fpurecopy (cdr);
return new;
}
error ("Pure Lisp storage exhausted");
XSETFLOAT (new, PUREBEG + pureptr);
pureptr += sizeof (struct Lisp_Float);
- XFLOAT (new)->data = num;
+ XFLOAT_DATA (new) = num;
XSETFASTINT (XFLOAT (new)->type, 0); /* bug chasing -wsr */
return new;
}
return obj;
if (CONSP (obj))
- return pure_cons (XCONS (obj)->car, XCONS (obj)->cdr);
+ return pure_cons (XCAR (obj), XCDR (obj));
#ifdef LISP_FLOAT_TYPE
else if (FLOATP (obj))
- return make_pure_float (XFLOAT (obj)->data);
+ return make_pure_float (XFLOAT_DATA (obj));
#endif /* LISP_FLOAT_TYPE */
else if (STRINGP (obj))
return make_pure_string (XSTRING (obj)->data, XSTRING (obj)->size,
prev = Qnil;
while (CONSP (tail))
{
- if (GC_CONSP (XCONS (tail)->car)
- && GC_MARKERP (XCONS (XCONS (tail)->car)->car)
- && ! XMARKBIT (XMARKER (XCONS (XCONS (tail)->car)->car)->chain))
+ if (GC_CONSP (XCAR (tail))
+ && GC_MARKERP (XCAR (XCAR (tail)))
+ && ! XMARKBIT (XMARKER (XCAR (XCAR (tail)))->chain))
{
if (NILP (prev))
- nextb->undo_list = tail = XCONS (tail)->cdr;
+ nextb->undo_list = tail = XCDR (tail);
else
- tail = XCONS (prev)->cdr = XCONS (tail)->cdr;
+ tail = XCDR (prev) = XCDR (tail);
}
else
{
prev = tail;
- tail = XCONS (tail)->cdr;
+ tail = XCDR (tail);
}
}
}
}
mark_object (&ptr->car);
/* See comment above under Lisp_Vector for why not use ptr here. */
- objptr = &XCONS (obj)->cdr;
+ objptr = &XCDR (obj);
goto loop;
}
break;
XMARK (ptr->car);
if (GC_CONSP (ptr->car)
- && ! XMARKBIT (XCONS (ptr->car)->car)
- && GC_MARKERP (XCONS (ptr->car)->car))
+ && ! XMARKBIT (XCAR (ptr->car))
+ && GC_MARKERP (XCAR (ptr->car)))
{
- XMARK (XCONS (ptr->car)->car);
- mark_object (&XCONS (ptr->car)->cdr);
+ XMARK (XCAR (ptr->car));
+ mark_object (&XCDR (ptr->car));
}
else
mark_object (&ptr->car);
break;
}
- mark_object (&XCONS (tail)->cdr);
+ mark_object (&XCDR (tail));
}
else
mark_object (&buffer->undo_list);