mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2025-12-15 15:21:03 -08:00
Code Issues Projects Releases Packages Wiki Activity

[nucl] add a (mock for now) function nucl_compile_definition

Browse source
This commit is contained in:
Daniel Kochmański 2025-05-30 15:14:14 +02:00
parent 0fcb28f3cb
commit ebab441f31
1 changed files with 7 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

8
src/c/nucl.c
View file

@ -810,6 +810,12 @@ nucl_append_dictionary(cl_object symbol, cl_object value)
return symbol; return symbol;
} }
static cl_object
nucl_compile_definition(void)
{
return nucl_stack_to_list();
}
cl_object nucl_word_def(int narg, cl_object op) { cl_object nucl_word_def(int narg, cl_object op) {
cl_env_ptr the_env = ecl_core.first_env; cl_env_ptr the_env = ecl_core.first_env;
cl_object cmpp = ECL_SYM_VAL(the_env, nucl_cmpp); cl_object cmpp = ECL_SYM_VAL(the_env, nucl_cmpp);
@ -822,7 +828,7 @@ cl_object nucl_word_def(int narg, cl_object op) {
ECL_SETQ(the_env, nucl_cmpp, ECL_NIL); ECL_SETQ(the_env, nucl_cmpp, ECL_NIL);
(cmpp == ECL_T) (cmpp == ECL_T)
? nucl_write_cstr("$$$ error: empty definition") ? nucl_write_cstr("$$$ error: empty definition")
: nucl_append_dictionary(cmpp, nucl_stack_to_list()); : nucl_append_dictionary(cmpp, nucl_compile_definition());
close_nucl_frame(); close_nucl_frame();
} else if (!nucl_cstrcmp(op->symbol.name, ":", 1)) { } else if (!nucl_cstrcmp(op->symbol.name, ":", 1)) {
nucl_write_cstr("$$$ error: nested compilation"); nucl_write_cstr("$$$ error: nested compilation");