paku/setup-lisp
1
0
Fork 0
Code Issues Pull requests Releases Wiki Activity

Fixed loading of quicklisp-osx-fix

Browse source 
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`.
This commit is contained in:
Alexander Artemenko 2024-02-25 13:47:08 +00:00
parent f1fddbf686
commit a7e183c1bc
2 changed files with 16 additions and 11 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

19
action.yml
View file

@ -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")
(let ((fix-filename (make-pathname :directory '(:absolute :home ".quicklisp-client-fix")
:name "quicklisp-fix"
:type "lisp")
(user-homedir-pathname))))
: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'

6
changelog.lisp
View file

@ -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