diff options
| author | Sean Whitton <spwhitton@spwhitton.name> | 2021-06-05 16:54:02 -0700 |
|---|---|---|
| committer | Sean Whitton <spwhitton@spwhitton.name> | 2021-06-05 17:25:13 -0700 |
| commit | 9c56f356c14d51cfbc7e852c01fbf519b64a36ae (patch) | |
| tree | 4089a4cef08956abca88739bb88239fb1e97dcda /src/connection/fork.lisp | |
| parent | 7d12f6962db3a81d4108a63a9d09c64087fd170d (diff) | |
| download | consfigurator-9c56f356c14d51cfbc7e852c01fbf519b64a36ae.tar.gz | |
:SBCL connection: propagate :NO-CHANGE
Signed-off-by: Sean Whitton <spwhitton@spwhitton.name>
Diffstat (limited to 'src/connection/fork.lisp')
| -rw-r--r-- | src/connection/fork.lisp | 6 |
1 files changed, 1 insertions, 5 deletions
diff --git a/src/connection/fork.lisp b/src/connection/fork.lisp index 1d96501..ae25bca 100644 --- a/src/connection/fork.lisp +++ b/src/connection/fork.lisp @@ -66,11 +66,7 @@ for example, such that we don't see it." (-1 (error "fork(2) failed")) (0 - (handler-bind ((serious-condition - (lambda (c) - (trivial-backtrace:print-backtrace - c :output *error-output*) - (uiop:quit 2)))) + (with-backtrace-and-exit-code-two ;; Capture child stdout in case *STANDARD-OUTPUT* has been rebound ;; to somewhere else in the parent, e.g. by APPLY-AND-PRINT. The ;; parent can then send the contents of the file named by OUTPUT to |