fixup! Support Windows

melusina-org · Oct 1, 2023 · 90b7435 · 90b7435
1 parent 6719cee
commit 90b7435
Show file tree

Hide file tree

Showing 2 changed files with 13 additions and 1 deletion.
diff --git a/action.yaml b/action.yaml
@@ -48,6 +48,11 @@ runs:
       run: >-
         sudo port install
         cl-quicklisp
+    - name: 'Install QuickLisp'
+      if: runner.os == 'Windows'
+      shell: sh
+      run: |
+        curl -L -o ${GITHUB_ACTION_PATH}/quicklisp.lisp  https://beta.quicklisp.org/quicklisp.lisp
     - name: 'Setup Quicklisp'
       id: setup-quicklisp
       shell: sh

diff --git a/setup-quicklisp.lisp b/setup-quicklisp.lisp
@@ -27,12 +27,19 @@
        (select-quicklisp
 	(uiop:launch-program '("port" "contents" "cl-quicklisp")
 			     :output :stream)))
+     (windows-quicklisp ()
+       (namestring
+	(merge-pathnames
+	 #p"quicklisp.lisp"
+	 (uiop:getenv-pathname "GITHUB_ACTION_PATH" :ensure-directory t))))
      (find-quicklisp ()
        (cond
 	 ((uiop:os-macosx-p)
 	  (macports-quicklisp))
 	 ((uiop:os-unix-p)
-	  (ubuntu-quicklisp))))
+	  (ubuntu-quicklisp))
+	 ((uiop:os-windows-p)
+	  (windows-quicklisp))))
      (quicklisp-pathname ()
        (pathname (string-trim '(#\Space #\Newline #\Return #\Tab)
 			      (find-quicklisp)))))