diff options
| author | Sean Whitton <spwhitton@spwhitton.name> | 2021-09-21 20:24:12 -0700 |
|---|---|---|
| committer | Sean Whitton <spwhitton@spwhitton.name> | 2021-10-23 11:14:07 -0700 |
| commit | ea1277a98705009c94ff7baf3808992bbdcda988 (patch) | |
| tree | bd6dc5b8a337ffa1c8c5e5cfb1b6102c337060f5 /src/image.lisp | |
| parent | f5930a8f728b4efb20d5ecd229e407d4307dea74 (diff) | |
| download | consfigurator-ea1277a98705009c94ff7baf3808992bbdcda988.tar.gz | |
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 <spwhitton@spwhitton.name>
Diffstat (limited to 'src/image.lisp')
| -rw-r--r-- | src/image.lisp | 2 |
1 files changed, 1 insertions, 1 deletions
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) |