mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-01-27 06:51:44 -08:00
Code Issues Projects Releases Packages Wiki Activity

cosmetic: use ECL_NIL instead of a deprecated constant Cnil

Browse source
This commit is contained in:
Daniel Kochmański 2022-11-17 20:37:25 +01:00
parent 2100549860
commit 93fabac00a
3 changed files with 5 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

4
src/c/cinit.d
View file

@ -65,7 +65,7 @@ clos_std_compute_applicable_methods(cl_object gf, cl_object arglist)
extern cl_object
si_bind_simple_restarts(cl_object tag, cl_object names)
{
if (ECL_SYM_FUN(@'si::bind-simple-restarts') != Cnil)
if (ECL_SYM_FUN(@'si::bind-simple-restarts') != ECL_NIL)
return _ecl_funcall3(@'si::bind-simple-restarts', tag, names);
else
return ECL_SYM_VAL(ecl_process_env(), @'si::*restart-clusters*');
@ -74,7 +74,7 @@ si_bind_simple_restarts(cl_object tag, cl_object names)
extern cl_object
si_bind_simple_handlers(cl_object tag, cl_object names)
{
if (ECL_SYM_FUN(@'si::bind-simple-handlers') != Cnil)
if (ECL_SYM_FUN(@'si::bind-simple-handlers') != ECL_NIL)
return _ecl_funcall3(@'si::bind-simple-handlers', tag, names);
else
return ECL_SYM_VAL(ecl_process_env(), @'si::*handler-clusters*');

4
src/c/symbols_list.h
View file

@ -106,8 +106,8 @@ cl_symbols[] = {
{SYS_ "UNBOUND" ECL_FUN("si_unbound", si_unbound, 0) ECL_VAR(SI_CONSTANT, ECL_UNBOUND)},
{SYS_ "PROTECT-TAG" ECL_FUN(NULL, NULL, -1) ECL_VAR(SI_ORDINARY, OBJNULL)},
{SYS_ "DUMMY-TAG" ECL_FUN(NULL, NULL, -1) ECL_VAR(SI_ORDINARY, OBJNULL)},
{SYS_ "*RESTART-CLUSTERS*" ECL_FUN(NULL, NULL, -1) ECL_VAR(SI_SPECIAL, Cnil)},
{SYS_ "*HANDLER-CLUSTERS*" ECL_FUN(NULL, NULL, -1) ECL_VAR(SI_SPECIAL, Cnil)},
{SYS_ "*RESTART-CLUSTERS*" ECL_FUN(NULL, NULL, -1) ECL_VAR(SI_SPECIAL, ECL_NIL)},
{SYS_ "*HANDLER-CLUSTERS*" ECL_FUN(NULL, NULL, -1) ECL_VAR(SI_SPECIAL, ECL_NIL)},
{EXT_ "*INTERRUPTS-ENABLED*" ECL_FUN(NULL, NULL, 1) ECL_VAR(EXT_SPECIAL, ECL_T)},
/* LISP PACKAGE */

2
src/tests/normal-tests/embedding.lsp
View file

@ -72,7 +72,7 @@
int main (int argc, char **argv) {
cl_object x;
cl_boot(argc, argv);
si_safe_eval(3, x = c_string_to_object(~S), Cnil, Cnil);
si_safe_eval(3, x = c_string_to_object(~S), ECL_NIL, ECL_NIL);
cl_shutdown();
exit(0);
}")