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
Hugo Ishimaru
asdf
Commits
4e8a7286
Commit
4e8a7286
authored
Sep 06, 2017
by
Elias Pipping
Browse files
%process-status: Do not needlessly return a nil value
parent
582e7d29
Changes
1
Hide whitespace changes
Inline
Side-by-side
uiop/launch-program.lisp
View file @
4e8a7286
...
...
@@ -309,7 +309,9 @@ argument to pass to the internal RUN-PROGRAM"
(
:signaled
(
let
((
%code
(
%signal-to-exit-code
code
)))
(
setf
(
slot-value
process-info
'exit-code
)
%code
(
slot-value
process-info
'signal-code
)
code
))))
(
values
status
code
))))
(
if
code
(
values
status
code
)
status
))))
(
defun
process-alive-p
(
process-info
)
"Check if a process has yet to exit."
...
...
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