- Export MP:*CURRENT-PROCESS* from MP package, not from COMMON-LISP

This commit is contained in:
japhie 2005-06-23 22:03:29 +00:00
parent 46331af806
commit ff56f1e48d

View file

@ -1485,7 +1485,7 @@ cl_symbols[] = {
#ifdef ECL_THREADS
{MP_ "PROCESS", MP_ORDINARY, NULL, -1, OBJNULL},
{MP_ "LOCK", MP_ORDINARY, NULL, -1, OBJNULL},
{MP_ "*CURRENT-PROCESS*", CL_SPECIAL, NULL, -1, OBJNULL},
{MP_ "*CURRENT-PROCESS*", MP_SPECIAL, NULL, -1, OBJNULL},
{MP_ "ALL-PROCESSES", MP_ORDINARY, mp_all_processes, 0, OBJNULL},
{MP_ "EXIT-PROCESS", MP_ORDINARY, mp_exit_process, 0, OBJNULL},
{MP_ "MAKE-PROCESS", MP_ORDINARY, mp_make_process, -1, OBJNULL},