Home | History | Annotate | Download | only in lisp

Lines Matching refs:CAR

84     if (CONSP(description) && STRINGP(CAR(description))) {
85 	documentation = CAR(description);
93 	object = CAR(list);
102 	    object = CAR(object);
110 	    CAR(cons) = KEYWORD(ATOMID(object)->value);
114 	    LispObj *left = CAR(object), *right = CAR(list);
117 		left = CAR(left);
119 		right = CAR(right);
148 	if (CONSP(CAR(list)))
149 	    id = ATOMID(CAR(CAR(list)));
151 	    id = ATOMID(CAR(list));
204 	CHECK_KEYWORD(CAR(list));
212     /* create structure, CAR(definition) is structure name */
218 	field = CAR(list);
222 		defvalue = CAR(CDR(field));
223 	    field = CAR(field);
229 	    field = CAR(object);
232 		value = CAR(CDR(object));
265 	    Atom_id id = ATOMID(CAR(list));
269 		field = CAR(object);
271 		    field = CAR(field);
277 			    ATOMID(struc)->value, STROBJ(CAR(list)),
278 			    ATOMID(CAR(definition))->value);
321 		    ATOMID(name)->value, STROBJ(struc), ATOMID(CAR(definition))->value);
326     return (store ? RPLACA(list, value) : CAR(list));