# HG changeset patch
# User Robert Brown <robert.brown@gmail.com>
# Date 1699108954 14400
# Node ID e7ed5e5a2d9e3eea092b61ebf86fd504a034e1ec
# Parent  e5e1471cb234d921f34845bc3430b8d358bc5344
Use ERROR instead of an ECASE form with no clauses.

SBCL outputs compilation warnings for ECASE forms missing clauses and that
causes Quicklisp test failures.

diff -r e5e1471cb234 -r e7ed5e5a2d9e test/tests.lisp
--- a/test/tests.lisp	Wed Jun 21 15:21:05 2023 -0400
+++ b/test/tests.lisp	Sat Nov 04 10:42:34 2023 -0400
@@ -338,9 +338,11 @@
                 (b . c) (b . d)
                 (e . f))
               (edges g))))
-  (let ((g (build-from-roots '() (lambda (v) (ecase v)))))
+  (let ((g (build-from-roots '() (lambda (v)
+                                   (error "predecessor called on ~S" v)))))
     (is (same '() (vertices g)))
     (is (same '() (edges g))))
-  (let ((g (build-from-leafs '() (lambda (v) (ecase v)))))
+  (let ((g (build-from-leafs '() (lambda (v)
+                                   (error "predecessor called on ~S" v)))))
     (is (same '() (vertices g)))
     (is (same '() (edges g)))))