Use generic Lisp continous integration workflow

.github/workflows/continuous-integration.yaml

@@ -0,0 +1,13 @@
+name: 'Continuous Integration'
+on:
+  - workflow_dispatch
+  - push
+jobs:
+  continuous-integration:
+    uses: melusina-org/reusable/.github/workflows/lisp-continuous-integration.yaml@main
+    with:
+      main-system: 'org.melusina.confidence'
+      testsuite-system: 'org.melusina.confidence/testsuite'
+      testsuite-entrypoint: 'run-all-tests'
+      linter-system: 'org.melusina.confidence/development'
+      linter-entrypoint: 'lint'

example/example.lisp

@@ -3,7 +3,7 @@
 ;;;; Confidence (https://github.com/melusina-org/cl-confidence)
 ;;;; This file is part of Confidence.
 ;;;;
-;;;; Copyright © 2019–2022 Michaël Le Barbier
+;;;; Copyright © 2019–2023 Michaël Le Barbier
 ;;;; All rights reserved.
 
 ;;;; This file must be used under the terms of the MIT License.

libexec/lisp/development.lisp

@@ -0,0 +1,73 @@
+;;;; development.lisp — Project Development for El Cid
+
+;;;; Confidence (https://github.com/melusina-org/cl-confidence)
+;;;; This file is part of Confidence.
+;;;;
+;;;; Copyright © 2019–2023 Michaël Le Barbier
+;;;; All rights reserved.
+
+;;;; This file must be used under the terms of the MIT License.
+;;;; This source file is licensed as described in the file LICENSE, which
+;;;; you should have received as part of this distribution. The terms
+;;;; are also available at https://opensource.org/licenses/MIT
+
+(defpackage #:org.melusina.confidence/development
+  (:use #:cl)
+  (:local-nicknames
+   (#:atelier #:org.melusina.atelier))
+  (:export
+   #:lint
+   #+quicklisp
+   #:reload))
+
+(in-package #:org.melusina.confidence/development)
+
+(defun system-relative-pathname (pathname)
+  (flet ((system-source-directory ()
+	   (asdf:system-source-directory #.(string-downcase (package-name *package*)))))
+    (merge-pathnames pathname (system-source-directory))))
+
+(defun system-relative-pathnames (&rest pathnames)
+  (mapcar #'system-relative-pathname pathnames))
+
+(defparameter *parameter-bindings*
+      '((:copyright-holder . "Michaël Le Barbier")
+        (:copyright-year . "2019–2023")
+	(:project-filename . "org.melusina.confidence")
+        (:project-name . "Confidence")
+	(:project-description . "A Simple Interactive Test Framework for Common Lisp")
+	(:project-long-description .
+	 #.(concatenate 'string
+	    "Confidence is a test framework for Common Lisp that focuses on simplicty. "
+	    "It avoids bureacracy and makes it easy to work interactively, without "
+	    "a complicated setup, and with explicit functions and decisions."))
+        (:homepage . "https://github.com/melusina-org/cl-confidence")
+        (:license . :mit)))
+
+(defun lint ()
+  (let ((atelier:*parameter-bindings* *parameter-bindings*))
+    (atelier:lint
+     (system-relative-pathnames
+      #p"org.melusina.confidence.asd"
+      #p"doc"
+      #p"example"
+      #p"src"
+      #p"subr"
+      #p"testsuite"
+      #p"libexec/lisp/development.lisp"))))
+
+#+quicklisp
+(defun reload ()
+  (ql:quickload '("org.melusina.atelier"
+		  "org.melusina.confidence"
+		  "org.melusina.confidence/development")))
+
+
+;;;;
+;;;; Command Stock
+;;;;
+
+#+nil
+(org.melusina.confidence/development:reload)
+
+;;;; End of file `development.lisp'

org.melusina.confidence.asd

@@ -39,4 +39,13 @@
 		 (:file "testcase")
 		 (:file "entrypoint")))))
 
+(asdf:defsystem #:org.melusina.confidence/development
+  :description "Development tools for Confidence"
+  :author "Michaël Le Barbier"
+  :license "MIT License"
+  :depends-on (#:org.melusina.atelier)
+  :components
+  ((:module "libexec/lisp"
+    :components ((:file "development")))))
+
 ;;;; End of file `org.melusina.confidence.asd'