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