From f2a1e692171f498e05f20780a61db2f90a052848 Mon Sep 17 00:00:00 2001 From: "Paul M. Rodriguez" Date: Sat, 4 May 2024 15:30:08 -0500 Subject: [PATCH] Print backtrace on clasp CI errors --- .github/workflows/ci.yml | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/.github/workflows/ci.yml b/.github/workflows/ci.yml index 0f05db9..c3ad736 100644 --- 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