From 0c8cc1ec7bd1893f0fc327f65bdccb12a5383ffa Mon Sep 17 00:00:00 2001 From: Francois-Rene Rideau <fare@tunes.org> Date: Fri, 2 Dec 2016 02:55:34 +0000 Subject: [PATCH] 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. --- uiop/launch-program.lisp | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/uiop/launch-program.lisp b/uiop/launch-program.lisp index 5246fd126..8940c8863 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] -- GitLab