Commit 35604163 authored by Francois-Rene Rideau's avatar Francois-Rene Rideau
Browse files

Make run-shell-command more robust (catches ./bad-shell-command on Allegro/Windows).

parent ba96b8d1
......@@ -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*))))
(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))))))
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment