From 13807b4e7a024be0fff0ec8539d18ccbd3984088 Mon Sep 17 00:00:00 2001
From: Gary King <gwking@franz.com>
Date: Fri, 22 May 2009 08:56:20 -0400
Subject: [PATCH] Fixed typo in run-shell-command for ACL

---
 asdf.lisp | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/asdf.lisp b/asdf.lisp
index 67070969..d3ad267e 100644
--- a/asdf.lisp
+++ b/asdf.lisp
@@ -1324,11 +1324,12 @@ output to `*verbose-out*`.  Returns the shell's exit code."
       :input nil :output *verbose-out*))
 
     #+allegro
-    ;;?? will fail if command has embedded quotes
+    ;; will this fail if command has embedded quotes - it seems to work
     (multiple-value-bind (stdout stderr exit-code)
         (excl.osi:command-output 
-	 (format nil "~a -c \"~a\"" #+mswindows "sh" #-mswindows "/bin/sh" command)
-	 :input nil :whole t
+	 (format nil "~a -c \"~a\"" 
+		 #+mswindows "sh" #-mswindows "/bin/sh" command)
+	 :input nil :whole nil
 	 #+mswindows :show-window #+mswindows :hide)
       (format *verbose-out* "~{~&; ~a~%~}~%" stderr)
       (format *verbose-out* "~{~&; ~a~%~}~%" stdout)
-- 
GitLab