Lines Matching defs:car
152 p->value.c.car = &alsa_lisp_nil;
207 delete_tree(instance, p->value.c.car);
231 incref_tree(instance, p->value.c.car);
246 incref_tree(instance, p->value.c.car);
249 incref_tree_explicit(instance, p->value.c.car, e);
472 lexpr->value.c.car = new_string(instance, ptr_id);
473 if (lexpr->value.c.car == NULL)
477 delete_object(instance, lexpr->value.c.car);
730 p->value.c.car = parse_object(instance, 1);
731 if (p->value.c.car == NULL)
754 p->value.c.car = new_identifier(instance, "quote");
755 if (p->value.c.car == NULL)
759 delete_object(instance, p->value.c.car);
767 p->value.c.cdr->value.c.car = obj;
1001 alisp_compare_type(p->value->value.c.car, ALISP_OBJ_IDENTIFIER) &&
1002 !strcmp(p->value->value.c.car->value.s, "lambda")) {
1091 static inline struct alisp_object * car(struct alisp_object * p)
1094 return p->value.c.car;
1108 * Syntax: (car expr)
1112 struct alisp_object *p1 = car(args), *p2;
1117 p2 = car(p1);
1127 struct alisp_object *p1 = car(args), *p2;
1131 delete_tree(instance, car(p1));
1147 p1 = eval(instance, car(p));
1166 p1 = eval(instance, car(p));
1183 p1 = eval(instance, car(p));
1205 p1 = eval(instance, car(p));
1227 p1 = eval(instance, car(p));
1273 p1 = eval(instance, car(p));
1309 p1 = eval(instance, car(p));
1364 p1 = eval(instance, car(args));
1365 p2 = eval(instance, car(cdr(args)));
1411 p1 = eval(instance, car(args));
1412 p2 = eval(instance, car(cdr(args)));
1450 p1 = eval(instance, car(args));
1451 p2 = eval(instance, car(cdr(args)));
1489 p1 = eval(instance, car(args));
1490 p2 = eval(instance, car(cdr(args)));
1528 p1 = eval(instance, car(args));
1529 p2 = eval(instance, car(cdr(args)));
1567 p1 = eval(instance, car(args));
1568 p2 = eval(instance, car(cdr(args)));
1620 p1 = eval(instance, car(args));
1628 p2 = car(p2);
1661 princ_object(out, p->value.c.car);
1714 p1 = eval(instance, car(p));
1734 p = eval(instance, car(args));
1767 p->value.c.car = eval(instance, car(args));
1768 p->value.c.cdr = eval(instance, car(cdr(args)));
1796 p1->value.c.car = eval(instance, car(p));
1797 if (p1->value.c.car == NULL) {
1854 p1 = eval(instance, car(args));
1855 p2 = eval(instance, car(cdr(args)));
1877 p1 = eval(instance, car(args));
1878 p2 = eval(instance, car(cdr(args)));
1898 struct alisp_object *p = car(args);
1915 p1 = eval(instance, car(p));
1939 p1 = eval(instance, car(p));
1958 struct alisp_object * p = eval(instance, car(args));
1979 p1 = car(p);
1980 if ((p2 = eval(instance, car(p1))) != &alsa_lisp_nil) {
2011 p1 = car(args);
2012 p2 = car(cdr(args));
2036 p1 = car(args);
2057 p1 = car(args);
2077 p1 = car(args);
2105 p1 = eval(instance, car(p));
2122 p1 = eval(instance, car(p));
2148 p1 = eval(instance, car(p));
2169 struct alisp_object * p1 = eval(instance, car(args)),
2170 * p2 = eval(instance, car(cdr(args)));
2194 struct alisp_object * p1 = eval(instance, car(args));
2212 p1 = car(p);
2213 p2 = eval(instance, car(cdr(p)));
2246 p1 = unset_object(instance, car(p));
2247 delete_tree(instance, car(p));
2262 struct alisp_object * p1 = car(args),
2263 * p2 = car(cdr(args)),
2269 lexpr->value.c.car = new_identifier(instance, "lambda");
2270 if (lexpr->value.c.car == NULL) {
2276 delete_object(instance, lexpr->value.c.car);
2281 lexpr->value.c.cdr->value.c.car = p2;
2303 p1 = car(p);
2306 p2 = car(cdr(p));
2326 eval_objs[i++] = eval(instance, car(p3));
2336 p3 = car(p2);
2352 p2 = car(p3);
2356 p3 = car(p2);
2364 delete_tree(instance, car(p2));
2394 p1 = eval(instance, car(args));
2418 p1 = eval(instance, car(p));
2435 struct alisp_object * p = eval(instance, car(args)), * p1;
2457 struct alisp_object * p = eval(instance, car(args)), * p1;
2564 struct alisp_object * p = eval(instance, car(args)), * p1 = cdr(args), * n;
2578 n = eval(instance, car(p1));
2635 n = eval(instance, car(p1));
2668 p[start1] = eval(instance, car(p1));
2755 p1 = eval(instance, car(args));
2756 p2 = eval(instance, car(cdr(args)));
2762 if (eq(p1, car(car(p2)))) {
2763 n = car(p2);
2769 delete_tree(instance, car(p2));
2785 p1 = eval(instance, car(args));
2786 p2 = eval(instance, car(cdr(args)));
2792 if (eq(p1, cdr(car(p2)))) {
2793 n = car(p2);
2799 delete_tree(instance, car(p2));
2815 p1 = eval(instance, car(args));
2816 p2 = eval(instance, car(cdr(args)));
2822 if (equal(p1, car(car(p2)))) {
2823 n = car(p2);
2829 delete_tree(instance, car(p2));
2846 p1 = eval(instance, car(args));
2847 p2 = eval(instance, car(cdr(args)));
2865 delete_tree(instance, car(p2));
2869 n = car(p2);
2882 p1 = eval(instance, car(args));
2883 p2 = eval(instance, car(cdr(args)));
2889 if (equal(p1, cdr(car(p2)))) {
2890 n = car(p2);
2896 delete_tree(instance, car(p2));
2907 struct alisp_object * p = car(args);
2951 struct alisp_object * p = car(args);
2993 { "car", F_car },
3085 struct alisp_object * p = eval(instance, car(args)), * p1;
3102 struct alisp_object * p1 = car(p), * p2;
3142 return eval(instance, eval(instance, car(args)));
3377 p->value.c.car = obj;
3480 alisp_compare_type(seq->value.c.car, ALISP_OBJ_CONS))
3481 seq = seq->value.c.car;
3483 p2 = seq->value.c.car;