Lines Matching defs:lexpr
465 struct alisp_object * lexpr;
469 lexpr = new_object(instance, ALISP_OBJ_CONS);
470 if (lexpr == NULL)
472 lexpr->value.c.car = new_string(instance, ptr_id);
473 if (lexpr->value.c.car == NULL)
475 lexpr->value.c.cdr = new_pointer(instance, ptr);
476 if (lexpr->value.c.cdr == NULL) {
477 delete_object(instance, lexpr->value.c.car);
479 delete_object(instance, lexpr);
482 return lexpr;
2265 struct alisp_object * lexpr;
2267 lexpr = new_object(instance, ALISP_OBJ_CONS);
2268 if (lexpr) {
2269 lexpr->value.c.car = new_identifier(instance, "lambda");
2270 if (lexpr->value.c.car == NULL) {
2271 delete_object(instance, lexpr);
2275 if ((lexpr->value.c.cdr = new_object(instance, ALISP_OBJ_CONS)) == NULL) {
2276 delete_object(instance, lexpr->value.c.car);
2277 delete_object(instance, lexpr);
2281 lexpr->value.c.cdr->value.c.car = p2;
2282 lexpr->value.c.cdr->value.c.cdr = p3;
2285 if (set_object(instance, p1, lexpr) == NULL) {
2287 delete_tree(instance, lexpr);