Lines Matching refs:object
59 LispObj *list, *cons, *object, *definition, *documentation;
76 atom = (object = ATOM(name))->data.atom;
93 object = CAR(list);
96 if (CONSP(object)) {
97 if ((CONSP(CDR(object)) && CDR(CDR(object)) != NIL) ||
98 (!CONSP(CDR(object)) && CDR(object) != NIL))
100 STRFUN(builtin), STROBJ(object));
101 cons = object;
102 object = CAR(object);
104 if (!SYMBOLP(object) || strcmp(ATOMID(object)->value, "P") == 0)
107 STRFUN(builtin), STROBJ(object), ATOMID(oname)->value);
109 if (!KEYWORDP(object))
110 CAR(cons) = KEYWORD(ATOMID(object)->value);
113 for (object = description; object != list; object = CDR(object)) {
114 LispObj *left = CAR(object), *right = CAR(list);
131 LispExportSymbol(object);
140 atom = (object = ATOM(name))->data.atom;
143 LispExportSymbol(object);
158 atom = (object = ATOM(name))->data.atom;
161 LispExportSymbol(object);
184 LispObj *definition, *object, *field, *fields, *value = NIL, *cons, *list;
227 for (object = init; CONSP(object); object = CDR(object)) {
229 field = CAR(object);
232 value = CAR(CDR(object));
236 object = CDR(object);
240 if (!CONSP(object)) {
267 for (object = CDR(definition); CONSP(object);
268 object = CDR(object)) {
269 field = CAR(object);
275 if (!CONSP(object))
318 /* check if the object is of the required type */
368 /* check if the object is of the required type */