mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-01-20 19:42:30 -08:00
Code Issues Projects Releases Packages Wiki Activity

si_bind_simple_restarts() should do nothing in ecl_min until everything is loaded

Browse source
This commit is contained in:
Juanjo Garcia-Ripoll 2012-07-03 12:46:39 +02:00
parent 9d4a68897a
commit 7432a8aa7d
3 changed files with 6 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

5
src/c/cinit.d
View file

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

2
src/c/symbols_list.h
View file

@ -2305,7 +2305,7 @@ cl_symbols[] = {
{FFI_ "WITH-FOREIGN-STRING", FFI_ORDINARY, NULL, -1, OBJNULL},
{FFI_ "WITH-FOREIGN-STRINGS", FFI_ORDINARY, NULL, -1, OBJNULL},
{SYS_ "BIND-SIMPLE-RESTARTS", SI_ORDINARY, si_bind_simple_restarts, 2, OBJNULL},
{SYS_ "BIND-SIMPLE-RESTARTS", SI_ORDINARY, ECL_NAME(si_bind_simple_restarts), 2, OBJNULL},
/* Tag for end of list */
{NULL, CL_ORDINARY, NULL, -1, OBJNULL}};

2
src/c/symbols_list2.h
View file

@ -2305,7 +2305,7 @@ cl_symbols[] = {
{FFI_ "WITH-FOREIGN-STRING",NULL},
{FFI_ "WITH-FOREIGN-STRINGS",NULL},
{SYS_ "BIND-SIMPLE-RESTARTS","si_bind_simple_restarts"},
{SYS_ "BIND-SIMPLE-RESTARTS","ECL_NAME(si_bind_simple_restarts)"},
/* Tag for end of list */
{NULL,NULL}};