check invoke download function.

lisp/install+msys2.lisp

@@ -35,7 +35,8 @@
           (download
            (format nil "~Amsys2/Base/~A/msys2-base-~A-~A.tar.xz"
                    (msys2-uri)
-                   *msys2-arch* *msys2-arch* (getf argv :version)) path))
+                   *msys2-arch* *msys2-arch* (getf argv :version))
+           path))
         (format t " done.~%")
         (expand path
                 (ensure-directories-exist

lisp/install-cmu-bin.lisp

@@ -8,7 +8,7 @@
     (format *error-output* "Checking version to install...~%")
     (unless (and (probe-file file)
                  (< (get-universal-time) (+ (* 60 60) (file-write-date file))))
-      (download (format nil "~Arelease/" (cmu-bin-uri))  file))
+      (download (format nil "~Arelease/" (cmu-bin-uri)) file))
     (loop for link in (plump:get-elements-by-tag-name (plump:parse file) "a")
        for href = (plump:get-attribute link "href")
        for len = (length href)

lisp/install-slime.lisp

@@ -54,8 +54,7 @@
               (format *error-output* "invalid version ~A" name)
               (roswell:quit 1))))
       (setq dist (ql-dist::make-dist-from-file dist-file))
-      (download (ql-dist::release-index-url dist)
-                release-file)
+      (download (ql-dist::release-index-url dist) release-file)
       (with-open-file (in release-file)
         (loop for line = (read-line in nil nil)
               while line