From 2a2826b49f9ff02fdd4d5f5c8f823eab37a9e2ff Mon Sep 17 00:00:00 2001
From: Francois-Rene Rideau <tunes@google.com>
Date: Mon, 4 Nov 2013 19:43:47 -0500
Subject: [PATCH] Remove unused variable warnings in GCL and more in
 %use-run-program.

---
 uiop/run-program.lisp | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/uiop/run-program.lisp b/uiop/run-program.lisp
index 9a94fada..8c80ca94 100644
--- a/uiop/run-program.lisp
+++ b/uiop/run-program.lisp
@@ -671,7 +671,9 @@ It returns a process-info plist with possible keys:
                            &key input output error-output ignore-error-status &allow-other-keys)
     ;; helper for RUN-PROGRAM when using %run-program
     #+(or abcl cormanlisp gcl (and lispworks os-windows) mcl mkcl xcl)
-    (error "Not implemented on this platform")
+    (progn
+      command keys input output error-output ignore-error-status ;; ignore
+      (error "Not implemented on this platform"))
     (assert (not (member :stream (list input output error-output))))
     (let* ((active-input-p (%active-io-specifier-p input))
            (active-output-p (%active-io-specifier-p output))
-- 
GitLab