From 884f01505868303af50ed243dc245216d5b60575 Mon Sep 17 00:00:00 2001
From: "SANO,Masatoshi" <snmsts@gmail.com>
Date: Tue, 6 Oct 2026 13:04:36 +0900
Subject: [PATCH 1/2] Support dotcl in the test op

Add dotcl to the implementations that define TEST and run the xmls/test
op, and read its command-line arguments after "--" with
dotcl:command-line-arguments, as for SBCL and CMUCL.
---
 xmls.asd  | 2 +-
 xmls.lisp | 3 ++-
 2 files changed, 3 insertions(+), 2 deletions(-)

diff --git a/xmls.asd b/xmls.asd
index 22c55ff..1369127 100644
--- a/xmls.asd
+++ b/xmls.asd
@@ -33,7 +33,7 @@
 (defsystem :xmls/test
   :perform (test-op (op c)
               (declare (ignorable op c))
-              #-(or sbcl cmu allegro abcl ccl clisp ecl)
+              #-(or sbcl cmu allegro abcl ccl clisp ecl dotcl)
               (error "Test OP for XMLS not supported on this lisp implementation.")
               (unless 
                 (uiop:symbol-call :xmls :test :interactive t)
diff --git a/xmls.lisp b/xmls.lisp
index c10ae72..89efa01 100644
--- a/xmls.lisp
+++ b/xmls.lisp
@@ -884,7 +884,7 @@ character translation."
                 "xml-rpc/methodResponse.xml"
                 "xml-rpc/struct.xml")))
 
-#+(or sbcl cmu allegro abcl ccl clisp ecl) 
+#+(or sbcl cmu allegro abcl ccl clisp ecl dotcl)
 (defun test (&key interactive (test-files *test-files*))
   "Run the test suite. If it fails, either return NIL \(if INTERACTIVE\),
 otherwise exit with an error exit status."
@@ -902,6 +902,7 @@ otherwise exit with an error exit status."
                      #+allegro (sys:command-line-arguments)
                      #+clisp ext:*args*
                      #+ecl (ext:command-args)
+                     #+dotcl (member "--" (dotcl:command-line-arguments) :test 'equal)
                      #+ccl
                      ccl:*unprocessed-command-line-arguments*)))
       (catch 'test-failure

From dfe7c5a7a4906e3285885d7225ac237f0eea6a90 Mon Sep 17 00:00:00 2001
From: "SANO,Masatoshi" <snmsts@gmail.com>
Date: Tue, 13 Oct 2026 19:30:46 +0900
Subject: [PATCH 2/2] Add dotcl-bin to the CI

---
 .github/workflows/main.yml | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/.github/workflows/main.yml b/.github/workflows/main.yml
index a059822..49ca132 100644
--- a/.github/workflows/main.yml
+++ b/.github/workflows/main.yml
@@ -28,9 +28,10 @@ jobs:
           - cmu-bin/21e
           - clisp/2.49
           # - mkcl Tests not implemented on mkcl
-          - abcl/1.9.2
+          - abcl-bin/1.9.2
           - sbcl-bin
           - clisp-head
+          - dotcl-bin
 
 
     env:
@@ -38,9 +39,9 @@ jobs:
 
     steps:
     - name: prepare
-      uses: 40ants/setup-lisp@v2
+      uses: 40ants/setup-lisp@1a5e7c0b52bafdea40ec54ff13ff1d8285954f37
       with:
-        roswell-version: v22.12.14.113
+        roswell-version: v26.10.118
         asdf-version: 3.3.6
     # - name: Collect prerequisites
     #   shell: bash