comparison src/specifier.c @ 5120:d1247f3cc363 ben-lisp-object

latest work on lisp-object workspace; more changes eliminating LCRECORD in place of LISP_OBJECT; now compiles and runs.
author Ben Wing <ben@xemacs.org>
date Mon, 28 Dec 2009 01:15:52 -0600
parents e0db3c197671
children 623d57b7fbe8
comparison
equal deleted inserted replaced
5119:d877c14318b3 5120:d1247f3cc363
3425 Lisp_Specifier *sp = XSPECIFIER (specifier); 3425 Lisp_Specifier *sp = XSPECIFIER (specifier);
3426 assert (!GHOST_SPECIFIER_P (sp)); 3426 assert (!GHOST_SPECIFIER_P (sp));
3427 3427
3428 if (!sp->caching) 3428 if (!sp->caching)
3429 #ifdef NEW_GC 3429 #ifdef NEW_GC
3430 sp->caching = alloc_lrecord_type (struct specifier_caching, 3430 sp->caching = XSPECIFIER_CACHING (ALLOC_LISP_OBJECT (specifier_caching));
3431 &lrecord_specifier_caching);
3432 #else /* not NEW_GC */ 3431 #else /* not NEW_GC */
3433 sp->caching = xnew_and_zero (struct specifier_caching); 3432 sp->caching = xnew_and_zero (struct specifier_caching);
3434 #endif /* not NEW_GC */ 3433 #endif /* not NEW_GC */
3435 sp->caching->offset_into_struct_window = struct_window_offset; 3434 sp->caching->offset_into_struct_window = struct_window_offset;
3436 sp->caching->value_changed_in_window = value_changed_in_window; 3435 sp->caching->value_changed_in_window = value_changed_in_window;