DBGI("set "); DBG_POLY(atom); DBG(" = "); DBG_POLY(val); DBG("\n");
});
builtin = ao_lisp_poly_builtin(ao_lisp_v);
DBGI("set "); DBG_POLY(atom); DBG(" = "); DBG_POLY(val); DBG("\n");
});
builtin = ao_lisp_poly_builtin(ao_lisp_v);
v = ao_lisp_lambda_eval();
ao_lisp_stack->sexprs = v;
ao_lisp_stack->values = AO_LISP_NIL;
v = ao_lisp_lambda_eval();
ao_lisp_stack->sexprs = v;
ao_lisp_stack->values = AO_LISP_NIL;
* walk that list. Set ao_lisp_v to the car of the list and jump to
* eval_sexpr. When that's done, it will land in eval_val. For all but
* walk that list. Set ao_lisp_v to the car of the list and jump to
* eval_sexpr. When that's done, it will land in eval_val. For all but
DBGI(".. frame "); DBG_POLY(ao_lisp_frame_poly(ao_lisp_frame_current)); DBG("\n");
DBGI(".. saved frame "); DBG_POLY(ao_lisp_stack->frame); DBG("\n");
DBGI(".. frame "); DBG_POLY(ao_lisp_frame_poly(ao_lisp_frame_current)); DBG("\n");
DBGI(".. saved frame "); DBG_POLY(ao_lisp_stack->frame); DBG("\n");
[eval_apply] = ao_lisp_eval_apply,
[eval_cond] = ao_lisp_eval_cond,
[eval_cond_test] = ao_lisp_eval_cond_test,
[eval_apply] = ao_lisp_eval_apply,
[eval_cond] = ao_lisp_eval_cond,
[eval_cond_test] = ao_lisp_eval_cond_test,
[eval_while] = ao_lisp_eval_while,
[eval_while_test] = ao_lisp_eval_while_test,
[eval_macro] = ao_lisp_eval_macro,
[eval_while] = ao_lisp_eval_while,
[eval_while_test] = ao_lisp_eval_while_test,
[eval_macro] = ao_lisp_eval_macro,