Add regression test for dispatch case bug

ruricolist · Jan 14, 2025 · 7ee9adb · 7ee9adb
1 parent e40d944
commit 7ee9adb
Showing 1 changed file with 9 additions and 0 deletions.
diff --git a/tests/dispatch-case.lisp b/tests/dispatch-case.lisp
@@ -104,3 +104,12 @@
     (5am:is (eql :ys (process :y :y)))
     (5am:is (eql :x (process :x :y)))
     (5am:is (eql :y (process :y :x)))))
+
+(5am:test dispatch-case-shadow-regression
+  (flet ((test-shadow (x y)
+           (dispatch-case ((x list) (y list))
+             ((null *) "First is null")
+             ((list cons) "First is not null, second is cons")
+             ((list list) "First is not null, second is list"))))
+    (5am:is (equal "First is null"
+                   (test-shadow nil '(x))))))