diff options
Diffstat (limited to 'src/connection/sbcl.lisp')
| -rw-r--r-- | src/connection/sbcl.lisp | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/connection/sbcl.lisp b/src/connection/sbcl.lisp index f487de3..9d488ca 100644 --- a/src/connection/sbcl.lisp +++ b/src/connection/sbcl.lisp @@ -62,7 +62,7 @@ recommended.")) (multiple-value-bind (program forms) (continue-deploy*-program remaining requirements) (multiple-value-bind (out err exit) (run :may-fail :input program *sbcl*) - (inform t (if (< exit 3) "done." "failed.") :fresh-line nil) + (inform t (if (member exit '(0 22 23)) "done." "failed.") :fresh-line nil) (when-let ((lines (lines out))) (inform t " Output was:" :fresh-line nil) (with-indented-inform (inform t lines))) |