From 8ef9b477b5a144b0a6c95cba9347146a1cf55a33 Mon Sep 17 00:00:00 2001
From: Francois-Rene Rideau <tunes@google.com>
Date: Sat, 12 Oct 2013 12:41:23 -0400
Subject: [PATCH] Fix for run-program on allegro/windows

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

diff --git a/uiop/run-program.lisp b/uiop/run-program.lisp
index 6709b7a9..fcfa2515 100644
--- a/uiop/run-program.lisp
+++ b/uiop/run-program.lisp
@@ -428,6 +428,7 @@ It returns a process-info plist with possible keys:
            (%input (%normalize-io-specifier input :input))
            (%output (%normalize-io-specifier output :output))
            (%error-output (%normalize-io-specifier error-output :error-output))
+           #+(and allegro os-windows) (interactive (%interactivep input output error-output))
            (process*
              #+allegro
              (multiple-value-list
-- 
GitLab