Skip to content
GitLab
Menu
Projects
Groups
Snippets
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
qitab
inferior-shell
Commits
c5a58f30
Commit
c5a58f30
authored
Apr 22, 2015
by
Francois-Rene Rideau
Browse files
2.0.3: use error, not signal, to re-signal errors from run-program.
parent
7f006053
Changes
2
Hide whitespace changes
Inline
Side-by-side
inferior-shell.asd
View file @
c5a58f30
...
...
@@ -2,7 +2,7 @@
(
defsystem
"inferior-shell"
:description
"spawn local or remote processes and shell pipes"
:version
"2.0.
2
"
:version
"2.0.
3
"
:defsystem-depends-on
(
:asdf
#-
asdf3
"uiop"
)
:depends-on
((
:version
#+
asdf3
"asdf"
#-
asdf3
"uiop"
"3.0.3"
)
; input and error-output redirection
#+
sbcl
"sb-posix"
...
...
run.lisp
View file @
c5a58f30
...
...
@@ -55,7 +55,7 @@
&key
time
show
host
(
on-error
t
)
&allow-other-keys
)
"run command CMD"
(
when
(
eq
on-error
t
)
(
setf
on-error
'
signal
))
(
when
(
eq
on-error
t
)
(
setf
on-error
'
error
))
(
when
show
(
format
*trace-output*
"; ~A~%"
(
print-process-spec
cmd
)))
(
flet
((
run-it
()
...
...
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