From 65d559adcc2168844193d06a60b8f13ec2096bb4 Mon Sep 17 00:00:00 2001
From: "Robert P. Goldman" <rpgoldman@sift.net>
Date: Mon, 15 Aug 2016 14:15:25 -0500
Subject: [PATCH] Added IGNORE declaration.

Needed for clean compile.
---
 uiop/run-program.lisp | 1 +
 1 file changed, 1 insertion(+)

diff --git a/uiop/run-program.lisp b/uiop/run-program.lisp
index 4532196d3..749d2309d 100644
--- a/uiop/run-program.lisp
+++ b/uiop/run-program.lisp
@@ -575,6 +575,7 @@ It returns a process-info plist with possible keys:
             ;; 2- extract result
             #+allegro (multiple-value-bind (exit-code pid signal)
                           (sys:reap-os-subprocess :pid process :wait t)
+                        (declare (ignore pid))
                         (or signal exit-code))
             #+clozure (nth-value 1 (ccl:external-process-status process))
             #+(or cmu scl) (ext:process-exit-code process)
-- 
GitLab