Skip to content
Snippets Groups Projects
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
No related branches found
No related tags found
No related merge requests found
...@@ -146,8 +146,9 @@ Please use UIOP:RUN-PROGRAM instead." ...@@ -146,8 +146,9 @@ Please use UIOP:RUN-PROGRAM instead."
(let ((command (apply 'format nil control-string args))) (let ((command (apply 'format nil control-string args)))
(asdf-message "; $ ~A~%" command) (asdf-message "; $ ~A~%" command)
(let ((exit-code (let ((exit-code
(nth-value 2 (run-program command :force-shell t :ignore-error-status t (ignore-errors
:output *verbose-out*)))) (nth-value 2 (run-program command :force-shell t :ignore-error-status t
:output *verbose-out*)))))
(typecase exit-code (typecase exit-code
((integer 0 255) exit-code) ((integer 0 255) exit-code)
(t 255)))))) (t 255))))))
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment