Commit 0c8cc1ec authored by Francois-Rene Rideau's avatar Francois-Rene Rideau

Fix incorrect forward reference to run-program on some implementations

Make a proper forward reference to run-program in the degenerate version of
launch-program::%posix-send-signal used on some implementations.
parent 50b2046d
......@@ -404,8 +404,8 @@ might otherwise be irrevocably lost."
#+sbcl (sb-ext:process-kill (slot-value process-info 'process) signal)
#-(or allegro clozure cmucl sbcl scl)
(if-let (pid (process-info-pid process-info))
(run-program (format nil "kill -~a ~a" signal pid)
:ignore-error-status t)))
(symbol-call :uiop :run-program
(format nil "kill -~a ~a" signal pid) :ignore-error-status t)))
;;; this function never gets called on Windows, but the compiler cannot tell
;;; that. [2016/09/25:rpg]
......
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