From 42ac4ab595400e0b28cdd56edd7794dc24938748 Mon Sep 17 00:00:00 2001 From: dtc <dtc> Date: Tue, 30 Dec 1997 16:39:23 +0000 Subject: [PATCH] Ensure that multi-processing is shutdown before saving a lisp core. --- code/save.lisp | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/code/save.lisp b/code/save.lisp index 090755c8e..6b319380a 100644 --- a/code/save.lisp +++ b/code/save.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/save.lisp,v 1.32 1997/11/04 16:00:15 dtc Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/save.lisp,v 1.33 1997/12/30 16:39:23 dtc Exp $") ;;; ;;; ********************************************************************** ;;; @@ -146,6 +146,7 @@ :print-herald If true (the default), print out the lisp system herald when starting." + #+mp (mp::shutdown-multi-processing) (when (fboundp 'eval:flush-interpreted-function-cache) (eval:flush-interpreted-function-cache)) (when (fboundp 'cancel-finalization) -- GitLab