From a7e183c1bcaf911fa7f458d54111f2361eea0084 Mon Sep 17 00:00:00 2001
From: Alexander Artemenko <svetlyak.40wt@gmail.com>
Date: Sun, 25 Feb 2024 13:47:08 +0000
Subject: [PATCH] Fixed loading of quicklisp-osx-fix

Previously the script made unnecessary output and when you had a `qlfile` template in your workflow this output leaked into `qlfile` broking following `qlot install`.
---
 action.yml     | 21 ++++++++++-----------
 changelog.lisp |  6 ++++++
 2 files changed, 16 insertions(+), 11 deletions(-)

diff --git a/action.yml b/action.yml
index 58c274f..569f24e 100644
--- a/action.yml
+++ b/action.yml
@@ -272,20 +272,19 @@ runs:
         mkdir -p ~/.roswell
 
         cat >> ~/.roswell/init.lisp <<EOF
-        (handler-bind ((error #'(lambda (c)
-                                  (uiop:print-condition-backtrace c)
-                                  (uiop:quit 1))))
-          (let ((fix-filename (merge-pathnames
-                               (make-pathname :directory '(:relative ".quicklisp-client-fix")
-                                              :name "quicklisp-fix"
-                                              :type "lisp")
-                               (user-homedir-pathname))))
+        (let ((fix-filename (make-pathname :directory '(:absolute :home ".quicklisp-client-fix")
+                                           :name "quicklisp-fix"
+                                           :type "lisp")))
+          (let ((quicklisp-found #+quicklisp t
+                                 #-quicklisp nil))
             (cond
+              ((not quicklisp-found)
+               (warn "Quicklisp is not available, skipping fix loading.~%"))
               ((probe-file fix-filename)
-               (format t "Loading quicklisp fix.~%")
-               (load fix-filename))
+               (handler-bind ((warning #'muffle-warning))
+                 (load fix-filename)))
               (t
-               (format t "Quicklisp fix was not found at ~S.~%" fix-filename)))))
+               (warn "Quicklisp fix was not found at ~S.~%" fix-filename)))))
         EOF
        
     - if: inputs.cache == 'false' || steps.roswell-cache-restore.outputs.cache-hit != 'true'
diff --git a/changelog.lisp b/changelog.lisp
index 79368f1..ea7173c 100644
--- a/changelog.lisp
+++ b/changelog.lisp
@@ -8,6 +8,12 @@
 (defchangelog (:ignore-words ("ASDF"
                               "PATH"
                               "HOME"))
+  (4.0.1 2024-02-25
+         "
+# Fixed
+
+* Fixed loading of quicklisp-osx-fix. Previously the script made unnecessary output and when you had a `qlfile` template in your workflow this output leaked into `qlfile` broking following `qlot install`.
+")
   (4.0.0 2024-02-24
          "
 # Changed