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