From ea1277a98705009c94ff7baf3808992bbdcda988 Mon Sep 17 00:00:00 2001 From: Sean Whitton Date: Tue, 21 Sep 2021 20:24:12 -0700 Subject: make *FORK-CONTROL* contents survive reloads of src/image.lisp In particular, reloads initiated by the call to ASDF:LOAD-SYSTEM in CONSFIGURATOR.DATA.ASDF::SYSTEM-VERSION-FILES. Signed-off-by: Sean Whitton --- src/image.lisp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'src/image.lisp') diff --git a/src/image.lisp b/src/image.lisp index 4c09553..24b08b3 100644 --- a/src/image.lisp +++ b/src/image.lisp @@ -44,7 +44,7 @@ ;;; ;;; We use named pipes for the IPC to minimise implementation-specific code. -(defparameter *fork-control* nil) +(defvar *fork-control* nil) (defmacro with-fork-request (prerequest request (out err exit) &body forms) (with-gensyms (input output) -- cgit v1.2.3