Skip to content
Snippets Groups Projects
Commit c49185b3 authored by dtc's avatar dtc
Browse files

Add the MULTIPROCESSING package.

parent 718b53b1
Branches
Tags
No related merge requests found
......@@ -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"))
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment