added test to ensure lambda-list signals error with nc pattern

guicho271828 · Oct 29, 2016 · 4cb2720 · 4cb2720
1 parent f9853b8
commit 4cb2720
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/test/level2.lisp b/test/level2.lisp
@@ -71,7 +71,9 @@
     ((lambda-list-nc &key x &allow-other-keys (list :y 1))
      (pass))
     (_
-     (fail "should not match"))))
+     (fail "should not match")))
+  (signals error
+    (pattern-expand-1 `(lambda-list &key x &allow-other-keys (list :y 1)))))
 
 (test array
   (match #2A((0 1) (2 3))