diff --git a/code/exports.lisp b/code/exports.lisp index 76278bd7ee8c9db894440eb5e3c4bb1c830f5436..7b548b1d218188d276dbe5c60018a10e3cee0ff6 100644 --- a/code/exports.lisp +++ b/code/exports.lisp @@ -5,7 +5,7 @@ ;;; Carnegie Mellon University, and has been placed in the public domain. ;;; (ext:file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/exports.lisp,v 1.127 1997/09/08 02:28:18 dtc Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/exports.lisp,v 1.128 1997/09/24 06:06:54 dtc Exp $") ;;; ;;; ********************************************************************** ;;; @@ -113,6 +113,9 @@ (if (find-package "NEW-ASSEM") (rename-package "NEW-ASSEM" "NEW-ASSEM" 'nil) (make-package "NEW-ASSEM" :nicknames 'nil :use nil)) +(if (find-package "MULTIPROCESSING") + (rename-package "MULTIPROCESSING" "MULTIPROCESSING" 'nil) + (make-package "MULTIPROCESSING" :nicknames '("MP") :use nil)) (use-package '("SYSTEM" "ALIEN-INTERNALS" "ALIEN" "LISP") "C-CALL") (use-package '("KERNEL" "EXTENSIONS" "LISP") "INSPECT") @@ -651,7 +654,8 @@ "COMPLEX-BIT-VECTOR-TYPE" "COMPLEX-IMAG-SLOT" "COMPLEX-REAL-SLOT" "COMPLEX-SIZE" "COMPLEX-STRING-TYPE" "COMPLEX-TYPE" "COMPLEX-VECTOR-TYPE" "CONS-CAR-SLOT" "CONS-CDR-SLOT" "CONS-SIZE" - "CONSTANT-SC-NUMBER" "CONTROL-STACK-SC-NUMBER" "COUNT-NO-OPS" + "CONSTANT-SC-NUMBER" "CONTROL-STACK-FORK" "CONTROL-STACK-RESUME" + "CONTROL-STACK-RETURN" "CONTROL-STACK-SC-NUMBER" "COUNT-NO-OPS" "CURRENT-FLOAT-TRAP" "DEFINE-FOR-EACH-PRIMITIVE-OBJECT" "DESCRIPTOR-REG-SC-NUMBER" "DESCRIPTOR-STACK-SC-NUMBER" "DESCRIPTOR-VS-NON-DESCRIPTOR-STORAGE" @@ -1607,3 +1611,20 @@ "READS" "WRITES" "SEGMENT" "WITHOUT-SCHEDULING" "BRANCH" "FLUSHABLE" "VARIABLE-LENGTH" "SEGMENT-COLLECT-DYNAMIC-STATISTICS")) + +(defpackage "MULTIPROCESSING" + (:use "COMMON-LISP") + (:nicknames "MP") + (:export "INIT-STACK-GROUPS" "MAKE-STACK-GROUP" "STACK-GROUP-RESUME" + "*CURRENT-STACK-GROUP*" "*INITIAL-STACK-GROUP*" + "*MULTI-PROCESSING*" "*CURRENT-PROCESS*" "*ALL-PROCESSES*" + "ALL-PROCESSES" "CURRENT-PROCESS" + "MAKE-PROCESS" "PROCESSP" "PROCESS-STATE" "PROCESS-WHOSTATE" + "PROCESS-NAME" "DESTROY-PROCESS" "PROCESS-WAIT" + "PROCESS-WAIT-WITH-TIMEOUT" "PROCESS-YIELD" + "PROCESS-INTERRUPT" "DISABLE-PROCESS" "ENABLE-PROCESS" + "RESTART-PROCESS" "PROCESS-PRESET" + "WITHOUT-SCHEDULING" "SHOW-PROCESSES" + "PROCESS-ACTIVE-P" "PROCESS-ALIVE-P" + "ATOMIC-INCF" "ATOMIC-DECF" "ATOMIC-PUSH" "ATOMIC-POP" + "MAKE-LOCK" "WITH-LOCK-HELD"))