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"))