From 80d1feb1825bad65831a62429993abb95572081f Mon Sep 17 00:00:00 2001
From: Edward <Langley>
Date: Mon, 4 Jan 2021 15:45:31 -0800
Subject: [PATCH] chore(transducers): correct exit code for failing tests

---
 data-lens.asd | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/data-lens.asd b/data-lens.asd
index 01711b8..37c3d1d 100644
--- a/data-lens.asd
+++ b/data-lens.asd
@@ -1,3 +1,5 @@
+(in-package :asdf-user)
+
 (asdf:defsystem #:data-lens
   :description #.(format nil "~@{~a~^ ~}"
                          "Utilities for building data transformations from"
@@ -34,6 +36,7 @@
   :depends-on (:data-lens/beta/transducers
                :fiveam)
   :serial t
-  :perform (test-op (o c) (symbol-call :fiveam '#:run! :data-lens.transducers))
+  :perform (test-op (o c) (unless (symbol-call :fiveam '#:run! :data-lens.transducers)
+                            (quit 41)))
   :components ((:module "t"
                 :components ((:file "transducers")))))