Mercurial > hg > xemacs-beta
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; |