diff options
| author | Sean Whitton <spwhitton@spwhitton.name> | 2022-04-02 14:30:54 -0700 |
|---|---|---|
| committer | Sean Whitton <spwhitton@spwhitton.name> | 2022-04-02 14:38:16 -0700 |
| commit | 27c599b7370b70e2a3fe0ed39754039573b22574 (patch) | |
| tree | c9cc8d84937b6cb6a8b7150d383fd17bade60dd3 /src/image.lisp | |
| parent | 647701cf50559d3f58a928bdbaebf4f49c660ee6 (diff) | |
| download | consfigurator-27c599b7370b70e2a3fe0ed39754039573b22574.tar.gz | |
rename %DUMP-CONSFIGURATOR-IN-GRANDCHILD now there is only one
Signed-off-by: Sean Whitton <spwhitton@spwhitton.name>
Diffstat (limited to 'src/image.lisp')
| -rw-r--r-- | src/image.lisp | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/image.lisp b/src/image.lisp index 741daba..27fdee5 100644 --- a/src/image.lisp +++ b/src/image.lisp @@ -118,7 +118,7 @@ Thus, PREREQUEST must not start up any threads." (define-simple-error wrong-execution-context-for-image-dump (aborted-change)) -(defun %dump-consfigurator-in-grandchild (filename pre-dump form) +(defun dump-consfigurator-in-grandchild (filename pre-dump form) "Dump an executable image to FILENAME which will evaluate the readably printable Lisp form FORM, which defaults to one which will execute the current deployment. FORM must be evaluable using only definitions established @@ -186,7 +186,7 @@ Returns the stdout, stderr and exit code of that process." ;; a tmpfs/ramdisk if possible. (with-local-temporary-directory (tempdir) (let ((file (merge-pathnames "consfigurator" tempdir))) - (%dump-consfigurator-in-grandchild + (dump-consfigurator-in-grandchild file (wrap-grandchild-request prerequest) ;; Try to ensure that the new fork control child does not end up with ;; the actual request in its memory. @@ -263,7 +263,7 @@ property by applying it like this: ;; should not just be quietly skipped over. (apply #'aborted-change (simple-condition-format-control error) (simple-condition-format-arguments error)))))) - (%dump-consfigurator-in-grandchild + (dump-consfigurator-in-grandchild file nil (or form `(let ((*no-data-sources* t) (*connection* ,*connection*) (*consfigurator-debug-level* |