Browse code
fix: quickload test system
Ed L authored on 01/09/2023 18:59:57
Showing 1 changed files
Showing 1 changed files
... | ... |
@@ -64,6 +64,7 @@ jobs: |
64 | 64 |
--eval "(mapcar 'asdf:load-asd (directory \"*.asd\"))" \ |
65 | 65 |
--eval "(handler-case (ql:quickload :data-lens) (error (c) (format t \"~a\" c) (uiop:quit 42)))" \ |
66 | 66 |
--eval "(handler-case (ql:quickload :data-lens/transducers) (error (c) (format t \"~a\" c) (uiop:quit 43)))" \ |
67 |
- --eval "(handler-case (asdf:test-system :data-lens) (error (c) (format t \"~a\" c) (uiop:quit 44)))" \ |
|
68 |
- --eval "(handler-case (asdf:test-system :data-lens/transducers) (error (c) (format t \"~a\" c) (uiop:quit 45)))" \ |
|
67 |
+ --eval "(handler-case (ql:quickload :data-lens/test) (error (c) (format t \"~a\" c) (uiop:quit 44)))" \ |
|
68 |
+ --eval "(handler-case (asdf:test-system :data-lens) (error (c) (format t \"~a\" c) (uiop:quit 45)))" \ |
|
69 |
+ --eval "(handler-case (asdf:test-system :data-lens/transducers) (error (c) (format t \"~a\" c) (uiop:quit 46)))" \ |
|
69 | 70 |
--quit |