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
Karsten Poeck
asdf
Commits
b3622011
Commit
b3622011
authored
Apr 01, 2017
by
Francois-Rene Rideau
Browse files
Add clasp support to launch-program
parent
8e33c55c
Changes
1
Hide whitespace changes
Inline
Side-by-side
uiop/launch-program.lisp
View file @
b3622011
...
...
@@ -392,13 +392,14 @@ to ignore if URGENT is T. On some platforms, it may also be subject to
race conditions."
(
declare
(
ignorable
urgent
))
#+
abcl
(
sys:process-kill
(
slot-value
process-info
'process
))
#+
clasp
(
mp:process-kill
(
slot-value
process-info
'process
))
;; On ECL, this will only work on versions later than 2016-09-06,
;; but we still want to compile on earlier versions, so we use symbol-call
#+
ecl
(
symbol-call
:ext
:terminate-process
(
slot-value
process-info
'process
)
urgent
)
#+
lispworks7+
(
sys:pipe-kill-process
(
slot-value
process-info
'process
))
#+
mkcl
(
mk-ext:terminate-process
(
slot-value
process-info
'process
)
:force
urgent
)
#-
(
or
abcl
ecl
lispworks7+
mkcl
)
#-
(
or
abcl
clasp
ecl
lispworks7+
mkcl
)
(
os-cond
((
os-unix-p
)
(
%posix-send-signal
process-info
(
if
urgent
9
15
)))
((
os-windows-p
)
(
if-let
(
pid
(
process-info-pid
process-info
))
...
...
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