Lines Matching refs:car
151 p->value.c.car = &alsa_lisp_nil;
206 delete_tree(instance, p->value.c.car);
230 incref_tree(instance, p->value.c.car);
245 incref_tree(instance, p->value.c.car);
248 incref_tree_explicit(instance, p->value.c.car, e);
471 lexpr->value.c.car = new_string(instance, ptr_id);
472 if (lexpr->value.c.car == NULL)
476 delete_object(instance, lexpr->value.c.car);
729 p->value.c.car = parse_object(instance, 1);
730 if (p->value.c.car == NULL)
753 p->value.c.car = new_identifier(instance, "quote");
754 if (p->value.c.car == NULL)
758 delete_object(instance, p->value.c.car);
766 p->value.c.cdr->value.c.car = obj;
1000 alisp_compare_type(p->value->value.c.car, ALISP_OBJ_IDENTIFIER) &&
1001 !strcmp(p->value->value.c.car->value.s, "lambda")) {
1090 static inline struct alisp_object * car(struct alisp_object * p)
1093 return p->value.c.car;
1107 * Syntax: (car expr)
1111 struct alisp_object *p1 = car(args), *p2;
1116 p2 = car(p1);
1126 struct alisp_object *p1 = car(args), *p2;
1130 delete_tree(instance, car(p1));
1146 p1 = eval(instance, car(p));
1165 p1 = eval(instance, car(p));
1182 p1 = eval(instance, car(p));
1204 p1 = eval(instance, car(p));
1226 p1 = eval(instance, car(p));
1272 p1 = eval(instance, car(p));
1308 p1 = eval(instance, car(p));
1363 p1 = eval(instance, car(args));
1364 p2 = eval(instance, car(cdr(args)));
1410 p1 = eval(instance, car(args));
1411 p2 = eval(instance, car(cdr(args)));
1449 p1 = eval(instance, car(args));
1450 p2 = eval(instance, car(cdr(args)));
1488 p1 = eval(instance, car(args));
1489 p2 = eval(instance, car(cdr(args)));
1527 p1 = eval(instance, car(args));
1528 p2 = eval(instance, car(cdr(args)));
1566 p1 = eval(instance, car(args));
1567 p2 = eval(instance, car(cdr(args)));
1619 p1 = eval(instance, car(args));
1627 p2 = car(p2);
1660 princ_object(out, p->value.c.car);
1713 p1 = eval(instance, car(p));
1733 p = eval(instance, car(args));
1766 p->value.c.car = eval(instance, car(args));
1767 p->value.c.cdr = eval(instance, car(cdr(args)));
1795 p1->value.c.car = eval(instance, car(p));
1796 if (p1->value.c.car == NULL) {
1853 p1 = eval(instance, car(args));
1854 p2 = eval(instance, car(cdr(args)));
1876 p1 = eval(instance, car(args));
1877 p2 = eval(instance, car(cdr(args)));
1897 struct alisp_object *p = car(args);
1914 p1 = eval(instance, car(p));
1938 p1 = eval(instance, car(p));
1957 struct alisp_object * p = eval(instance, car(args));
1978 p1 = car(p);
1979 if ((p2 = eval(instance, car(p1))) != &alsa_lisp_nil) {
2010 p1 = car(args);
2011 p2 = car(cdr(args));
2035 p1 = car(args);
2056 p1 = car(args);
2076 p1 = car(args);
2104 p1 = eval(instance, car(p));
2121 p1 = eval(instance, car(p));
2147 p1 = eval(instance, car(p));
2168 struct alisp_object * p1 = eval(instance, car(args)),
2169 * p2 = eval(instance, car(cdr(args)));
2193 struct alisp_object * p1 = eval(instance, car(args));
2211 p1 = car(p);
2212 p2 = eval(instance, car(cdr(p)));
2245 p1 = unset_object(instance, car(p));
2246 delete_tree(instance, car(p));
2261 struct alisp_object * p1 = car(args),
2262 * p2 = car(cdr(args)),
2268 lexpr->value.c.car = new_identifier(instance, "lambda");
2269 if (lexpr->value.c.car == NULL) {
2275 delete_object(instance, lexpr->value.c.car);
2280 lexpr->value.c.cdr->value.c.car = p2;
2302 p1 = car(p);
2305 p2 = car(cdr(p));
2325 eval_objs[i++] = eval(instance, car(p3));
2335 p3 = car(p2);
2351 p2 = car(p3);
2355 p3 = car(p2);
2363 delete_tree(instance, car(p2));
2393 p1 = eval(instance, car(args));
2417 p1 = eval(instance, car(p));
2434 struct alisp_object * p = eval(instance, car(args)), * p1;
2456 struct alisp_object * p = eval(instance, car(args)), * p1;
2563 struct alisp_object * p = eval(instance, car(args)), * p1 = cdr(args), * n;
2577 n = eval(instance, car(p1));
2634 n = eval(instance, car(p1));
2667 p[start1] = eval(instance, car(p1));
2754 p1 = eval(instance, car(args));
2755 p2 = eval(instance, car(cdr(args)));
2761 if (eq(p1, car(car(p2)))) {
2762 n = car(p2);
2768 delete_tree(instance, car(p2));
2784 p1 = eval(instance, car(args));
2785 p2 = eval(instance, car(cdr(args)));
2791 if (eq(p1, cdr(car(p2)))) {
2792 n = car(p2);
2798 delete_tree(instance, car(p2));
2814 p1 = eval(instance, car(args));
2815 p2 = eval(instance, car(cdr(args)));
2821 if (equal(p1, car(car(p2)))) {
2822 n = car(p2);
2828 delete_tree(instance, car(p2));
2845 p1 = eval(instance, car(args));
2846 p2 = eval(instance, car(cdr(args)));
2864 delete_tree(instance, car(p2));
2868 n = car(p2);
2881 p1 = eval(instance, car(args));
2882 p2 = eval(instance, car(cdr(args)));
2888 if (equal(p1, cdr(car(p2)))) {
2889 n = car(p2);
2895 delete_tree(instance, car(p2));
2906 struct alisp_object * p = car(args);
2950 struct alisp_object * p = car(args);
2992 { "car", F_car },
3084 struct alisp_object * p = eval(instance, car(args)), * p1;
3101 struct alisp_object * p1 = car(p), * p2;
3141 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;