From b3622011da5ed496233003f7f7ae76099c63ff5b Mon Sep 17 00:00:00 2001 From: Francois-Rene Rideau <fare@tunes.org> Date: Sat, 1 Apr 2017 23:38:16 -0400 Subject: [PATCH] Add clasp support to launch-program --- uiop/launch-program.lisp | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/uiop/launch-program.lisp b/uiop/launch-program.lisp index 194996566..1abe727e8 100644 --- a/uiop/launch-program.lisp +++ b/uiop/launch-program.lisp @@ -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)) -- GitLab