diff options
| author | Sean Whitton <spwhitton@spwhitton.name> | 2021-06-28 18:00:21 -0700 |
|---|---|---|
| committer | Sean Whitton <spwhitton@spwhitton.name> | 2021-06-28 18:00:21 -0700 |
| commit | fcf894fa1c7130dd0713188d725c1450a681b160 (patch) | |
| tree | f3aa25308536db006859877b681baada75e2d866 /src/deployment.lisp | |
| parent | ca376d8fc233eda3550249e0553b9e2dcf947613 (diff) | |
| download | consfigurator-fcf894fa1c7130dd0713188d725c1450a681b160.tar.gz | |
don't signal FAILED-CHANGE up beyond DEPLOY*/DEPLOY-THESE*
Signed-off-by: Sean Whitton <spwhitton@spwhitton.name>
Diffstat (limited to 'src/deployment.lisp')
| -rw-r--r-- | src/deployment.lisp | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/src/deployment.lisp b/src/deployment.lisp index 348687a..22a1458 100644 --- a/src/deployment.lisp +++ b/src/deployment.lisp @@ -74,8 +74,7 @@ will not be discarded." (defmacro with-deployment-report (&rest forms) (with-gensyms (failures) `(let (,failures) - (handler-bind - ((failed-change (lambda (c) (setq ,failures t) (signal c)))) + (handler-bind ((failed-change (lambda (c) (setq ,failures t)))) (let ((result (progn ,@forms))) (inform t |