From ff56f1e48d3a491b764b93ec907aab4a4db5cc44 Mon Sep 17 00:00:00 2001 From: japhie Date: Thu, 23 Jun 2005 22:03:29 +0000 Subject: [PATCH] - Export MP:*CURRENT-PROCESS* from MP package, not from COMMON-LISP --- src/c/symbols_list.h | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/c/symbols_list.h b/src/c/symbols_list.h index ef5b83748..c5f4952a3 100644 --- a/src/c/symbols_list.h +++ b/src/c/symbols_list.h @@ -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},