From da839153a9bed1fae995c05cccdd4eb0d48be4c1 Mon Sep 17 00:00:00 2001
From: pfdietz <pfdietz@localhost>
Date: Sat, 15 May 2004 18:52:08 +0000
Subject: [PATCH] Add two tests exhibiting a bug found by piso.  It was causing
 the bad test sxhash.15 (since fixed) to incorrectly pass.

---
 ansi-tests/flet.lsp   | 7 +++++++
 ansi-tests/labels.lsp | 7 +++++++
 2 files changed, 14 insertions(+)

diff --git a/ansi-tests/flet.lsp b/ansi-tests/flet.lsp
index 5e0a7b4d..4603ac8f 100644
--- a/ansi-tests/flet.lsp
+++ b/ansi-tests/flet.lsp
@@ -449,3 +449,10 @@
   (flet ((%f (&key &allow-other-keys) 'good))
     (%f :a 1 :b 2))
   good)
+
+;;; NIL as a disallowed keyword argument
+(deftest flet.61
+  (signals-error
+   (flet ((%f (&key) :bad)) (%f nil nil))
+   program-error)
+  t)
\ No newline at end of file
diff --git a/ansi-tests/labels.lsp b/ansi-tests/labels.lsp
index 0f40d290..97853cb4 100644
--- a/ansi-tests/labels.lsp
+++ b/ansi-tests/labels.lsp
@@ -265,3 +265,10 @@
   (labels ((%f (&key &allow-other-keys) 'good))
     (%f :a 1 :b 2))
   good)
+
+;;; NIL as a disallowed keyword argument
+(deftest labels.36
+  (signals-error
+   (labels ((%f (&key) :bad)) (%f nil nil))
+   program-error)
+  t)
\ No newline at end of file
-- 
GitLab