Print backtrace on clasp CI errors

ruricolist · May 5, 2024 · f2a1e69 · f2a1e69
1 parent fd23737
commit f2a1e69
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/.github/workflows/ci.yml b/.github/workflows/ci.yml
@@ -37,9 +37,9 @@ jobs:
         env:
           HOME: /home/app
         run: |
-          clasp --eval "(handler-case (ql:quickload :serapeum) (error () (uiop:quit 1)))" --quit
+          clasp --eval "(handler-bind ((error (lambda (e) (uiop:print-backtrace :condition e) (uiop:quit 1)))) (ql:quickload :serapeum))" --quit
       - name: Test Serapeum
         env:
           HOME: /home/app
         run: |
-          clasp --eval "(handler-case (asdf:test-system :serapeum) (error () (uiop:quit 1)))" --quit
+          clasp --eval "(handler-bind ((error (lambda (e) (uiop:print-backtrace :condition e) (uiop:quit 1)))) (asdf:test-system :serapeum))" --quit