diff options
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 |