comparison src/objects-impl.h @ 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 ad2f4ae9895b
children a9c41067dd88
comparison
equal deleted inserted replaced
5119:d877c14318b3 5120:d1247f3cc363
97 * Color Instance Object * 97 * Color Instance Object *
98 ****************************************************************************/ 98 ****************************************************************************/
99 99
100 struct Lisp_Color_Instance 100 struct Lisp_Color_Instance
101 { 101 {
102 struct LCRECORD_HEADER header; 102 LISP_OBJECT_HEADER header;
103 Lisp_Object name; 103 Lisp_Object name;
104 Lisp_Object device; 104 Lisp_Object device;
105 105
106 /* See comment in struct console about console variants. */ 106 /* See comment in struct console about console variants. */
107 enum console_variant color_instance_type; 107 enum console_variant color_instance_type;
117 * Font Instance Object * 117 * Font Instance Object *
118 ****************************************************************************/ 118 ****************************************************************************/
119 119
120 struct Lisp_Font_Instance 120 struct Lisp_Font_Instance
121 { 121 {
122 struct LCRECORD_HEADER header; 122 LISP_OBJECT_HEADER header;
123 Lisp_Object name; /* the instantiator used to create the font instance */ 123 Lisp_Object name; /* the instantiator used to create the font instance */
124 Lisp_Object truename; /* used by the device-specific methods; we need to 124 Lisp_Object truename; /* used by the device-specific methods; we need to
125 call them to get the truename (#### in reality, 125 call them to get the truename (#### in reality,
126 they all probably just store the truename here 126 they all probably just store the truename here
127 if they know it, and nil otherwise; we should 127 if they know it, and nil otherwise; we should