anchor.diff:                                    path)
              (format t " done.~%")))
        (format t "extract")
  -     (un7za path (ensure-directories-exist
  -                  (merge-pathnames (format nil "impls/~A/~A/~A/~A/" (uname-m) (uname) "msys" "mingw32") (homedir))))
  +     (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/mingw32/bin/mingw-get" (uname-m) (uname))
  +  (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"))
  
positive.code:   ;;"sed -i -e 's/^cd/#cd/g' /etc/profile"
    (uiop/run-program:run-program
     (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" "mingw32") (homedir))
             (merge-pathnames (format nil "impls/~A/~A/~A/~A/msys/1.0/etc/profile" (uname-m) (uname) "msys" "mingw32") (homedir))))
    (cons t argv))
  
  (defun msys-setup-msys (argv)
  
negative.code:      do (format *error-output* "Download ~a" file)
         (if (probe-file path)
             (format *error-output* " skip.~%")
           (ros.install::download url path))
         (expand
          (uiop/filesystem:native-namestring path)
          (uiop/filesystem:native-namestring
           (ensure-directories-exist
            (merge-pathnames (format nil "impls/~A/~A/~A/" (uname-m) (uname) "mingw") (homedir))))))
    (cons t argv))
  
  (setq *install-cmds*
  