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