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:                             "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-w64-files* '("http://sourceforge.net/projects/mingw-w64/files/Toolchains%20targetting%20Win32/Personal%20Builds/mingw-builds/4.9.2/threads-win32/dwarf/i686-4.9.2-release-win32-dwarf-rt_v3-rev1.7z/download"))
  
  (defun un7za (path output-path)
    (uiop/run-program:run-program
     (format nil "~A x ~A -so |~A x -ttar -si -y -o~A"
             (uiop/filesystem:native-namestring (7za))
             (uiop/filesystem:native-namestring path)
             (uiop/filesystem:native-namestring (7za))
             (uiop/filesystem:native-namestring output-path))))
  
  (defun msys-setup-fstab (argv)
    (let ((path (merge-pathnames (format nil "impls/~A/~A/~A/~A/~A/" (uname-m) (uname) "msys" "mingw32" "i686-w64-mingw32") (homedir))))
      (with-open-file (o (ensure-directories-exist (merge-pathnames "msys/1.0/etc/fstab" path))
                         :direction :output
                         :if-exists :overwrite
  
negative.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" *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)
  