diff --git a/asdf.lisp b/asdf.lisp index 67070969dd2b0f25daf8673a1c5ac049f28db63c..d3ad267e8718899b76ba55cfea67c347c7d057b3 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)