mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-01-13 21:02:47 -08:00
Code Issues Projects Releases Packages Wiki Activity

MP:PROCESS-JOIN was defined also in not threaded builds

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2009-09-09 11:58:57 +02:00
parent dc3ce38b1f
commit 1cac2fcb4f
2 changed files with 2 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

3
src/c/symbols_list.h
View file

@ -1491,6 +1491,7 @@ cl_symbols[] = {
{MP_ "PROCESS-PRESET", MP_ORDINARY, mp_process_preset, -1, OBJNULL},
{MP_ "PROCESS-RUN-FUNCTION", MP_ORDINARY, mp_process_run_function, -1, OBJNULL},
{MP_ "PROCESS-WHOSTATE", MP_ORDINARY, mp_process_whostate, 1, OBJNULL},
{MP_ "PROCESS-JOIN", EXT_ORDINARY, mp_process_join, 1, OBJNULL},
{MP_ "MAKE-LOCK", MP_ORDINARY, mp_make_lock, -1, OBJNULL},
{KEY_ "RECURSIVE", KEYWORD, NULL, -1, OBJNULL},
{MP_ "RECURSIVE-LOCK-P", MP_ORDINARY, mp_recursive_lock_p, 1, OBJNULL},
@ -1812,7 +1813,5 @@ cl_symbols[] = {
{EXT_ "WITH-UNIQUE-NAMES", EXT_ORDINARY, NULL, -1, OBJNULL},
{MP_ "PROCESS-JOIN", EXT_ORDINARY, mp_process_join, 1, OBJNULL},
/* Tag for end of list */
{NULL, CL_ORDINARY, NULL, -1, OBJNULL}};

3
src/c/symbols_list2.h
View file

@ -1491,6 +1491,7 @@ cl_symbols[] = {
{MP_ "PROCESS-PRESET","mp_process_preset"},
{MP_ "PROCESS-RUN-FUNCTION","mp_process_run_function"},
{MP_ "PROCESS-WHOSTATE","mp_process_whostate"},
{MP_ "PROCESS-JOIN","mp_process_join"},
{MP_ "MAKE-LOCK","mp_make_lock"},
{KEY_ "RECURSIVE",NULL},
{MP_ "RECURSIVE-LOCK-P","mp_recursive_lock_p"},
@ -1812,7 +1813,5 @@ cl_symbols[] = {
{EXT_ "WITH-UNIQUE-NAMES",NULL},
{MP_ "PROCESS-JOIN","mp_process_join"},
/* Tag for end of list */
{NULL,NULL}};