From cf6e27440c1fbad77bda9fa51861d64bb7ebb8d3 Mon Sep 17 00:00:00 2001 From: Ed Langley Date: Sat, 15 Jul 2023 14:25:53 -0700 Subject: [PATCH] fix: quickload systems --- .github/workflows/test.yml | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/.github/workflows/test.yml b/.github/workflows/test.yml index c790203..4b34ef7 100644 --- a/.github/workflows/test.yml +++ b/.github/workflows/test.yml @@ -63,6 +63,8 @@ jobs: --load "$HOME/quicklisp/setup.lisp" \ --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/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