Support dotcl in the test op

.github/workflows/main.yml

@@ -28,19 +28,20 @@ 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:
       LISP: ${{ matrix.lisp }}
 
     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

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)

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