From 86282513dc9852df25f121d6eca97e095658f2fd Mon Sep 17 00:00:00 2001
From: Dave Cooper <open-source@genworks.com>
Date: Thu, 5 Sep 2013 22:59:48 -0400
Subject: [PATCH] added cmd /c for clozure for list commands

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

diff --git a/uiop/run-program.lisp b/uiop/run-program.lisp
index 9f00e1c..35f638d 100644
--- a/uiop/run-program.lisp
+++ b/uiop/run-program.lisp
@@ -317,7 +317,8 @@ EXTERNAL-FORMAT for the stream passed to the OUTPUT processor."
                           #+os-windows
                           (list
                            #+allegro (escape-windows-command command)
-                           #-allegro command)))
+			   #+clozure (cons "cmd" (cons "/c" (escape-windows-command command)))
+                           #-(or allegro clozure) command)))
                       (process*
                         (multiple-value-list
                          #+allegro
-- 
1.8.3.1

