Merge pull request #203 from fukamachi/update-message

Reduce the delay to show the first message when updating a dist.
fukamachi · Dec 1, 2023 · 674b26e · 674b26e
2 parents fecb586 + 8ed814d
commit 674b26e
Showing 1 changed file with 2 additions and 5 deletions.
diff --git a/src/install.lisp b/src/install.lisp
@@ -204,10 +204,6 @@ exec /bin/sh \"$CURRENT/../~A\" \"$@\"
       (let ((new-dist (available-update dist)))
         (if new-dist
             (progn
-              (message "Updating dist ~S version ~S -> ~S."
-                       (name dist)
-                       (version dist)
-                       (version new-dist))
               (map nil #'uninstall (installed-releases dist))
               (run-distify-source-process source tmp-dir
                                           :quicklisp-home system-quicklisp-home)
@@ -222,7 +218,7 @@ exec /bin/sh \"$CURRENT/../~A\" \"$@\"
                        (source-version source)))
             (progn
               (setf (source-version source) (version (find-dist (source-dist-name source))))
-              (message "Already have dist ~S version ~S."
+              (message "=> No update on dist ~S version ~S"
                        (source-dist-name source)
                        (source-version source))))
         new-dist))))
@@ -376,6 +372,7 @@ exec /bin/sh \"$CURRENT/../~A\" \"$@\"
                                        current-version
                                        (source-version source))))))
                      (t
+                      (message "Updating dist ~S." (source-project-name source))
                       (with-qlot-server (source :destination tmp-dir
                                                 :distinfo-only t
                                                 :quicklisp-home system-qlhome)