Lines Matching refs:car
151 p->value.c.car = &alsa_lisp_nil; in new_object()
206 delete_tree(instance, p->value.c.car); in delete_tree()
230 incref_tree(instance, p->value.c.car); in incref_tree()
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); in new_cons_pointer()
472 if (lexpr->value.c.car == NULL) in new_cons_pointer()
476 delete_object(instance, lexpr->value.c.car); in new_cons_pointer()
729 p->value.c.car = parse_object(instance, 1); in parse_form()
730 if (p->value.c.car == NULL) in parse_form()
753 p->value.c.car = new_identifier(instance, "quote"); in quote_object()
754 if (p->value.c.car == NULL) in quote_object()
758 delete_object(instance, p->value.c.car); in quote_object()
766 p->value.c.cdr->value.c.car = obj; in quote_object()
1000 alisp_compare_type(p->value->value.c.car, ALISP_OBJ_IDENTIFIER) && in dump_objects()
1001 !strcmp(p->value->value.c.car->value.s, "lambda")) { in dump_objects()
1090 static inline struct alisp_object * car(struct alisp_object * p) in car() function
1093 return p->value.c.car; in car()
1111 struct alisp_object *p1 = car(args), *p2; in F_car()
1116 p2 = car(p1); in F_car()
1126 struct alisp_object *p1 = car(args), *p2; in F_cdr()
1130 delete_tree(instance, car(p1)); in F_cdr()
1146 p1 = eval(instance, car(p)); in F_add()
1165 p1 = eval(instance, car(p)); in F_add()
1182 p1 = eval(instance, car(p)); in F_concat()
1204 p1 = eval(instance, car(p)); in F_concat()
1226 p1 = eval(instance, car(p)); in F_sub()
1272 p1 = eval(instance, car(p)); in F_mul()
1308 p1 = eval(instance, car(p)); in F_div()
1363 p1 = eval(instance, car(args)); in F_mod()
1364 p2 = eval(instance, car(cdr(args))); in F_mod()
1410 p1 = eval(instance, car(args)); in F_lt()
1411 p2 = eval(instance, car(cdr(args))); in F_lt()
1449 p1 = eval(instance, car(args)); in F_gt()
1450 p2 = eval(instance, car(cdr(args))); in F_gt()
1488 p1 = eval(instance, car(args)); in F_le()
1489 p2 = eval(instance, car(cdr(args))); in F_le()
1527 p1 = eval(instance, car(args)); in F_ge()
1528 p2 = eval(instance, car(cdr(args))); in F_ge()
1566 p1 = eval(instance, car(args)); in F_numeq()
1567 p2 = eval(instance, car(cdr(args))); in F_numeq()
1619 p1 = eval(instance, car(args)); in F_exfun()
1627 p2 = car(p2); in F_exfun()
1660 princ_object(out, p->value.c.car); in princ_cons()
1713 p1 = eval(instance, car(p)); in F_princ()
1733 p = eval(instance, car(args)); in F_atom()
1766 p->value.c.car = eval(instance, car(args)); in F_cons()
1767 p->value.c.cdr = eval(instance, car(cdr(args))); in F_cons()
1795 p1->value.c.car = eval(instance, car(p)); in F_list()
1796 if (p1->value.c.car == NULL) { in F_list()
1853 p1 = eval(instance, car(args)); in F_eq()
1854 p2 = eval(instance, car(cdr(args))); in F_eq()
1876 p1 = eval(instance, car(args)); in F_equal()
1877 p2 = eval(instance, car(cdr(args))); in F_equal()
1897 struct alisp_object *p = car(args); in F_quote()
1914 p1 = eval(instance, car(p)); in F_and()
1938 p1 = eval(instance, car(p)); in F_or()
1957 struct alisp_object * p = eval(instance, car(args)); in F_not()
1978 p1 = car(p); in F_cond()
1979 if ((p2 = eval(instance, car(p1))) != &alsa_lisp_nil) { in F_cond()
2010 p1 = car(args); in F_if()
2011 p2 = car(cdr(args)); in F_if()
2035 p1 = car(args); in F_when()
2056 p1 = car(args); in F_unless()
2076 p1 = car(args); in F_while()
2104 p1 = eval(instance, car(p)); in F_progn()
2121 p1 = eval(instance, car(p)); in F_prog1()
2147 p1 = eval(instance, car(p)); in F_prog2()
2168 struct alisp_object * p1 = eval(instance, car(args)), in F_set()
2169 * p2 = eval(instance, car(cdr(args))); in F_set()
2193 struct alisp_object * p1 = eval(instance, car(args)); in F_unset()
2211 p1 = car(p); in F_setq()
2212 p2 = eval(instance, car(cdr(p))); in F_setq()
2245 p1 = unset_object(instance, car(p)); in F_unsetq()
2246 delete_tree(instance, car(p)); in F_unsetq()
2261 struct alisp_object * p1 = car(args), in F_defun()
2262 * p2 = car(cdr(args)), in F_defun()
2268 lexpr->value.c.car = new_identifier(instance, "lambda"); in F_defun()
2269 if (lexpr->value.c.car == NULL) { in F_defun()
2275 delete_object(instance, lexpr->value.c.car); in F_defun()
2280 lexpr->value.c.cdr->value.c.car = p2; in F_defun()
2302 p1 = car(p); in eval_func()
2305 p2 = car(cdr(p)); in eval_func()
2325 eval_objs[i++] = eval(instance, car(p3)); in eval_func()
2335 p3 = car(p2); in eval_func()
2351 p2 = car(p3); in eval_func()
2355 p3 = car(p2); in eval_func()
2363 delete_tree(instance, car(p2)); in eval_func()
2393 p1 = eval(instance, car(args)); in F_path()
2417 p1 = eval(instance, car(p)); in F_include()
2434 struct alisp_object * p = eval(instance, car(args)), * p1; in F_string_to_integer()
2456 struct alisp_object * p = eval(instance, car(args)), * p1; in F_string_to_float()
2563 struct alisp_object * p = eval(instance, car(args)), * p1 = cdr(args), * n; in F_format()
2577 n = eval(instance, car(p1)); in F_format()
2634 n = eval(instance, car(p1)); in F_format()
2667 p[start1] = eval(instance, car(p1)); in F_compare_strings()
2754 p1 = eval(instance, car(args)); in F_assoc()
2755 p2 = eval(instance, car(cdr(args))); in F_assoc()
2761 if (eq(p1, car(car(p2)))) { in F_assoc()
2762 n = car(p2); in F_assoc()
2768 delete_tree(instance, car(p2)); in F_assoc()
2784 p1 = eval(instance, car(args)); in F_rassoc()
2785 p2 = eval(instance, car(cdr(args))); in F_rassoc()
2791 if (eq(p1, cdr(car(p2)))) { in F_rassoc()
2792 n = car(p2); in F_rassoc()
2798 delete_tree(instance, car(p2)); in F_rassoc()
2814 p1 = eval(instance, car(args)); in F_assq()
2815 p2 = eval(instance, car(cdr(args))); in F_assq()
2821 if (equal(p1, car(car(p2)))) { in F_assq()
2822 n = car(p2); in F_assq()
2828 delete_tree(instance, car(p2)); in F_assq()
2845 p1 = eval(instance, car(args)); in F_nth()
2846 p2 = eval(instance, car(cdr(args))); in F_nth()
2864 delete_tree(instance, car(p2)); in F_nth()
2868 n = car(p2); in F_nth()
2881 p1 = eval(instance, car(args)); in F_rassq()
2882 p2 = eval(instance, car(cdr(args))); in F_rassq()
2888 if (equal(p1, cdr(car(p2)))) { in F_rassq()
2889 n = car(p2); in F_rassq()
2895 delete_tree(instance, car(p2)); in F_rassq()
2906 struct alisp_object * p = car(args); in F_dump_memory()
2950 struct alisp_object * p = car(args); in F_dump_objects()
3084 struct alisp_object * p = eval(instance, car(args)), * p1; in F_funcall()
3101 struct alisp_object * p1 = car(p), * p2; in eval_cons()
3141 return eval(instance, eval(instance, car(args))); in F_eval()
3376 p->value.c.car = obj; in alsa_lisp_function()
3479 alisp_compare_type(seq->value.c.car, ALISP_OBJ_CONS)) in alsa_lisp_seq_pointer()
3480 seq = seq->value.c.car; in alsa_lisp_seq_pointer()
3482 p2 = seq->value.c.car; in alsa_lisp_seq_pointer()