From eafa22e5ca41aede68f03bf48c7a0233da4c2af1 Mon Sep 17 00:00:00 2001
From: Alexander Artemenko <svetlyak.40wt@gmail.com>
Date: Wed, 13 Dec 2023 21:40:35 +0000
Subject: [PATCH] Use quicklisp client fix to load package-inferred systems
 without problems.

---
 action.yml | 21 +++++++++++++++++++++
 1 file changed, 21 insertions(+)

diff --git a/action.yml b/action.yml
index b5065da..b314787 100644
--- a/action.yml
+++ b/action.yml
@@ -188,6 +188,27 @@ runs:
         # the other Lisp files in general, so it's better to tell Quicklisp
         # to update all its dists.
         ros -e "(ql:update-all-dists :prompt nil)"
+    - name: Install Quicklisp patch for package-inferred systems
+      shell: lispsh {0}
+      run: |
+        git clone \
+            --no-tags \
+            --single-branch \
+            --depth=1  \
+            https://github.com/40ants/quicklisp-client-fix \
+            ~/.quicklisp-client-fix
+ 
+        cat >> ~/.roswell/init.lisp <<EOF
+        (let ((fix-filename (make-pathname :directory '(:absolute :home ".quicklisp-client-fix")
+                                           :name "quicklisp-fix"
+        	                           :type "lisp")))
+          (cond
+            ((probe-file fix-filename)
+             (format t "Loading quicklisp fix.~%")
+             (load fix-filename))
+            (t
+             (format t "Quicklisp fix was not found at ~S.~%" fix-filename))))
+        EOF
     - name: Upgrade ASDF to the Latest Version
       shell: lispsh {0}
       run: |