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