diff --git a/backward-interface.lisp b/backward-interface.lisp index 7b43a6f7870a0ab9cfc9f5f1739dc682e7d98a38..eec1e5db70c6524b663a32d329e94ca9e375fea7 100644 --- a/backward-interface.lisp +++ b/backward-interface.lisp @@ -146,8 +146,9 @@ Please use UIOP:RUN-PROGRAM instead." (let ((command (apply 'format nil control-string args))) (asdf-message "; $ ~A~%" command) (let ((exit-code - (nth-value 2 (run-program command :force-shell t :ignore-error-status t - :output *verbose-out*)))) + (ignore-errors + (nth-value 2 (run-program command :force-shell t :ignore-error-status t + :output *verbose-out*))))) (typecase exit-code ((integer 0 255) exit-code) (t 255))))))