diff options
author | Sean Whitton <spwhitton@spwhitton.name> | 2021-11-25 14:09:01 -0700 |
---|---|---|
committer | Sean Whitton <spwhitton@spwhitton.name> | 2021-11-28 14:55:40 -0700 |
commit | 0c4336893f4781da3abf9390e8a9c3601083e5f3 (patch) | |
tree | c4929804a34f7c849348b0465867ed79eb01d017 | |
parent | 2f4c7c3ff1aabde21628e7541f79f7cc7e753199 (diff) | |
download | consfigurator-0c4336893f4781da3abf9390e8a9c3601083e5f3.tar.gz |
EVAL-IN-REINVOKED: use a more descriptive name for the dumped image
The name will show up in, e.g., top(1) inside containers.
Signed-off-by: Sean Whitton <spwhitton@spwhitton.name>
-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 c309442..6f5b1f6 100644 --- a/src/image.lisp +++ b/src/image.lisp @@ -180,7 +180,7 @@ respectively, and evaluate FORMS." ;; Don't want to use ~/.cache/consfigurator/images because want to write ;; to a tmpfs/ramdisk if possible. `(with-local-temporary-directory (,tempdir) - (let ((file (merge-pathnames "image" ,tempdir))) + (let ((file (merge-pathnames "consfigurator" ,tempdir))) (%dump-consfigurator-in-grandchild file ,(wrap-grandchild-request prerequest) ;; Try to ensure that the new fork control child does not end up |