comparison src/tooltalk.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
145 145
146 Lisp_Object Qtooltalk_messagep; 146 Lisp_Object Qtooltalk_messagep;
147 147
148 struct Lisp_Tooltalk_Message 148 struct Lisp_Tooltalk_Message
149 { 149 {
150 struct LCRECORD_HEADER header; 150 LISP_OBJECT_HEADER header;
151 Lisp_Object plist_sym, callback; 151 Lisp_Object plist_sym, callback;
152 Tt_message m; 152 Tt_message m;
153 }; 153 };
154 154
155 static const struct memory_description tooltalk_message_description [] = { 155 static const struct memory_description tooltalk_message_description [] = {
221 221
222 Lisp_Object Qtooltalk_patternp; 222 Lisp_Object Qtooltalk_patternp;
223 223
224 struct Lisp_Tooltalk_Pattern 224 struct Lisp_Tooltalk_Pattern
225 { 225 {
226 struct LCRECORD_HEADER header; 226 LISP_OBJECT_HEADER header;
227 Lisp_Object plist_sym, callback; 227 Lisp_Object plist_sym, callback;
228 Tt_pattern p; 228 Tt_pattern p;
229 }; 229 };
230 230
231 static const struct memory_description tooltalk_pattern_description [] = { 231 static const struct memory_description tooltalk_pattern_description [] = {