Commit 8947ade7 authored by Francois-Rene Rideau's avatar Francois-Rene Rideau

Revert "Add clasp support to launch-program"

This reverts commit b3622011.

The commit was based on the wrong assumption that terminate-process would kill
a Unix thread (a la pthread_create) rather than subprocess (a la fork+execve).
parent 9ede3b0d
...@@ -393,14 +393,13 @@ to ignore if URGENT is T. On some platforms, it may also be subject to ...@@ -393,14 +393,13 @@ to ignore if URGENT is T. On some platforms, it may also be subject to
race conditions." race conditions."
(declare (ignorable urgent)) (declare (ignorable urgent))
#+abcl (sys:process-kill (slot-value process-info 'process)) #+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, ;; 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 ;; 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) #+ecl (symbol-call :ext :terminate-process (slot-value process-info 'process) urgent)
#+lispworks7+ (sys:pipe-kill-process (slot-value process-info 'process)) #+lispworks7+ (sys:pipe-kill-process (slot-value process-info 'process))
#+mkcl (mk-ext:terminate-process (slot-value process-info 'process) #+mkcl (mk-ext:terminate-process (slot-value process-info 'process)
:force urgent) :force urgent)
#-(or abcl clasp ecl lispworks7+ mkcl) #-(or abcl ecl lispworks7+ mkcl)
(os-cond (os-cond
((os-unix-p) (%posix-send-signal process-info (if urgent 9 15))) ((os-unix-p) (%posix-send-signal process-info (if urgent 9 15)))
((os-windows-p) (if-let (pid (process-info-pid process-info)) ((os-windows-p) (if-let (pid (process-info-pid process-info))
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment