Skip to content
Projects
Groups
Snippets
Help
Loading...
Help
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
A
asdf
Project
Project
Details
Activity
Releases
Cycle Analytics
Repository
Repository
Files
Commits
Branches
Tags
Contributors
Graph
Compare
Charts
Issues
1
Issues
1
List
Board
Labels
Milestones
Merge Requests
3
Merge Requests
3
CI / CD
CI / CD
Pipelines
Jobs
Schedules
Charts
Wiki
Wiki
Snippets
Snippets
Members
Members
Collapse sidebar
Close sidebar
Activity
Graph
Charts
Create a new issue
Jobs
Commits
Issue Boards
Open sidebar
asdf
asdf
Commits
35604163
Commit
35604163
authored
Oct 12, 2013
by
Francois-Rene Rideau
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
Make run-shell-command more robust (catches ./bad-shell-command on Allegro/Windows).
parent
ba96b8d1
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
3 additions
and
2 deletions
+3
-2
backward-interface.lisp
backward-interface.lisp
+3
-2
No files found.
backward-interface.lisp
View file @
35604163
...
...
@@ -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
))))))
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment