X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=contrib%2Fasdf%2Fasdf.lisp;h=098cdfdb35bac23ee04f76bf4108fb9469ba58e5;hb=3eb0a28fe6a7912d6ff2b97221325c0e3bfc5703;hp=da1b9bfb8d604498f716bb6b602c3012d51c41d1;hpb=6ffb3a77cf559c6b63f4434e0d3a25b2d8fc04d9;p=sbcl.git

diff --git a/contrib/asdf/asdf.lisp b/contrib/asdf/asdf.lisp
index da1b9bf..098cdfd 100644
--- a/contrib/asdf/asdf.lisp
+++ b/contrib/asdf/asdf.lisp
@@ -1065,8 +1065,10 @@ output to *verbose-out*.  Returns the shell's exit code."
     #+sbcl
     (sb-impl::process-exit-code
      (sb-ext:run-program
-      "/bin/sh"
+      #-win32 "/bin/sh"
+      #+win32 "sh"
       (list  "-c" command)
+      :search #-win32 nil #+win32 t
       :input nil :output *verbose-out*))
 
     #+(or cmu scl)