anchor.diff:     (format nil "~A -i -e 's/^cd/#cd/g' ~A"
              (merge-pathnames (format nil "impls/~A/~A/~A/~A/msys/1.0/bin/sed" (uname-m) (uname) "msys" *mingw*) (homedir))
              (merge-pathnames (format nil "impls/~A/~A/~A/~A/msys/1.0/etc/profile" (uname-m) (uname) "msys" *mingw*) (homedir))))
  -  (cons t argv))
  -
  -(defun msys-setup-msys (argv)
  -  (loop :for file :in *mingw-get-files*
  -     :for path := (merge-pathnames (format nil "archives/~A" file) (homedir))
  -     :do
  -     (format t "Download ~a" file)
  -     (if (probe-file path)
  -         (format t " skip.~%")
  -         (progn
  -           (ros.install::download (format nil "~@{~A~}" "http://prdownloads.sourceforge.net/mingw/" file "?download")
  -                                  path)
  -           (format t " done.~%")))
  -     (format t "extract")
  -     (expand path (ensure-directories-exist
  -                  (merge-pathnames (format nil "impls/~A/~A/~A/~A/" (uname-m) (uname) "msys" *mingw*) (homedir))))
  -     (format t " done ~%"))
  -  (let ((mingw-get (merge-pathnames (format nil "impls/~A/~A/msys/~A/bin/mingw-get" (uname-m) (uname) *mingw*)
  -                                    (homedir))))
  -    (flet ((install (package &key upgrade)
  -             (let* ((method (if upgrade "upgrade" "install"))
  -                    (cmd (format nil "~A ~A ~A" (namestring mingw-get)
  -                                 method
  -                                 package)))
  -               (format t "~A ~A" method package)
  -               (force-output)
  -               (let ()
  -                 (uiop/run-program:run-program cmd :output t :error-output t))
  -               (format t " done.~%"))))
  -      (install "msys-base")
  -      (install "msys-bash")))
     (cons t argv))
   
   (defun msys-setup-mingw (argv)
  
positive.code: (in-package :ros.install)
  #-win32
  (progn
    (warn "msys is only required on windows")
    (ros:quit 0))
  
  (ros:quicklisp :environment nil)
  
  ;; experiments... on repl
  ;;(setq *ros-path* "C:/MinGW/msys/1.0/local/bin/ros")
  
negative.code: ;; ensure ros's path in  env PATH
  ;; instead of "sh" "sh -l" to use for WIN32.
  
  (defvar *mingw-get-files* '(;;"mingw-get-0.6.2-mingw32-beta-20131004-1-bin.tar.xz"
                              ;;"mingw-get-0.6.2-mingw32-beta-20131004-1-lic.tar.xz"
                              ;;"mingw-get-setup-0.6.2-mingw32-beta-20131004-1-dll.tar.xz"
                              "mingw-get-setup-0.6.2-mingw32-beta-20131004-1-xml.tar.xz"))
  
  (defvar *mingw* #-x86-64 "mingw32" #+x86-64 "mingw64")
  