Running custom lisp code as a Action sstep.

.github/actions/setup/action.yml

@@ -15,6 +15,10 @@ inputs:
     default: |
       qlot exec ros --eval '(asdf:test-system :{{ lisp-system }})' --quit
 
+  custom-code:
+    required: false
+
+
 runs:
   using: composite
   steps:
@@ -57,22 +61,27 @@ runs:
         echo .qlot/bin >> $GITHUB_PATH
         echo ::endgroup::
 
+    # - name: Run a custom Roswell Script
+    #   shell: ros -Q -- {0} "$@"
+    #   run: |
+    #     (progn
+    #       (ros:ensure-asdf)
+    #       #+quicklisp
+    #       (ql:quickload '() :silent t))
+
+    #     (defun main (args)
+    #        (declare (ignore args))
+    #        (format t "::group::Custom Roswell Script~%")
+    #        (format t "Lisp: ~A ~A~%ASDF: ~A~%"
+    #                (lisp-implementation-version)
+    #                (lisp-implementation-type)
+    #                (asdf:asdf-version))
+    #        (format t "::endgroup::~%"))
+
     - name: Run a custom Roswell Script
       shell: ros -Q -- {0} "$@"
-      run: |
+      run: ${{ inputs.custom-code }}
-        (progn
+      if: ${{ inputs.custom-code }}
-          (ros:ensure-asdf)
-          #+quicklisp
-          (ql:quickload '() :silent t))
-
-        (defun main (args)
-           (declare (ignore args))
-           (format t "::group::Custom Roswell Script~%")
-           (format t "Lisp: ~A ~A~%ASDF: ~A~%"
-                   (lisp-implementation-version)
-                   (lisp-implementation-type)
-                   (asdf:asdf-version))
-           (format t "::endgroup::~%"))
 
     # - name: Test
     #   shell: bash

.github/workflows/install.yml

@@ -64,6 +64,22 @@ jobs:
     steps:
       - uses: actions/checkout@v1
       - uses: 40ants/cl-info/.github/actions/setup@custom-action
+        with:
+          - custom-code: |
+              (progn
+                (ros:ensure-asdf)
+                #+quicklisp
+                (ql:quickload '() :silent t))
+      
+              (defun main (args)
+                 (declare (ignore args))
+                 (format t "::group::Custom Roswell Script~%")
+                 (format t "Lisp: ~A ~A~%ASDF: ~A~%"
+                         (lisp-implementation-version)
+                         (lisp-implementation-type)
+                         (asdf:asdf-version))
+                 (format t "::endgroup::~%"))
+        
       # - name: Start SSH session
       #   uses: luchihoratiu/debug-via-ssh@main
       #   with: