Compare commits

...

3 Commits

Author SHA1 Message Date
cf6e27440c fix: quickload systems 2023-07-15 14:25:53 -07:00
3f4b9bddda fix: Update test.yml 2023-07-15 14:23:47 -07:00
6795459b0e experiment: Update test.yml 2023-07-15 14:22:37 -07:00

View File

@ -62,6 +62,9 @@ jobs:
sbcl --disable-debugger --no-userinit \ sbcl --disable-debugger --no-userinit \
--load "$HOME/quicklisp/setup.lisp" \ --load "$HOME/quicklisp/setup.lisp" \
--eval "(mapcar 'asdf:load-asd (directory \"*.asd\"))" \ --eval "(mapcar 'asdf:load-asd (directory \"*.asd\"))" \
--eval '(format *error-output* "~{~A~%~}" (asdf:registered-systems))' \
--eval "(handler-case (ql:quickload :data-lens) (error (c) (format t \"~a\" c) (uiop:quit 41)))" \
--eval "(handler-case (asdf:test-system :data-lens) (error (c) (format t \"~a\" c) (uiop:quit 42)))" \ --eval "(handler-case (asdf:test-system :data-lens) (error (c) (format t \"~a\" c) (uiop:quit 42)))" \
--eval "(handler-case (asdf:test-system :data-lens/transducers) (error (c) (format t \"~a\" c) (uiop:quit 43)))" \ --eval "(handler-case (ql:quickload :data-lens/transducers) (error (c) (format t \"~a\" c) (uiop:quit 43)))" \
--eval "(handler-case (asdf:test-system :data-lens/transducers) (error (c) (format t \"~a\" c) (uiop:quit 44)))" \
--quit --quit