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/data.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/data.lisp')
| -rw-r--r-- | src/data.lisp | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/src/data.lisp b/src/data.lisp index eccf283..b0397c5 100644 --- a/src/data.lisp +++ b/src/data.lisp @@ -716,7 +716,13 @@ Preprocessing must occur in the root Lisp.")) else do (ignore-errors (delete-file (cdr cell))) finally (setq record accum))) ;; Continue the deployment. - ,(wrap `(%consfigure ',remaining-connections ,*host*))))) + ,(wrap + `(with-backtrace-and-exit-code-two + (uiop:quit + (if (eql :no-change + (%consfigure ',remaining-connections ,*host*)) + 0 + 1))))))) (handler-case (with-standard-io-syntax (let ((*allow-printing-passphrases* t)) |