Checkout pull's ref before push.

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

@@ -170,11 +170,19 @@ behaviour could be overriden by keyword argument ``:raise t``."
     
        (cond
          ((uiop:getenv "GITHUB_HEAD_REF")
-          
+          (let ((ref (uiop:getenv "GITHUB_HEAD_REF")))
-          (git "remote add upstream "
+
-               (get-origin-to-push))
+            ;; Inside github action we are running on
-          (git "push upstream HEAD:"
+            ;; detached commit. Github takes last commit
-               (uiop:getenv "GITHUB_HEAD_REF")))
+            ;; from the "master" branch and merges
+            ;; a branch from pull-request settings.
+            ;;
+            ;; To push changes back, we need to change
+            ;; our HEAD back to the pull-request's reference:
+            (git "checkout" ref)
+            (git "remote add upstream "
+                 (get-origin-to-push))
+            (git "push upstream HEAD:" ref)))
          (t
           (git "push"))))
       ;; or

README.md

@@ -106,3 +106,4 @@ System: some-other-system is not available
 
 * * *
 ###### \[generated by [MGL-PAX](https://github.com/melisgl/mgl-pax)\]
+

qlfile

@@ -1 +1,2 @@
 dist ultralisp http://dist.ultralisp.org
+