From 3560416329ab49442dbf64902799116b9a68c956 Mon Sep 17 00:00:00 2001 From: Francois-Rene Rideau <tunes@google.com> Date: Sat, 12 Oct 2013 01:49:13 -0400 Subject: [PATCH] Make run-shell-command more robust (catches ./bad-shell-command on Allegro/Windows). --- backward-interface.lisp | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/backward-interface.lisp b/backward-interface.lisp index 7b43a6f7..eec1e5db 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)))))) -- GitLab