[ci] avoid install digikar99/specialized-array-dispatch

.github/workflows/CI.yml

@@ -30,31 +30,19 @@ jobs:
         ls -l
         bash <(curl -s https://raw.githubusercontent.com/digikar99/lisp-travis-lite/master/run.sh)
 
-    - name: Install digikar99/specialized-array-dispatch
-      run: |
-        mkdir -p ~/quicklisp/dists/digikar99
-        ls -l ~/quicklisp/dists
-
-    - name: Compile Tests
+    # Testing it on the second load confirms that functionalities do not
+    # solely eval-when compile-toplevel, and that they persist across multiple loads.
+    - name: Lite - Run Tests
       run: |
         cl --eval '(progn
-                     (defun ql-dist::dist-name-pathname (name)
-                       "Return the pathname that would be used for an installed dist with
-                        the given NAME."
-                      (ql-dist::qmerge
-                       (make-pathname :directory (list* :relative "dists"
-                                                        (uiop:split-string name :separator "/")))))
-                     (defun digikar99-dist-enumeration-function ()
-                       "The default function used for producing a list of dist objects."
-                       (loop for file
-                           in (directory (ql-dist::qmerge "dists/digikar99/*/distinfo.txt"))
-                         collect (ql-dist::make-dist-from-file file)))
-                     (push (quote digikar99-dist-enumeration-function)
-                           ql::*dist-enumeration-functions*)
-                     (ql-dist:install-dist
-                      "http://dist.ultralisp.org/digikar99/specialized-array-dispatch.txt"
-                      :prompt nil)
+                     (push "~/" ql:*local-project-directories*)
                      (push :travis *features*)
+                     (ql:quickload "polymorphic-functions-lite")
+                     (asdf:test-system "polymorphic-functions-lite")
+                     (uiop:quit 0))'
+    - name: Full - Compile Tests
+      run: |
+        cl --eval '(progn
                      (push "~/" ql:*local-project-directories*)
                      (print ql:*local-project-directories*)
                      (print (ql:where-is-system "polymorphic-functions"))
@@ -63,25 +51,12 @@ jobs:
 
     # Testing it on the second load confirms that functionalities do not
     # solely eval-when compile-toplevel, and that they persist across multiple loads.
-    - name: Run Tests
+    - name: Full - Run Tests
       run: |
         cl --eval '(progn
-                     (defun ql-dist::dist-name-pathname (name)
-                       "Return the pathname that would be used for an installed dist with
-                        the given NAME."
-                      (ql-dist::qmerge
-                       (make-pathname :directory (list* :relative "dists"
-                                                        (uiop:split-string name :separator "/")))))
-                     (defun digikar99-dist-enumeration-function ()
-                       "The default function used for producing a list of dist objects."
-                       (loop for file
-                           in (directory (ql-dist::qmerge "dists/digikar99/*/distinfo.txt"))
-                         collect (ql-dist::make-dist-from-file file)))
-                     (push (quote digikar99-dist-enumeration-function)
-                           ql::*dist-enumeration-functions*)
                      (push "~/" ql:*local-project-directories*)
                      (push :travis *features*)
                      (ql:quickload "polymorphic-functions")
-                     (asdf:test-system :polymorphic-functions)
+                     (asdf:test-system "polymorphic-functions")
                      (uiop:quit 0))'