Lines Matching refs:cdr
152 p->value.c.cdr = &alsa_lisp_nil;
207 delete_tree(instance, p->value.c.cdr);
231 incref_tree(instance, p->value.c.cdr);
246 incref_tree(instance, p->value.c.cdr);
249 incref_tree_explicit(instance, p->value.c.cdr, e);
474 lexpr->value.c.cdr = new_pointer(instance, ptr);
475 if (lexpr->value.c.cdr == NULL) {
710 prev->value.c.cdr = parse_object(instance, 1);
711 if (prev->value.c.cdr == NULL)
727 prev->value.c.cdr = p;
756 p->value.c.cdr = new_object(instance, ALISP_OBJ_CONS);
757 if (p->value.c.cdr == NULL) {
766 p->value.c.cdr->value.c.car = obj;
1003 princ_cons(out, p->value->value.c.cdr);
1083 p = p->value.c.cdr;
1098 static inline struct alisp_object * cdr(struct alisp_object * p)
1101 return p->value.c.cdr;
1112 delete_tree(instance, cdr(args));
1115 delete_tree(instance, cdr(p1));
1122 * Syntax: (cdr expr)
1127 delete_tree(instance, cdr(args));
1131 p2 = cdr(p1);
1161 p = cdr(n = p);
1200 p = cdr(n = p);
1228 if (p == args && cdr(p) != &alsa_lisp_nil) {
1241 if (p == args && cdr(p) != &alsa_lisp_nil)
1249 n = cdr(p);
1285 n = cdr(p);
1310 if (p == args && cdr(p) != &alsa_lisp_nil) {
1330 if (p == args && cdr(p) != &alsa_lisp_nil) {
1344 n = cdr(p);
1364 p2 = eval(instance, car(cdr(args)));
1365 delete_tree(instance, cdr(cdr(args)));
1366 delete_object(instance, cdr(args));
1411 p2 = eval(instance, car(cdr(args)));
1412 delete_tree(instance, cdr(cdr(args)));
1413 delete_object(instance, cdr(args));
1450 p2 = eval(instance, car(cdr(args)));
1451 delete_tree(instance, cdr(cdr(args)));
1452 delete_object(instance, cdr(args));
1489 p2 = eval(instance, car(cdr(args)));
1490 delete_tree(instance, cdr(cdr(args)));
1491 delete_object(instance, cdr(args));
1528 p2 = eval(instance, car(cdr(args)));
1529 delete_tree(instance, cdr(cdr(args)));
1530 delete_object(instance, cdr(args));
1567 p2 = eval(instance, car(cdr(args)));
1568 delete_tree(instance, cdr(cdr(args)));
1569 delete_object(instance, cdr(args));
1620 delete_tree(instance, cdr(args));
1661 p = p->value.c.cdr;
1718 n = cdr(p);
1734 delete_tree(instance, cdr(args));
1767 p->value.c.cdr = eval(instance, car(cdr(args)));
1768 delete_tree(instance, cdr(cdr(args)));
1769 delete_object(instance, cdr(args));
1798 delete_tree(instance, cdr(p));
1805 prev->value.c.cdr = p1;
1807 p = cdr(p1 = p);
1854 p2 = eval(instance, car(cdr(args)));
1855 delete_tree(instance, cdr(cdr(args)));
1856 delete_object(instance, cdr(args));
1877 p2 = eval(instance, car(cdr(args)));
1878 delete_tree(instance, cdr(cdr(args)));
1879 delete_object(instance, cdr(args));
1899 delete_tree(instance, cdr(args));
1917 delete_tree(instance, cdr(p));
1921 p = cdr(n = p);
1940 delete_tree(instance, cdr(p));
1944 p = cdr(n = p);
1959 delete_tree(instance, cdr(args));
1980 p3 = cdr(p1);
1982 delete_tree(instance, cdr(p));
1993 delete_tree(instance, cdr(p1));
1996 p = cdr(p2 = p);
2011 p2 = car(cdr(args));
2012 p3 = cdr(cdr(args));
2013 delete_object(instance, cdr(args));
2036 p2 = cdr(args);
2057 p2 = cdr(args);
2077 p2 = cdr(args);
2105 n = cdr(p);
2126 p1 = cdr(p);
2152 p1 = cdr(p);
2169 * p2 = eval(instance, car(cdr(args)));
2171 delete_tree(instance, cdr(cdr(args)));
2172 delete_object(instance, cdr(args));
2196 delete_tree(instance, cdr(args));
2212 p2 = eval(instance, car(cdr(p)));
2213 n = cdr(cdr(p));
2214 delete_object(instance, cdr(p));
2247 p = cdr(n = p);
2262 * p2 = car(cdr(args)),
2263 * p3 = cdr(cdr(args));
2274 if ((lexpr->value.c.cdr = new_object(instance, ALISP_OBJ_CONS)) == NULL) {
2280 lexpr->value.c.cdr->value.c.car = p2;
2281 lexpr->value.c.cdr->value.c.cdr = p3;
2282 delete_object(instance, cdr(args));
2305 p2 = car(cdr(p));
2326 p3 = cdr(p4 = p3);
2342 p2 = cdr(p2);
2346 p4 = F_progn(instance, cdr(incref_tree(instance, p3 = cdr(p))));
2364 p2 = cdr(p3 = p2);
2394 delete_tree(instance, cdr(args));
2421 p = cdr(p1 = p);
2436 delete_tree(instance, cdr(args));
2458 delete_tree(instance, cdr(args));
2563 struct alisp_object * p = eval(instance, car(args)), * p1 = cdr(args), * n;
2587 delete_tree(instance, cdr(p1));
2632 p1 = cdr(n = p1);
2638 delete_tree(instance, cdr(p1));
2668 p1 = cdr(n = p1);
2755 p2 = eval(instance, car(cdr(args)));
2756 delete_tree(instance, cdr(cdr(args)));
2757 delete_object(instance, cdr(args));
2764 delete_tree(instance, cdr(p2));
2769 p2 = cdr(n = p2);
2785 p2 = eval(instance, car(cdr(args)));
2786 delete_tree(instance, cdr(cdr(args)));
2787 delete_object(instance, cdr(args));
2791 if (eq(p1, cdr(car(p2)))) {
2794 delete_tree(instance, cdr(p2));
2799 p2 = cdr(n = p2);
2815 p2 = eval(instance, car(cdr(args)));
2816 delete_tree(instance, cdr(cdr(args)));
2817 delete_object(instance, cdr(args));
2824 delete_tree(instance, cdr(p2));
2829 p2 = cdr(n = p2);
2846 p2 = eval(instance, car(cdr(args)));
2847 delete_tree(instance, cdr(cdr(args)));
2848 delete_object(instance, cdr(args));
2865 p2 = cdr(n = p2);
2869 delete_tree(instance, cdr(p2));
2882 p2 = eval(instance, car(cdr(args)));
2883 delete_tree(instance, cdr(cdr(args)));
2884 delete_object(instance, cdr(args));
2888 if (equal(p1, cdr(car(p2)))) {
2891 delete_tree(instance, cdr(p2));
2896 p2 = cdr(n = p2);
2908 if (p != &alsa_lisp_nil && cdr(args) == &alsa_lisp_nil &&
2952 if (p != &alsa_lisp_nil && cdr(args) == &alsa_lisp_nil &&
2993 { "cdr", F_cdr },
3090 delete_tree(instance, cdr(args));
3094 p1 = cdr(args);
3107 p2 = cdr(p);
3370 p->value.c.cdr = new_object(instance, ALISP_OBJ_CONS);
3371 p = p->value.c.cdr;
3446 p1 = cdr(p1);
3459 seq = cdr(seq);
3467 seq = seq->value.c.cdr;
3488 p2 = seq->value.c.cdr;