Extract GitHub action to perform asdf system operation. (#503)

* Extract action to perform system operations.

Uses clfoundation/sbcl and ensures quicklisp is installed.

Entrypoint script takes 3 arguments: location, operation, system:

- LOCATION: where is the system located - defaults to `src/`
- OPERATION: what operation to perform - defaults to `make` (note the
  function called will be `ASDF:$OPERATION`)
- SYSTEM: what system to operate upon.

* Use new perform-system action in CI workflows.

Author: verdammelt

.github/actions/perform-system/Dockerfile

@@ -0,0 +1,6 @@
+FROM clfoundation/sbcl
+
+COPY entrypoint.sh /entrypoint.sh
+
+ENTRYPOINT ["/entrypoint.sh"]
+

.github/actions/perform-system/action.yml

@@ -0,0 +1,26 @@
+name: perform-system
+description: "Perform a ASDF operation on a system"
+inputs:
+  system:
+    description: "System to operate on"
+    required: true
+
+  operation:
+    description: "Operation to perform"
+    required: false
+    default: 'make'
+
+  location:
+    description: "Directory containing the system"
+    required: false
+    default: 'src/'
+
+runs:
+  using: 'docker'
+  image: Dockerfile
+  args:
+    - ${{inputs.location}}
+    - ${{inputs.operation}}
+    - ${{inputs.system}}
+        
+    

.github/actions/perform-system/entrypoint.sh

@@ -0,0 +1,13 @@
+#!/bin/sh -ex
+
+QUICKLISP_ADD_TO_INIT_FILE=true /usr/local/bin/install-quicklisp
+
+LOCATION=\"$1\"
+OPERATION=$2
+SYSTEM=\"$3\"
+
+/usr/local/bin/sbcl \
+    --noinform --non-interactive \
+    --eval "(push (merge-pathnames $LOCATION) asdf:*central-registry*)" \
+    --eval "(ql:quickload $SYSTEM)" \
+    --eval "(asdf:${OPERATION} $SYSTEM)"

.github/workflows/config-checker.yml

@@ -13,17 +13,8 @@ jobs:
       - name: Checkout
         uses: actions/[email protected]
 
-      - name: Install & Setup QuickLisp
-        run: |
-          QUICKLISP_ADD_TO_INIT_FILE=true /usr/local/bin/install-quicklisp
-          echo '(push (merge-pathnames "src/") asdf:*central-registry*)' >> ~/.sbclrc
-
-      - name: SBCL Version
-        run: (format t "~A-~A" (lisp-implementation-type) (lisp-implementation-version))
-        shell: sbcl --noinform --non-interactive --load {0}
-
-      - name: Run Config Check
-        run: |
-          (ql:quickload "config-checker")
-          (asdf:test-system "config-checker")
-        shell: sbcl --noinform --non-interactive --load {0}
+      - name: Check Config
+        uses: ./.github/actions/perform-system
+        with:
+          system: config-checker
+          operation: test-system

.github/workflows/test-exercises.yml

@@ -13,17 +13,8 @@ jobs:
       - name: Checkout
         uses: actions/[email protected]
 
-      - name: Install & Setup QuickLisp
-        run: |
-          QUICKLISP_ADD_TO_INIT_FILE=true /usr/local/bin/install-quicklisp
-          echo '(push (merge-pathnames "src/") asdf:*central-registry*)' >> ~/.sbclrc
-
-      - name: SBCL Version
-        run: (format t "~A-~A" (lisp-implementation-type) (lisp-implementation-version))
-        shell: sbcl --noinform --non-interactive --load {0}
-
       - name: Run Tests
-        run: |
-          (ql:quickload "test-exercises")
-          (asdf:test-system "test-exercises")
-        shell: sbcl --noinform --non-interactive --load {0}
+        uses: ./.github/actions/perform-system
+        with:
+          system: test-exercises
+          operation: test-system