Request for asdf to support Clasp
Affects | Status | Importance | Assigned to | Milestone | |
---|---|---|---|---|---|
ASDF |
Invalid
|
Medium
|
Faré |
Bug Description
I upgraded Clasp to the latest ASDF and found one place where there was no clasp support.
uiop/launch-
(defun terminate-process (process-info &key urgent)
"Cause the process to exit. To that end, the process may or may
not be sent a signal, which it will find harder (or even impossible)
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))
;; 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)
#+clasp (mp:process-kill (slot-value process-info 'process))
#+lispworks7+ (sys:pipe-
#+mkcl (mk-ext:
#-(or abcl ecl clasp lispworks7+ mkcl)
(os-cond
((os-unix-p) (%posix-send-signal process-info (if urgent 9 15)))
((
(t (not-implemente
I should probably figure out how to do pull requests with gitlab.
Changed in asdf: | |
status: | Fix Committed → Invalid |
Patch committed (modulo asciibetical ordering of features).