diff --git a/code/multi-proc.lisp b/code/multi-proc.lisp index 3c165bab9c6f79c6c42be48a569cc2f6af8c42fe..d7195974f29695c8597d8df80be92a73890e7ba2 100644 --- a/code/multi-proc.lisp +++ b/code/multi-proc.lisp @@ -5,7 +5,7 @@ ;;; the Public domain, and is provided 'as is'. ;;; (ext:file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/multi-proc.lisp,v 1.38 2000/08/12 15:05:24 dtc Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/multi-proc.lisp,v 1.39 2000/08/19 17:48:19 dtc Exp $") ;;; ;;; ********************************************************************** ;;; @@ -999,6 +999,10 @@ (setf (process-wait-timeout process) nil) (setf (process-wait-return-value process) nil) (setf (process-interrupts process) nil) + (setf (process-scheduled-real-time process) (get-real-time)) + (setf (process-scheduled-run-time process) (get-run-time)) + (setf (process-%real-time process) 0d0) + (setf (process-%run-time process) 0d0) (setf (process-state process) :active) (push process *all-processes*)) process)