Lines Matching defs:cdr
153 p->value.c.cdr = &alsa_lisp_nil;
208 delete_tree(instance, p->value.c.cdr);
232 incref_tree(instance, p->value.c.cdr);
247 incref_tree(instance, p->value.c.cdr);
250 incref_tree_explicit(instance, p->value.c.cdr, e);
475 lexpr->value.c.cdr = new_pointer(instance, ptr);
476 if (lexpr->value.c.cdr == NULL) {
711 prev->value.c.cdr = parse_object(instance, 1);
712 if (prev->value.c.cdr == NULL)
728 prev->value.c.cdr = p;
757 p->value.c.cdr = new_object(instance, ALISP_OBJ_CONS);
758 if (p->value.c.cdr == NULL) {
767 p->value.c.cdr->value.c.car = obj;
1004 princ_cons(out, p->value->value.c.cdr);
1084 p = p->value.c.cdr;
1099 static inline struct alisp_object * cdr(struct alisp_object * p)
1102 return p->value.c.cdr;
1113 delete_tree(instance, cdr(args));
1116 delete_tree(instance, cdr(p1));
1123 * Syntax: (cdr expr)
1128 delete_tree(instance, cdr(args));
1132 p2 = cdr(p1);
1162 p = cdr(n = p);
1201 p = cdr(n = p);
1229 if (p == args && cdr(p) != &alsa_lisp_nil) {
1242 if (p == args && cdr(p) != &alsa_lisp_nil)
1250 n = cdr(p);
1286 n = cdr(p);
1311 if (p == args && cdr(p) != &alsa_lisp_nil) {
1331 if (p == args && cdr(p) != &alsa_lisp_nil) {
1345 n = cdr(p);
1365 p2 = eval(instance, car(cdr(args)));
1366 delete_tree(instance, cdr(cdr(args)));
1367 delete_object(instance, cdr(args));
1412 p2 = eval(instance, car(cdr(args)));
1413 delete_tree(instance, cdr(cdr(args)));
1414 delete_object(instance, cdr(args));
1451 p2 = eval(instance, car(cdr(args)));
1452 delete_tree(instance, cdr(cdr(args)));
1453 delete_object(instance, cdr(args));
1490 p2 = eval(instance, car(cdr(args)));
1491 delete_tree(instance, cdr(cdr(args)));
1492 delete_object(instance, cdr(args));
1529 p2 = eval(instance, car(cdr(args)));
1530 delete_tree(instance, cdr(cdr(args)));
1531 delete_object(instance, cdr(args));
1568 p2 = eval(instance, car(cdr(args)));
1569 delete_tree(instance, cdr(cdr(args)));
1570 delete_object(instance, cdr(args));
1621 delete_tree(instance, cdr(args));
1662 p = p->value.c.cdr;
1719 n = cdr(p);
1735 delete_tree(instance, cdr(args));
1768 p->value.c.cdr = eval(instance, car(cdr(args)));
1769 delete_tree(instance, cdr(cdr(args)));
1770 delete_object(instance, cdr(args));
1799 delete_tree(instance, cdr(p));
1806 prev->value.c.cdr = p1;
1808 p = cdr(p1 = p);
1855 p2 = eval(instance, car(cdr(args)));
1856 delete_tree(instance, cdr(cdr(args)));
1857 delete_object(instance, cdr(args));
1878 p2 = eval(instance, car(cdr(args)));
1879 delete_tree(instance, cdr(cdr(args)));
1880 delete_object(instance, cdr(args));
1900 delete_tree(instance, cdr(args));
1918 delete_tree(instance, cdr(p));
1922 p = cdr(n = p);
1941 delete_tree(instance, cdr(p));
1945 p = cdr(n = p);
1960 delete_tree(instance, cdr(args));
1981 p3 = cdr(p1);
1983 delete_tree(instance, cdr(p));
1994 delete_tree(instance, cdr(p1));
1997 p = cdr(p2 = p);
2012 p2 = car(cdr(args));
2013 p3 = cdr(cdr(args));
2014 delete_object(instance, cdr(args));
2037 p2 = cdr(args);
2058 p2 = cdr(args);
2078 p2 = cdr(args);
2106 n = cdr(p);
2127 p1 = cdr(p);
2153 p1 = cdr(p);
2170 * p2 = eval(instance, car(cdr(args)));
2172 delete_tree(instance, cdr(cdr(args)));
2173 delete_object(instance, cdr(args));
2197 delete_tree(instance, cdr(args));
2213 p2 = eval(instance, car(cdr(p)));
2214 n = cdr(cdr(p));
2215 delete_object(instance, cdr(p));
2248 p = cdr(n = p);
2263 * p2 = car(cdr(args)),
2264 * p3 = cdr(cdr(args));
2275 if ((lexpr->value.c.cdr = new_object(instance, ALISP_OBJ_CONS)) == NULL) {
2281 lexpr->value.c.cdr->value.c.car = p2;
2282 lexpr->value.c.cdr->value.c.cdr = p3;
2283 delete_object(instance, cdr(args));
2306 p2 = car(cdr(p));
2327 p3 = cdr(p4 = p3);
2343 p2 = cdr(p2);
2347 p4 = F_progn(instance, cdr(incref_tree(instance, p3 = cdr(p))));
2365 p2 = cdr(p3 = p2);
2395 delete_tree(instance, cdr(args));
2422 p = cdr(p1 = p);
2437 delete_tree(instance, cdr(args));
2459 delete_tree(instance, cdr(args));
2564 struct alisp_object * p = eval(instance, car(args)), * p1 = cdr(args), * n;
2588 delete_tree(instance, cdr(p1));
2633 p1 = cdr(n = p1);
2639 delete_tree(instance, cdr(p1));
2669 p1 = cdr(n = p1);
2756 p2 = eval(instance, car(cdr(args)));
2757 delete_tree(instance, cdr(cdr(args)));
2758 delete_object(instance, cdr(args));
2765 delete_tree(instance, cdr(p2));
2770 p2 = cdr(n = p2);
2786 p2 = eval(instance, car(cdr(args)));
2787 delete_tree(instance, cdr(cdr(args)));
2788 delete_object(instance, cdr(args));
2792 if (eq(p1, cdr(car(p2)))) {
2795 delete_tree(instance, cdr(p2));
2800 p2 = cdr(n = p2);
2816 p2 = eval(instance, car(cdr(args)));
2817 delete_tree(instance, cdr(cdr(args)));
2818 delete_object(instance, cdr(args));
2825 delete_tree(instance, cdr(p2));
2830 p2 = cdr(n = p2);
2847 p2 = eval(instance, car(cdr(args)));
2848 delete_tree(instance, cdr(cdr(args)));
2849 delete_object(instance, cdr(args));
2866 p2 = cdr(n = p2);
2870 delete_tree(instance, cdr(p2));
2883 p2 = eval(instance, car(cdr(args)));
2884 delete_tree(instance, cdr(cdr(args)));
2885 delete_object(instance, cdr(args));
2889 if (equal(p1, cdr(car(p2)))) {
2892 delete_tree(instance, cdr(p2));
2897 p2 = cdr(n = p2);
2909 if (p != &alsa_lisp_nil && cdr(args) == &alsa_lisp_nil &&
2953 if (p != &alsa_lisp_nil && cdr(args) == &alsa_lisp_nil &&
2994 { "cdr", F_cdr },
3091 delete_tree(instance, cdr(args));
3095 p1 = cdr(args);
3108 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;