From 6fcd69cc57fb76f4e2503f794e2cd67c4b7d36c6 Mon Sep 17 00:00:00 2001
From: Elias Pipping <elias.pipping@fu-berlin.de>
Date: Sun, 7 Aug 2016 20:38:46 +0200
Subject: [PATCH] Replace a private Clozure CL function call

Use the public function ccl:external-process-id instead the private
ccl::external-process-pid

external-process-id has been exported from the ccl packages since
at least 2008.
---
 uiop/run-program.lisp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/uiop/run-program.lisp b/uiop/run-program.lisp
index 9f08220b9..980fdbb3e 100644
--- a/uiop/run-program.lisp
+++ b/uiop/run-program.lisp
@@ -556,7 +556,7 @@ It returns a process-info plist with possible keys:
       (declare (ignorable process))
       #+(or allegro lispworks) process
       #+clasp (si:external-process-pid process)
-      #+clozure (ccl::external-process-pid process)
+      #+clozure (ccl:external-process-id process)
       #+ecl (ext:external-process-pid process)
       #+(or cmu scl) (ext:process-pid process)
       #+mkcl (mkcl:process-id process)
-- 
GitLab