Fixed uploader to not commit if there are no changes.

.github/actions/build-docs/upload.ros

@@ -155,10 +155,13 @@ behaviour could be overriden by keyword argument ``:raise t``."
    can update README file as well. In this case, we need
    to push the file into the current branch of the repository."
   (let ((*current-dir* (probe-file #P"")))
-    (cond
+    (macrolet ((if-there-are-changes (&body body)
+                 `(cond
                     ((git-repository-was-changed-p)
                      (log:info "Pushing local changes to the repository")
-       
+                     ,@body)
+                    (t
+                     (log:info "There is no local changes.")))))
       (flet ((make-commit ()
                (git "add -u")
 
@@ -184,15 +187,16 @@ behaviour could be overriden by keyword argument ``:raise t``."
              ;; To push changes back, we need to change
              ;; our HEAD back to the pull-request's reference:
              (git "checkout " ref)
+             ;; Here we need to check again if
+             (if-there-are-changes
               (make-commit)
               (git "remote add upstream "
                    (get-origin-to-push))
-              (git "push upstream HEAD:" ref)))
+              (git "push upstream HEAD:" ref))))
           (t
+           (if-there-are-changes
             (make-commit)
-            (git "push")))))
-      ;; or
-      (t (log:info "There is no local changes.")))))
+            (git "push"))))))))
 
 
 (defun main (&rest argv)