464 	struct alisp_object * lexpr;  in new_cons_pointer()  local
468 	lexpr = new_object(instance, ALISP_OBJ_CONS);  in new_cons_pointer()
469 	if (lexpr == NULL)  in new_cons_pointer()
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()
474 	lexpr->value.c.cdr = new_pointer(instance, ptr);  in new_cons_pointer()
475 	if (lexpr->value.c.cdr == NULL) {  in new_cons_pointer()
476 		delete_object(instance, lexpr->value.c.car);  in new_cons_pointer()
478 		delete_object(instance, lexpr);  in new_cons_pointer()
481 	return lexpr;  in new_cons_pointer()
2264 	struct alisp_object * lexpr;  in F_defun()  local
2266 	lexpr = new_object(instance, ALISP_OBJ_CONS);  in F_defun()
2267 	if (lexpr) {  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()
2270 			delete_object(instance, lexpr);  in F_defun()
2274 		if ((lexpr->value.c.cdr = new_object(instance, ALISP_OBJ_CONS)) == NULL) {  in F_defun()
2275 			delete_object(instance, lexpr->value.c.car);  in F_defun()
2276 			delete_object(instance, lexpr);  in F_defun()
2280 		lexpr->value.c.cdr->value.c.car = p2;  in F_defun()
2281 		lexpr->value.c.cdr->value.c.cdr = p3;  in F_defun()
2284 		if (set_object(instance, p1, lexpr) == NULL) {  in F_defun()
2286 			delete_tree(instance, lexpr);  in F_defun()