diff --git a/uiop/launch-program.lisp b/uiop/launch-program.lisp index 5246fd1267e1b1b28b47d3358f3aa5e263887d37..8940c88633fe7420bf58ea589d7a2cb7c033493d 100644 --- a/uiop/launch-program.lisp +++ b/uiop/launch-program.lisp @@ -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]