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